Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս հեռացնել բոլոր կոճակները կամ հրամանի կոճակները Excel- ում:

Այս հոդվածը խոսում է Excel- ում գործող թերթիկից բոլոր ձևի կառավարման կոճակները կամ հրամանի կոճակները հանելու մասին:

Հեռացրեք բոլոր կոճակները, ներառյալ ձևի կառավարման կոճակները և հրամանի կոճակները, ընտրելով բոլորը
Հեռացրեք բոլոր կոճակները, ներառյալ ձևի կառավարման կոճակները և հրամանի կոճակները, VBA կոդով
Հեռացրեք բոլոր ձևերի կառավարման կոճակները կամ հրամանի կոճակները VBA կոդով


Հեռացրեք բոլոր կոճակները, ներառյալ ձևի կառավարման կոճակները և հրամանի կոճակները, ընտրելով բոլորը

Խնդրում ենք արեք հետևյալը ՝ բոլոր աշխատանքային կոճակները (ներառյալ ձևի կառավարման կոճակները և հրամանի կոճակները) ակտիվ աշխատանքային թերթից հանելու համար:

1. Միացնել Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ, Տեսեք,

2. Ընտրեք հրամանի կոճակներից մեկը և սեղմեք այն Ctrl + A ստեղները `ընթացիկ աշխատանքային թերթի բոլոր կոճակները ընտրելու համար:

3. Սեղմեք ջնջել բոլոր ընտրված կոճակները ջնջելու բանալին:

ՆշումԵթե ​​այս աշխատաթերթում կան այլ օբյեկտներ, դրանք նույնպես կընտրվեն:


Հեռացրեք բոլոր կոճակները, ներառյալ ձևի կառավարման կոճակները և հրամանի կոճակները, VBA կոդով

Բացի այդ, Excel- ում ընթացիկ աշխատանքային թերթից բոլոր կոճակները հեռացնելու համար կարող եք դիմել ստորև VBA գրության:

1. Բացեք աշխատաթերթը պարունակում է այն կոճակները, որոնք ցանկանում եք հեռացնել, այնուհետև սեղմել այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:

VBA կոդ. Հեռացրեք բոլոր կոճակները ակտիվ թերթիկից

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. Սեղմեք F5 կոդը գործարկելու բանալին: Այնուհետև բոլոր կոճակները, ներառյալ ձևի կառավարման կոճակները և հրամանի կոճակները, անմիջապես հեռացվում են ընթացիկ աշխատաթերթից:


Հեռացրեք բոլոր ձևերի կառավարման կոճակները կամ հրամանի կոճակները VBA կոդով

Եթե ​​ցանկանում եք հեռացնել միայն ձևի կառավարման բոլոր կոճակները կամ բոլոր հրամանների կոճակները ակտիվ թերթից: Դրան հասնելու համար կարող եք փորձել ստորև բերված VBA կոդերը:

1. Բացեք աշխատաթերթը պարունակում է այն կոճակները, որոնք ցանկանում եք հեռացնել, այնուհետև սեղմել այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:

VBA կոդ. Հեռացրեք ձևի կառավարման բոլոր կոճակները ակտիվ թերթից

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

VBA կոդը. Հեռացրեք բոլոր հրամանների կոճակները ակտիվ թերթիկից

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար:

Այնուհետև ձևի կառավարման բոլոր կոճակները կամ բոլոր հրամանների կոճակները անմիջապես հեռացվում են ընթացիկ աշխատաթերթից:


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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how about if it is in userform? what is the code
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations