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

Jak skrýt nebo odkrýt příkazové tlačítko na základě zadané hodnoty buňky v aplikaci Excel?

Předpokládejme, že ke spuštění skriptu VBA v listu používáte příkazové tlačítko. Když je skript VBA v některých případech nepoužíván, musíte místo zobrazení v listu skrýt příkazové tlačítko. A znovu jej zobrazit, když je potřeba skript VBA. Tento článek hovoří o skrytí nebo zobrazení příkazového tlačítka na základě zadané hodnoty buňky v aplikaci Excel. Postupujte prosím následovně.

Skrýt nebo zobrazit příkazové tlačítko na základě zadané hodnoty buňky s kódem VBA


Skrýt nebo zobrazit příkazové tlačítko na základě zadané hodnoty buňky s kódem VBA

Níže uvedený kód VBA můžete spustit a skrýt nebo odkrýt příkazové tlačítko na základě zadané hodnoty buňky v aplikaci Excel.

1. Klikněte pravým tlačítkem na kartu listu, která obsahuje příkazové tlačítko, které chcete zobrazit, a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

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

Kód VBA: Skrýt nebo zobrazit příkazové tlačítko na základě zadané hodnoty buňky

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

Poznámka: v kódu, Buňky (1, 1), 1 a CommandButton 1 označte, že CommandButton1 bude skrytý, když buňka A1 obsahuje číslo 1, a zobrazí se, pokud buňka A1 obsahuje jiné hodnoty kromě čísla 1. Viz níže uvedený snímek obrazovky. A můžete je změnit podle své potřeby.


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 (13)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
hola que tal, tengo un boton con macro, que me devuelve a una hoja 'menu', ale no quiero que ese boton aparezca en la hoja menu como le puedo hacer?'


Na zdraví.-
Tento komentář byl moderátorem webu minimalizován
Ahoj Sebastia,

Dónde debería mostrarse?
- Uno es la hoja de menu
- El botón está integrado en una hoja diferente, ne?
Tento komentář byl moderátorem webu minimalizován
Vložil jsem tento kód a zadal jsem název svého tlačítka (Dokončit), odkazoval jsem na referenční buňku (P11 - 16, 11), ale pokaždé, když provedu změnu v referenční buňce (P11), zobrazí se chyba kompilace a zvýrazní se Část kódu „.Finish“, která zdánlivě znamená, že název tlačítka, který jsem zadal, „Dokončit“ není na listu nalezen. Potvrdil jsem, jak v rozevírací oblasti vlevo od řádku vzorců, tak v oblasti „definovat název“ na kartě Vzorec, že ​​název mého tlačítka je ve skutečnosti „Dokončit“, ale stále to nefunguje.


Nějaká pomoc?
Tento komentář byl moderátorem webu minimalizován
Ahoj Bryce,
V pracovním listu jsem změnil název tlačítka na „Dokončit“ a funguje dobře bez zobrazení jakékoli chyby.
Nevadí vám otestovat kód v novém prázdném sešitu?
Děkujeme za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Použijte ovládací tlačítko ActiveX.
Tento komentář byl moderátorem webu minimalizován
Ahoj

Jsem nový VBA, vložil jsem tento kód do nového Excelu. Jedno CommnadButton na List1, ale kód nefunguje.

Musím před tím něco udělat?


Díky předem
Tento komentář byl moderátorem webu minimalizován
Soukromá dílčí tabulka_Změna (ByVal Target As Range)
Application.ScreenUpdating = False
If Cells(1, 1).Hodnota <> "1" Potom
Me.Shapes("Tlačítko 1").Visible = True
Jiný
Me.Shapes("Button 1") End If
Application.ScreenUpdating = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Z nějakého důvodu po přechodu tlačítka z neviditelného zpět na viditelné tlačítko již nefunguje. Pokud do kódu použiji alt + F11, vyberu sub XXX() a spustím s F5, kód funguje pro moje makro. Proč to nefunguje, když už kliknu na tlačítko? ve vlastnostech je 'Enabled' nastaveno na true
Tento komentář byl moderátorem webu minimalizován
Ahoj, el codigo esta bien? es que no me funciona y ya intente varias cosas para que funcione y nana, ayuda por favores es que lo necesito para algo importante :c
Tento komentář byl moderátorem webu minimalizován
Dobrý den!
Alguien sabe como puedo hacer para que el boton comando aparezca nebo desaparezca segun informationón de otra hoja?
El ejemplo está muy bueno, pero las celdas son de la misma hoja donde esta el boton. Potřebujete okultní a boton segun info de otra hoja.

Děkuji vám!
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Předpokládejme, že hodnota použitá k zobrazení nebo skrytí příkazového tlačítka se nachází v A1 of Sheet1a příkazové tlačítko se najde v Sheet2. Otevřete List1, klikněte pravým tlačítkem na kartu listu a klikněte Zobrazit kód. V otvoru Microsoft Visual Basic pro aplikace zkopírujte následující kód VBA do okna Sheet1 (Code) a poté stiskněte Další + F11 klíče pro jeho zavření.
Poznámka: Prosím změňte buňky(1, 1), "1"A"Sheet2„jak potřebuješ.
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Sheets("Sheet2").CommandButton1.Visible = True
    Else
        Sheets("Sheet2").CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Der Code funktioniert wie er ist prima.
Jejich würde nur gerne den Button bei jeder 0 and leeren Zelle ausblenden lassen. Irgendwie bekomme ich es nicht hin. Je funktioniert immer nur entweder nebo. Könnten Sie mir bitte weiter helfen danke
Tento komentář byl moderátorem webu minimalizován
Ahoj Christoph,

Promiň, nerozumím tomu, co myslíš. Pro přehlednost prosím připojte vzorový soubor nebo snímek obrazovky s vašimi daty a požadovanými výsledky.
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