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

Jak automaticky přesunout kurzor na konkrétní buňku v aplikaci Excel?

Někdy možná budete muset z nějakého důvodu přeskočit do konkrétní buňky. Tento článek podrobně popisuje metody přesunu kurzoru na konkrétní buňku.

Automaticky přesuňte kurzor na konkrétní buňku pomocí pole Název
Automatické přesunutí kurzoru do konkrétní buňky pomocí kódu VBA


Automaticky přesuňte kurzor na konkrétní buňku pomocí pole Název

Pole Název vám pomůže snadno přesunout kurzor na konkrétní buňku v aplikaci Excel.

1. V Název produktu do pole, zadejte konkrétní odkaz na buňku, na který skočíte, a poté stiskněte vstoupit klíč.

Poté se kurzor okamžitě přesune do určené buňky.

Poznámka: Pokud potřebujete přejít na zadanou buňku v jiném listu, například přejít na buňku C30 v listu 2, zadejte List2! C30 do pole Název a potom stiskněte klávesu Enter.


Automatické přesunutí kurzoru do konkrétní buňky pomocí kódu VBA

Následující kód VBA vám pomůže přejít do konkrétní buňky najednou v aplikaci Excel.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, poklepejte na Tjeho pracovní kniha v levém podokně otevřete ThisWorkbook (kód) okno. Poté zkopírujte a vložte níže uvedený kód VBA do okna.

Kód VBA: Přesunutí na začátek nebo začátek dalšího řádku pro zadávání dat

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

Poznámka: V kódu je F100 zadaná buňka, do které skočíte. Můžete to změnit podle potřeby.

3. zmáčkni F5 klávesu ke spuštění kódu, pak se kurzor okamžitě přesune do buňky F100 v aktuálním listu.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (15)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Chtěl bych vytvořit makro, které se bude pohybovat z jedné buňky do druhé, krok za krokem.
Tento komentář byl moderátorem webu minimalizován
To je užitečné díky. Chtěl bych však mít vzorec jako argument pro funkci „Rozsah“. Je to přípustné? Co bych chtěl udělat, je nechat uživatele zadat číslo do dialogového okna, pak vyhledat první výskyt tohoto čísla v rozsahu buněk a poté přeskočit kurzor na tuto buňku...
Tento komentář byl moderátorem webu minimalizován
Hi Steve,
S tím vám bohužel nepomůžu.
Tento komentář byl moderátorem webu minimalizován
Jak se přesune kurzor z buňky E6 na F8, jakmile budou data vložena do E6? Chtěl bych, aby kurzor ignoroval všechny ostatní řádky ve sloupci E a okamžitě přeskočil na E6.
Tento komentář byl moderátorem webu minimalizován
Omlouvám se, chci napsat "okamžitě přejít na F8"
Tento komentář byl moderátorem webu minimalizován
Ahoj James,
Zkuste prosím níže uvedený kód. Po zadání dat do E6 stiskněte klávesu Tab nebo Enter a kurzor okamžitě přeskočí na F8.

Soukromá dílčí tabulka_Změna (ByVal Target As Range)

'Aktualizováno Extendoffice 2020087

Ztlumit tabArray jako variantu

Dim i tak dlouho

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

Application.ScreenUpdating = False

Pro i = LBound(tabArray) To UBound(tabArray)

Pokud tabArray(i) = Target.Address(0, 0) Then

If i = UBound(tabArray) Then

Me.Range(tabArray(LBound(tabArray))).Vybrat

Jiný

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

End If

End If

Příště já

Application.ScreenUpdating = True

End Sub
Tento komentář byl moderátorem webu minimalizován
Je možné posunout aktivní buňku bez stisknutí klávesy na klávesnici? Mohu například nechat buňku posunout dolů, jakmile se zaplní buňka nad ní? Hledám buď funkci, nebo VBA, která se spustí, když je buňka plná. Jakmile A3 obsahuje znaky, existuje VBA pro přesun aktivní buňky dolů na A4?
Tento komentář byl moderátorem webu minimalizován
Ahoj Johne,
Jsem zmatený z vaší otázky. Jak můžeme vědět, zda je buňka dokončena s úpravami?
Tento komentář byl moderátorem webu minimalizován
nepodepsal jsi F5 pro kód, jak to poběží stisknutím F5?
Tento komentář byl moderátorem webu minimalizován
Bagiaimana mengisi textbox pada form dengan memilih data di cell/sheet yg dipilih dgn kursor ?
Tento komentář byl moderátorem webu minimalizován
Ahoj Lelson,
Promiň, nerozumím tomu, co myslíš. Nevadilo by vám poskytnout snímek obrazovky vašich dat? Nebo zkuste být ve své otázce konkrétnější. Omluvám se za nepříjemnost.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Můžete mi prosím pomoci s následující žádostí o kód VBA?

List 1 se nazývá „Master Asset“ s dalšími 100 listy pojmenovanými jako „0001...0002...0003....0004 ~ 0100“

V každém z listů "0001 ~ 0100"
Chci mít možnost vybrat buňku A4, která již obsahuje text „Zpět na hlavní aktivum“, a poté stisknout Enter, aby se automaticky skočil zpět do buňky J3 v „hlavním aktivu“

Díky předem.
Andy C.
Tento komentář byl moderátorem webu minimalizován
Ahoj Andy Coghlan,
Momentálně nemohu najít způsob, jak spustit makro klávesou enter. Následující kód VBA může vložit stejný hypertextový odkaz do formátu A4 všech listů současně. Po kliknutí na hypertextový odkaz v A4 přeskočí na J3 v "Hlavním aktivu". Zkuste to prosím.

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
Tento komentář byl moderátorem webu minimalizován
Vedlejší skok()
Rozsah("F100").Vyberte
End Sub

Jakou změnu musím udělat, aby bylo možné tento kód použít na všech listech sešitu současně.

Pozdravy,
Tento komentář byl moderátorem webu minimalizován
ahoj arvind,

Následující kód VBA vám může pomoci. Zkuste to prosím. Děkuji.
Poznámka: Musíte vložit kód VBA do Tento sešit (kód) 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
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL