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

Jak vždy plovoucí příkazové tlačítko na listu v aplikaci Excel?

V některých případech možná budete potřebovat plovoucí příkazové tlačítko (ovládací prvky ActiveX), abyste se mohli s listem pohybovat bez ohledu na to, jak listováním listujete nahoru nebo dolů. Tento článek vám ukáže způsob, jak toho dosáhnout.

Vždy plovoucí příkazové tlačítko na listu s kódem VBA


Vždy plovoucí příkazové tlačítko na listu s kódem VBA

Chcete-li, aby se příkazové tlačítko vždy pohybovalo v listu, postupujte následovně.

1. V listu, který obsahuje příkazové tlačítko ovládacích prvků ActiveX, chcete, aby byl plovoucí, klikněte pravým tlačítkem na kartu listu a poté klikněte na Zobrazit kód z kontextové nabídky.

2. Ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Vytvořte příkazové tlačítko vždy plovoucí v listu

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        On Error GoTo 0
        With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
            CommandButton1.Top = .Top + 100
            CommandButton1.Left = .Left + 300
        End With
End Sub

Poznámka: v uvedeném kódu je CommandButton1 název tlačítka, které chcete mít vždy viditelné. Změňte to prosím podle svých potřeb.

3. Poté stiskněte tlačítko Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.

Od této chvíle bude příkazové tlačítko vždy plavat ve středu horní části listu s pohybem aktivní buňky, na kterou jste klikli, jak je uvedeno níže.

Poznámka: Tento VBA funguje pouze pro ovládací tlačítka ovládacích prvků ActiveX.


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
Hledal jsem příkaz / možnost, že když posouvám stránku dolů, vybraný text by měl plavat spolu s ním... Jak to udělat... Děkuji : Indian Booklet
Tento komentář byl moderátorem webu minimalizován
Vytvořte textové pole a poté jej při výběru změny přesuňte


Private Sub Worksheet_SelectionChange (ByVal Target As Excel. Range)
TextBox1.Text = AktivníCell.Value
S buňkami (Windows(1).ScrollRow, Windows(1).ScrollColumn)
TextBox1.Top = .Top + 100
TextBox1.Left = .Left + 300
Konec s
End Sub
Tento komentář byl moderátorem webu minimalizován
Není dobré QA – zkontrolujte své jméno na tlačítku. Pokud je toto zveřejněno, aby si to mohla webová komunita prohlédnout, co se skrývá v zákulisí kódu? :-)
Tento komentář byl moderátorem webu minimalizován
Díky jeho dobrému výběru buněk
Tento komentář byl moderátorem webu minimalizován
Funguje mi dobře. Díky
Tento komentář byl moderátorem webu minimalizován
Díky moc...fungovalo to...
Tento komentář byl moderátorem webu minimalizován
nepracuje
Tento komentář byl moderátorem webu minimalizován
vidět to nefunguje, posouvám se dolů a také příkazové tlačítko dolů, chci opravit v horní části pravé strany listu.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Když listujete v listu dolů, kliknutím změňte aktivní buňku na viditelnou oblast, aby fungovala. Děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Nefunguje :-(
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Když listujete v listu dolů, kliknutím změňte aktivní buňku na viditelnou oblast, aby fungovala. Děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Myslím, že by mělo specifikovat, že tlačítko musí být ActiveX, aby kód fungoval. ^.^'
Tento komentář byl moderátorem webu minimalizován
Myslím, že by mělo specifikovat, že tlačítko musí být ActiveX, aby kód fungoval. ^.^'
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
děkuji za připomenutí.
Tento komentář byl moderátorem webu minimalizován
funguje to dobře v jednom sešitu, teď jsem se pokusil udělat totéž v jiném sešitu a dostal jsem chybu při kompilaci kvůli změně výběru. Jsem ve vba docela nový - možná je to proto, že už mám soukromý dílčí worksheet_selectionchange? víte, jak to mohu opravit? 
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