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

Cum se mută automat cursorul la o anumită celulă din Excel?

Uneori, poate fi necesar să treceți la o celulă specifică pentru un anumit scop. Acest articol vă va arăta în detalii metodele de mutare a cursorului către o celulă specifică.

Mutați automat cursorul la o celulă specifică cu caseta Nume
Mutați automat cursorul la o celulă specifică cu cod VBA


Mutați automat cursorul la o celulă specifică cu caseta Nume

Caseta Nume vă poate ajuta să mutați cu ușurință cursorul la o celulă specifică din Excel.

1. În Nume si Prenume caseta, introduceți referința de celulă specifică la care veți sări, apoi apăsați tasta Intrați cheie.

Apoi, cursorul se mută imediat în celula specificată.

notițe: Dacă trebuie să treceți la celula specificată într-o altă foaie de lucru, de exemplu să treceți la celula C30 din Foaia 2, introduceți Foaia2! C30 în caseta Nume, apoi apăsați tasta Enter.


Mutați automat cursorul la o celulă specifică cu cod VBA

Următorul cod VBA vă ajută să vă deplasați la o anumită celulă simultan în Excel.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic pe TCartea sa de lucru în panoul din stânga pentru a deschide TCarnetul său de lucru (cod) fereastră. Apoi copiați și lipiți codul VBA de mai jos în fereastră.

Cod VBA: Mutați la începutul sau la începutul următorului rând pentru introducerea datelor

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

notițe: În cod, F100 este celula specificată la care veți sări. Îl puteți schimba după cum aveți nevoie.

3. apasă pe F5 tasta pentru a rula codul, apoi cursorul se mută imediat la celula F100 din foaia de lucru curentă.


Articole pe aceeași temă:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (15)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Aș dori să fac o macrocomandă care să se deplaseze de la o celulă la alta, pas cu pas.
Acest comentariu a fost redus la minimum de moderatorul de pe site
E de ajutor mulțumesc. Cu toate acestea, aș dori să am o formulă ca argument pentru funcția „Range”. Este permis acest lucru? Ce aș dori să fac este ca utilizatorul să introducă un număr într-o casetă de dialog, apoi să caute prima apariție a acelui număr într-un interval de celule și apoi să sară cursorul la acea celulă...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hi Steve,
Îmi pare rău că nu te pot ajuta cu asta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum aș face ca cursorul să se miște de la Celula E6 la F8 odată ce datele au fost introduse în E6? Aș dori ca cursorul să ignore toate celelalte linii din coloana E și să sară instantaneu la E6.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îmi pare rău, vreau să tastați „sari instantaneu la F8”
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hi James,
Vă rugăm să încercați codul de mai jos. După ce datele au fost introduse în E6, apăsați tasta Tab sau tasta Enter, iar cursorul va sări la F8 instantaneu.

Subsol de lucrări private_Change (țintă ByVal ca rază de acțiune)

„Actualizat de Extendoffice 2020087

Dim tabArray ca variantă

Dim i As Long

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

Application.ScreenUpdating = Fals

Pentru i = LBound(tabArray) la UBound(tabArray)

Dacă tabArray(i) = Target.Address(0, 0) Atunci

Dacă i = UBound(tabArray) Atunci

Me.Range(tabArray(LBound(tabArray))).Selectați

Altfel

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

Final, dacă

Final, dacă

Apoi eu

Application.ScreenUpdating = Adevărat

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să mutați celula activă fără să apăsați o tastă de pe tastatură? De exemplu, pot pune celula să se miște în jos de îndată ce celula de deasupra ei este umplută? Caut fie o funcție, fie un VBA pentru a rula atunci când o celulă este umplută. De îndată ce A3 are caractere în el, există un VBA pentru a muta celula activă în jos la A4?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna John,
Sunt confuz la întrebarea ta. Cum putem ști dacă celula a terminat editarea?
Acest comentariu a fost redus la minimum de moderatorul de pe site
nu ai semnat codul F5, cum va rula apăsând F5?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bagiaimana mengisi textbox pada form dengan memilih data di cell/sheet yg dipilih dgn kursor ?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Lelson,
Scuze ca nu inteleg ce vrei sa spui. V-ar deranja să oferiți o captură de ecran a datelor dvs.? Sau încercați să fiți mai precis cu privire la întrebarea dvs. Îmi pare rău pentru neplăcerile create.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,

Vă rugăm să ne ajutați cu următoarea solicitare de cod VBA?

Foaia 1 este numită „Master Asset” cu alte 100 de coli numite „0001...0002...0003....0004 ~ 0100”

În oricare dintre foile „0001 ~ 0100”
Vreau să pot selecta celula A4 care conține deja textul „Înapoi la Master Asset”, apoi apăsați Enter, pentru a reveni automat la celula J3 din „Master Asset”

Mulțumesc în avans.
Andy C.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Andy Coghlan,
Nu găsesc o modalitate de a declanșa macrocomandă cu tasta Enter chiar acum. Următorul cod VBA poate insera același hyperlink în A4 din toate foile de lucru în același timp. După ce faceți clic pe hyperlink în A4, acesta va sări la J3 în „Master Asset”. Vă rugăm să încercați.

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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sub jumpnext()
Interval("F100").Selectați
End Sub

Ce modificare trebuie să fac pentru ca acest cod să poată fi utilizat pe toate foile registrului de lucru în același timp.

Salutari,
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Arvind,

Următorul cod VBA vă poate face o favoare. Vă rugăm să încercați. Mulțumesc.
Notă: trebuie să introduceți codul VBA în ThisWorkbook (Cod) Editor.
Sub jumpnext()
'Updated by Extendoffice 20230109
Set CurrWS = ActiveSheet
    For Each WS In ThisWorkbook.Worksheets
    WS.Activate
        WS.Range("F100").Select
    Next
    CurrWS.Activate
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/select-same-cell.png
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL