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

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

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

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


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

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-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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?'


Ողջույն.-
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հոլա Սեբաստիա,

Արդյո՞ք դեբերիա ամենակարևորը:
- Uno es la hoja de menú
- El botón está integrado en una hoja diferente, չէ՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես տեղադրել եմ այս կոդը և մուտքագրել եմ իմ կոճակի անունը (Finish), հղում եմ արել հղման բջիջին (P11 - 16, 11), բայց ամեն անգամ, երբ ես փոփոխություն եմ կատարում հղումային բջիջում (P11), ես ստանում եմ կոմպիլյացիայի սխալ, և այն ընդգծում է Կոդի «.Finish» բաժինը, որը կարծես նշանակում է, որ կոճակի անունը, որը ես մուտքագրել եմ «Finish», չի գտնվել աշխատաթերթում: Ես հաստատել եմ և՛ բանաձևի տողի ձախ կողմում գտնվող բացվող հատվածում, և՛ Բանաձևի ներդիրի «սահմանել անունը» տարածքում, որ իմ կոճակի անունը իրականում «Ավարտել» է, բայց այն դեռ չի աշխատում:


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

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

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


Շնորհակալ եմ նախապես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ-ինչ պատճառներով այն բանից հետո, երբ կոճակը անտեսանելիից տեսանելի է դառնում, կոճակն այլևս չի աշխատում: Եթե ​​ես alt + F11 կոդի մեջ ընտրեմ XXX() ենթակետը և գործարկեմ F5-ով, ապա կոդը աշխատում է իմ մակրոյի համար: Ինչո՞ւ այն այլևս չի աշխատում, երբ ես սեղմում եմ կոճակը: հատկություններում «Միացված է» դրված է ճշմարիտ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հոլա, էլ կոդիգո էստա բին? 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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ենթադրենք, հրամանի կոճակը ցուցադրելու կամ թաքցնելու համար օգտագործվող արժեքը գտնվում է այնտեղ 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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քրիստոֆ,

Կներեք, ես չեմ հասկանում, թե ինչ նկատի ունեք: Պարզության համար խնդրում ենք կցել նմուշ ֆայլ կամ սքրինշոթ՝ ձեր տվյալների և ցանկալի արդյունքների հետ:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից