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

Sut i guddio neu guddio Botwm Gorchymyn yn seiliedig ar werth celloedd penodol yn Excel?

Gan dybio eich bod yn defnyddio Botwm Gorchymyn i sbarduno sgript VBA yn eich taflen waith. Pan na fydd y sgript VBA yn cael ei defnyddio mewn rhai achosion, mae angen i chi wneud y Botwm Gorchymyn yn gudd yn lle ei arddangos yn y daflen waith. A'i arddangos eto pan fydd angen y sgript VBA. Mae'r erthygl hon yn sôn am guddio neu ddangos Botwm Gorchymyn yn seiliedig ar werth celloedd penodol yn Excel. Gwnewch fel a ganlyn.

Cuddio neu guddio Botwm Gorchymyn yn seiliedig ar werth celloedd penodol gyda chod VBA


Cuddio neu guddio Botwm Gorchymyn yn seiliedig ar werth celloedd penodol gyda chod VBA


Gallwch chi redeg y cod VBA isod i guddio neu agor Botwm Gorchymyn yn seiliedig ar werth celloedd penodedig yn Excel.

1. Cliciwch ar y dde ar y tab dalen sy'n cynnwys y Botwm Gorchymyn y mae angen i chi ddangos cuddio, yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn y popping up Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA isod i'r Côd ffenestr.

Cod VBA: Cuddio neu guddio Botwm Gorchymyn yn seiliedig ar werth penodol y gell

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

Nodyn: yn y cod, Celloedd (1, 1), 1 ac Botwm Gorchymyn1 nodwch y bydd y CommandButton1 yn cael ei guddio pan fydd cell A1 yn cynnwys rhif 1, a'i arddangos os yw cell A1 yn cynnwys unrhyw werthoedd eraill ac eithrio rhif 1. Gweler isod screenshot. A gallwch eu newid yn seiliedig ar eich angen.


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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?'


Lloniannau.-
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola Sebastia,

Dónde debería mostrarse?
— Uno es la hoja de menú
- El botón está integrado en una hoja diferente, nac ydy?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi rhoi'r cod hwn i mewn ac wedi nodi fy enw botwm (Gorffen), wedi cyfeirio at y gell gyfeirio (P11 - 16, 11) ond bob tro rwy'n gwneud newid i'r gell gyfeirio (P11) rwy'n cael gwall llunio ac mae'n amlygu'r Nid yw adran ".Gorffen" o'r cod, sy'n golygu bod yr enw botwm a roddais i "Gorffen" i'w gael ar y daflen waith. Rwyf wedi cadarnhau, yn y gwymplen i'r chwith o'r bar fformiwla ac yn yr ardal "diffinio enw" ar y tab Fformiwla mai fy enw botwm, mewn gwirionedd, yw "Gorffen", ond nid yw'n gweithio o hyd.


Unrhyw help?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Bryce,
Newidiais enw'r botwm i "Gorffen" yn fy nhaflen waith, ac mae'n gweithio'n dda heb unrhyw wall wrth arddangos.
Oes ots gennych chi brofi'r cod mewn llyfr gwaith gwag newydd?
Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiwch y botwm rheoli ActiveX.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo

Rwy'n newydd i VBA, rwyf wedi rhoi'r cod hwn i mewn i Excel newydd. Un CommnadButton, ar Daflen1 ond nid yw'r cod yn gweithio.

Oes rhaid i mi wneud unrhyw beth cyn hyn?


Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Application.ScreenUpdating = Anghywir
Os Celloedd(1, 1).Gwerth <> "1" Yna
Me.Shapes("Botwm 1"). Gweladwy = Gwir
arall
Me.Shapes ("Botwm 1") Diwedd Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Am ryw reswm ar ôl i'r botwm fynd o anweledig yn ôl i fod yn weladwy, nid yw'r botwm yn gweithio mwyach. Os byddaf yn alt + F11 i mewn i'r cod dewiswch yr is XXX() a rhedeg gyda F5 mae'r cod yn gweithio ar gyfer fy macro. Pam nad yw'n gweithio pan fyddaf yn clicio ar y botwm mwyach? mewn eiddo mae 'Galluogi' wedi'i osod yn wir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hola, el codigo esta bien? es que no me funciona ya intente varias cosas for funcione y nana, ayuda por favor es que lo necesito para algo importante :c
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo!
Alguien sabe como puedo hacer para que el boton comando aparezca o desaparezca segun información de otra hoja?
El ejemplo está muy bueno, pero las celdas son de la misma hoja donde esta el boton. Mae'n rhaid i chi wylio'r wybodaeth am y tro cyntaf.

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Tybiwch, mae'r gwerth a ddefnyddir i arddangos neu guddio'r botwm gorchymyn yn lleoli ynddo A1 of Sheet1, ac mae'r botwm coman yn lleoli i mewn Sheet2. Os gwelwch yn dda agorwch y Daflen 1, cliciwch ar y dde ar y tab taflen a chliciwch Gweld y Cod. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch y cod VBA canlynol i'r ffenestr Sheet1 (Cod), ac yna pwyswch y Alt + F11 allweddi i'w gau.
Nodyn: Newidiwch Gelloedd (1, 1), "1"A"Sheet2"yn ôl yr angen.
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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir