Ինչպե՞ս թաքցնել կամ ցուցադրել հրամանի կոճակը Excel- ում նշված բջջային արժեքի հիման վրա:

Ենթադրելով, որ դուք օգտագործում եք հրամանի կոճակ ձեր աշխատաթերթում VBA սցենար հրահրելու համար: Երբ որոշ դեպքերում VBA գրությունը չօգտագործված է, դուք պետք է հրամանի կոճակը թաքցնեք ՝ աշխատանքային թերթում ցուցադրելու փոխարեն: Եվ կրկին ցուցադրեք այն, երբ անհրաժեշտ է VBA գրությունը: Այս հոդվածը խոսում է Excel- ում նշված բջջային արժեքի հիման վրա հրամանի կոճակը թաքցնելու կամ ցույց տալու մասին: Խնդրում եմ, արեք հետևյալ կերպ.

Թաքցնել կամ ցուցադրել հրամանի կոճակը, որը հիմնված է VBA կոդով նշված բջջային արժեքի վրա

Թաքցնել կամ ցուցադրել հրամանի կոճակը, որը հիմնված է VBA կոդով նշված բջջային արժեքի վրա

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

Excel- ում նշված բջջային արժեքի հիման վրա հրամանի կոճակը թաքցնելու կամ ցուցադրելու համար կարող եք գործարկել ստորև ներկայացված VBA կոդը:

1. Աջ կտտացրեք թերթիկի ներդիրին, որը պարունակում է հրամանի կոճակը, որը դուք պետք է ցույց տաք, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

2. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք ներքևի VBA կոդը ՝ Կոդ պատուհան.

VBA կոդ. Թաքցնել կամ ցուցադրել հրամանի կոճակը ՝ ելնելով նշված բջջային արժեքից

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

Նշում: ծածկագրում, Բջիջներ (1, 1), 1 և CommandButton1 նշեք, որ CommandButton1- ը թաքնված կլինի, երբ A1 բջիջը պարունակում է թիվ 1, և կցուցադրվի, եթե A1 բջիջը պարունակում է այլ արժեքներ, բացառությամբ թիվ 1-ի: Տե՛ս ստորև նշված նկարը: Եվ դրանք կարող եք փոխել ՝ ելնելով ձեր կարիքներից:

Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

մեկնաբանություններ (13)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Sebastian

մոտ 4 տարի առաջ

#26729

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

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?'

Ողջույն.-

պատասխանել

Andreas Sebastian

մոտ 1 տարի առաջ

#26730

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Հոլա Սեբաստիա,

Արդյո՞ք դեբերիա ամենակարևորը:
- Uno es la hoja de menú
- El botón está integrado en una hoja diferente, չէ՞:

պատասխանել

Bryce

մոտ 4 տարի առաջ

#26915

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ես տեղադրել եմ այս կոդը և մուտքագրել եմ իմ կոճակի անունը (Finish), հղում եմ արել հղման բջիջին (P11 - 16, 11), բայց ամեն անգամ, երբ ես փոփոխություն եմ կատարում հղումային բջիջում (P11), ես ստանում եմ կոմպիլյացիայի սխալ, և այն ընդգծում է Կոդի «.Finish» բաժինը, որը կարծես նշանակում է, որ կոճակի անունը, որը ես մուտքագրել եմ «Finish», չի գտնվել աշխատաթերթում: Ես հաստատել եմ և՛ բանաձևի տողի ձախ կողմում գտնվող բացվող հատվածում, և՛ Բանաձևի ներդիրի «սահմանել անունը» տարածքում, որ իմ կոճակի անունը իրականում «Ավարտել» է, բայց այն դեռ չի աշխատում:

Ցանկացած օգնություն:

պատասխանել

բյուրեղապակի Bryce

մոտ 4 տարի առաջ

#26916

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Բրայս,
Ես փոխել եմ կոճակի անունը «Finish» իմ աշխատաթերթում, և այն լավ է աշխատում՝ առանց որևէ սխալի:
Դեմ չե՞ք փորձարկել կոդը նոր դատարկ աշխատանքային գրքում:
Շնորհակալություն մեկնաբանության համար:

պատասխանել

հաշվետվություն

Jeremy

մոտ 3 տարի առաջ

#30267

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Օգտագործեք ActiveX Control կոճակը:

պատասխանել

Et41

մոտ 3 տարի առաջ

#31451

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարեւ Ձեզ

Ես նոր եմ VBA-ում, այս կոդը տեղադրել եմ նոր Excel-ում: Մեկ CommnadButton, Sheet1-ում, բայց կոդը չի աշխատում:

Մինչ այս ես պետք է ինչ-որ բան անեմ:

Շնորհակալ եմ նախապես

պատասխանել

sdf

մոտ 1 տարի առաջ

#34860

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Private Sub Worksheet_Change (ByVal Target as Range)
Դիմում. ScreenUpdating = Սուտ է
If Cells(1, 1).Value <> «1» Այնուհետեւ
Me.Shapes("Button 1").Visible = True
Ուրիշ
Me.Shapes ("Button 1") Վերջ Եթե
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

պատասխանել

Jordan

մոտ 1 տարի առաջ

#35433

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչ-ինչ պատճառներով այն բանից հետո, երբ կոճակը անտեսանելիից տեսանելի է դառնում, կոճակն այլևս չի աշխատում: Եթե ես alt + F11 կոդի մեջ ընտրեմ XXX() ենթակետը և գործարկեմ F5-ով, ապա կոդը աշխատում է իմ մակրոյի համար: Ինչո՞ւ այն այլևս չի աշխատում, երբ ես սեղմում եմ կոճակը: հատկություններում «Միացված է» դրված է ճշմարիտ

պատասխանել

LOL

մոտ 1 տարի առաջ

#35512

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

հոլա, էլ կոդիգո էստա բին? 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

պատասխանել

Laura

մոտ 8 ամիս առաջ

#38116

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Hello!
Alguien sabe como puedo hacer para que el boton comando aparezca կամ desaparezca segun información de otra hoja?
El ejemplo está muy bueno, pero las Celdas son de la misma hoja donde esta el boton. Յո անհրաժեշտ է օկուլթար ու բոտոն ինֆո օտրա հոջա:

Thank you!

պատասխանել

բյուրեղապակի Laura

մոտ 8 ամիս առաջ

#38130

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջու՜յն,
Ենթադրենք, հրամանի կոճակը ցուցադրելու կամ թաքցնելու համար օգտագործվող արժեքը գտնվում է այնտեղ A1 of Sheet1, և հրամանի կոճակը գտնվում է այնտեղ Sheet2. Խնդրում ենք բացել Sheet1-ը, աջ սեղմել թերթի ներդիրին և սեղմել Դիտել կոդը, Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանում, պատճենեք հետևյալ VBA կոդը Sheet1 (Code) պատուհանում, այնուհետև սեղմեք կոճակը ալտ + F11 բանալիներ այն փակելու համար:
ՆշումԽնդրում ենք փոխել բջիջները (1, 1),"1"Եւ"Sheet2«ինչպես պետք է:

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

պատասխանել

հաշվետվություն

Christoph

մոտ 1 ամիս առաջ

#42083

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Der Code funktioniert wie er ist prima.
Ich würde nur gerne den Button bei jeder 0 und leeren Zelle ausblenden lassen. Irgendwie bekomme ich es nicht hin. Es funktioniert immer nur entweder oder. Könnten Sie mir bitte weiter helfen danke

պատասխանել

բյուրեղապակի Christoph

մոտ 1 ամիս առաջ

#42191

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Քրիստոֆ,

Կներեք, ես չեմ հասկանում, թե ինչ նկատի ունեք: Պարզության համար խնդրում ենք կցել նմուշ ֆայլ կամ սքրինշոթ՝ ձեր տվյալների և ցանկալի արդյունքների հետ:

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները