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

Hoe een opdrachtknop te verbergen of zichtbaar te maken op basis van de opgegeven celwaarde in Excel?

Stel dat u een opdrachtknop gebruikt om een ​​VBA-script in uw werkblad te activeren. Wanneer het VBA-script in sommige gevallen niet wordt gebruikt, moet u de opdrachtknop verbergen in plaats van in het werkblad weer te geven. En geef het opnieuw weer wanneer het VBA-script nodig is. Dit artikel heeft het over het verbergen of tonen van een opdrachtknop op basis van een opgegeven celwaarde in Excel. Ga als volgt te werk.

Verberg of maak een opdrachtknop zichtbaar op basis van de opgegeven celwaarde met VBA-code


Verberg of maak een opdrachtknop zichtbaar op basis van de opgegeven celwaarde met VBA-code


U kunt de onderstaande VBA-code uitvoeren om een ​​opdrachtknop te verbergen of zichtbaar te maken op basis van de opgegeven celwaarde in Excel.

1. Klik met de rechtermuisknop op de bladtab die de Command-knop bevat die u wilt verbergen, en klik vervolgens Bekijk code vanuit het rechtsklikmenu.

2. In het opduiken Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het Code venster.

VBA-code: een opdrachtknop verbergen of zichtbaar maken op basis van de opgegeven celwaarde

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

Opmerking:: in de code, Cellen (1, 1), 1 en CommandoKnop1 geef aan dat de CommandButton1 wordt verborgen als cel A1 nummer 1 bevat, en wordt weergegeven als cel A1 andere waarden bevat dan nummer 1. Zie onderstaande schermafbeelding. En u kunt ze wijzigen op basis van uw behoefte.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (9)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
hola que tal, tengo un boton con macro, que me devuelve a una hoja 'menu', pero no quiero que ese boton aparezca en la hoja menu como le puedo hacer?'


vriendelijke groeten.-
Sebastian
Deze opmerking is gemaakt door de moderator op de site
Hallo Sebastian,

Dónde debería mostrarse?
- Uno es la hoja de menú
- El botón está integrado en una hoja diferente, niet?
Andreas
Deze opmerking is gemaakt door de moderator op de site
Ik heb deze code ingevoerd en mijn knopnaam ingevoerd (Finish), verwezen naar de referentiecel (P11 - 16, 11) maar elke keer dat ik een wijziging aanbreng in de referentiecel (P11) krijg ik een compileerfout en het benadrukt de Het gedeelte ".Finish" van de code, wat schijnbaar betekent dat de knopnaam die ik heb ingevoerd "Finish" niet op het werkblad staat. Ik heb zowel in de vervolgkeuzelijst links van de formulebalk als in het gebied "definieer naam" op het tabblad Formule bevestigd dat mijn knopnaam in feite "Voltooien" is, maar het werkt nog steeds niet.


Alle hulp?
Bryce
Deze opmerking is gemaakt door de moderator op de site
Hallo Bryce,
Ik heb de naam van de knop in mijn werkblad gewijzigd in "Voltooien" en het werkt goed zonder dat er fouten worden weergegeven.
Vind je het erg om de code in een nieuwe lege werkmap te testen?
Bedankt voor je reactie.
crystal
Deze opmerking is gemaakt door de moderator op de site
Gebruik de ActiveX-besturingsknop.
Jeremy
Deze opmerking is gemaakt door de moderator op de site
Hallo

Ik ben nieuw bij VBA, ik heb deze code in een nieuwe Excel gezet. Eén CommnadButton, op Blad1, maar de code werkt niet.

Moet ik hier iets voor doen?


Thanks in Advance
Et41
Deze opmerking is gemaakt door de moderator op de site
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Application.ScreenUpdating = False
Als Cellen (1, 1). Waarde <> "1" Dan
Me.Shapes ("Knop 1"). Zichtbaar = True
Anders
Me.Shapes ("Knop 1") Stop als
Application.ScreenUpdating = True
Einde sub
sdf
Deze opmerking is gemaakt door de moderator op de site
Om de een of andere reden nadat de knop van onzichtbaar terug naar zichtbaar is gegaan, werkt de knop niet meer. Als ik alt + F11 in de code selecteer, selecteer de XXX() sub en voer het uit met F5, de code werkt voor mijn macro. Waarom werkt het niet meer als ik op de knop klik? in eigenschappen 'Ingeschakeld' is ingesteld op waar
Jordan
Deze opmerking is gemaakt door de moderator op de site
hola, el codigo esta bien? es que no me funciona y ya intente varias cosas para que funcione y nana, ayuda por favor es que lo necesito para algo importante :c
lol
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties