Note: The other languages of the website are Google-translated. Back to English
English English

Come spostare automaticamente il cursore su una cella specifica in Excel?

A volte, potrebbe essere necessario passare a una cella specifica per qualche scopo. Questo articolo ti mostrerà i metodi per spostare il cursore su una cella specifica nei dettagli.

Sposta automaticamente il cursore su una cella specifica con la casella Nome
Spostamento automatico del cursore su una cella specifica con codice VBA


Sposta automaticamente il cursore su una cella specifica con la casella Nome

La casella Nome può aiutarti a spostare facilmente il cursore su una cella specifica in Excel.

1. Nel Nome casella, immettere il riferimento di cella specifico a cui si passerà, quindi premere il tasto Entra chiave.

Quindi il cursore si sposta immediatamente sulla cella specificata.

Note:: Se è necessario passare alla cella specificata in un altro foglio di lavoro, ad esempio passare alla cella C30 di Sheet2, digitare Foglio2! C30 nella casella Nome, quindi premere il tasto Invio.


Spostamento automatico del cursore su una cella specifica con codice VBA

Il seguente codice VBA ti aiuta a spostarti in una cella specifica contemporaneamente in Excel.

1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic su Tla sua cartella di lavoro nel riquadro di sinistra per aprire il ThisWorkbook (codice) finestra. Quindi copia e incolla il codice VBA sottostante nella finestra.

Codice VBA: passa all'inizio o all'inizio della riga successiva per l'immissione dei dati

Sub jumpnext()
    Range("F100").Select
End Sub

Note:: Nel codice, F100 è la cella specificata a cui salterai. Puoi cambiarlo quando ti serve.

3. premi il F5 tasto per eseguire il codice, quindi il cursore si sposta immediatamente sulla cella F100 nel foglio di lavoro corrente.


Articoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (13)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Vorrei creare una macro che si sposti da una cella all'altra, passo dopo passo.
Questo commento è stato fatto dal moderatore sul sito
È utile grazie. Tuttavia, vorrei avere una formula come argomento per la funzione "Intervallo". Questo è consentito? Quello che vorrei fare è che l'utente inserisca un numero in una finestra di dialogo, quindi cerchi la prima occorrenza di quel numero in un intervallo di celle, quindi passi il cursore su quella cella ...
Questo commento è stato fatto dal moderatore sul sito
Ciao Steve,
Mi dispiace non poterti aiutare con quello.
Questo commento è stato fatto dal moderatore sul sito
Come faccio a spostare il cursore dalla cella E6 a F8 una volta che i dati sono stati inseriti in E6? Vorrei che il cursore ignorasse tutte le altre righe nella colonna E e passasse immediatamente a E6.
Questo commento è stato fatto dal moderatore sul sito
Scusa, intendo digitare "passa istantaneamente a F8"
Questo commento è stato fatto dal moderatore sul sito
Ciao James,
Si prega di provare il codice qui sotto. Dopo che i dati sono stati inseriti in E6, premere il tasto Tab o il tasto Invio e il cursore salterà immediatamente su F8.

Private Sub Worksheet_Change (ByVal Target As Range)

'Aggiornato da Extendoffice 2020087

Dim tabArray come variante

Dim I As Long

tabArray = Array("E6", "F8")

Application.ScreenUpdating = False

Per i = LBound(tabArray) A UBound(tabArray)

Se tabArray(i) = Target.Address(0, 0) Allora

Se i = UBound(tabArray) Allora

Me.Range(tabArray(LBound(tabArray))).Seleziona

Altro

Me.Range(tabArray(i + 1)).Seleziona

End If

End If

Avanti

Application.ScreenUpdating = True

End Sub
Questo commento è stato fatto dal moderatore sul sito
È possibile spostare la cella attiva senza premere un tasto sulla tastiera? Ad esempio, posso fare in modo che la cella si sposti verso il basso non appena la cella sopra di essa viene riempita? Sto cercando una funzione o un VBA da eseguire quando una cella è piena. Non appena A3 contiene caratteri, esiste un VBA per spostare la cella attiva in A4?
Questo commento è stato fatto dal moderatore sul sito
Ciao John,
Sono confuso sulla tua domanda. Come possiamo sapere se la cella ha terminato la modifica?
Questo commento è stato fatto dal moderatore sul sito
non hai firmato F5 per il codice, come funzionerà premendo F5?
Questo commento è stato fatto dal moderatore sul sito
Bagiaimana mengisi textbox pada form dengan memilih data di cell/sheet yg dipilih dgn kursor ?
Questo commento è stato fatto dal moderatore sul sito
Ciao Leson,
Scusa non ho capito cosa intendi. Ti dispiacerebbe fornire uno screenshot dei tuoi dati? Oppure cerca di essere più specifico sulla tua domanda. Ci dispiace per l'inconvenienza.
Questo commento è stato fatto dal moderatore sul sito
Ciao,

Puoi aiutare con la seguente richiesta di codice VBA, per favore?

Il foglio 1 è denominato "Asset principale" con altri 100 fogli denominati "0001...0002...0003....0004 ~ 0100"

In ognuno dei fogli "0001 ~ 0100"
Voglio essere in grado di selezionare la cella A4 che contiene già il testo "Torna alla risorsa principale", quindi premere invio per tornare automaticamente alla cella J3 nella "Risorsa principale"

Grazie in anticipo.
Andy C.
Questo commento è stato fatto dal moderatore sul sito
Ciao Andy Coghlan,
Non riesco a trovare un modo per attivare la macro con il tasto Invio in questo momento. Il seguente codice VBA può inserire lo stesso collegamento ipertestuale in A4 di tutti i fogli di lavoro contemporaneamente. Dopo aver fatto clic sul collegamento ipertestuale in A4, passerà a J3 nella "Risorsa principale". Per favore, provalo.

Sub AddHyperlinks()
'Updated by Extendoffice 20220715
    Dim xRg, yRg As Range
    Set xRg = Worksheets("Master Asset").Range("J3")
    xStr = xRg.Address(External:=True)
    For Each Sh In Worksheets
        If Sh.Name <> "Sh.Name" Then
            Set yRg = Sh.Range("A4")
            yRg.Hyperlinks.Add anchor:=yRg, Address:="", SubAddress:=xStr, TextToDisplay:="Back to Master Asset"
        End If
    Next
End Sub
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite