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

Ինչպե՞ս աշխատանքային գրքում թաքցնել սյունները բազմաթիվ թերթերի վրա:

Excel- ում մենք կարող ենք արագ թաքցնել սյունները մեկ աշխատանքային թերթում, բայց երբևէ փորձե՞լ եք սյունները թաքցնել միանգամից մի քանի թերթերի միջև: Սովորաբար, կարող եք փորձել ընտրել բոլոր թերթերը և կիրառել «Թաքցնել» հատկությունը, բայց այն հաջող չի գործի: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես արագ թաքցնել սյունակները բազմաթիվ աշխատանքային թերթերի միջև:

Թաքցրեք սյունակները մի քանի աշխատանքային թերթերի վրա VBA կոդով աշխատանքային գրքում


նետ կապույտ աջ պղպջակ Թաքցրեք սյունակները մի քանի աշխատանքային թերթերի վրա VBA կոդով աշխատանքային գրքում

Հետևյալ կոդը կարող է օգնել ձեզ հատուկ սյունակներ թաքցնել բոլոր աշխատանքային թերթերում անմիջապես, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Թաքցնել սյունակները միանգամից մի քանի թերթերի վրա.

 Sub Hide_Columns()
'Updateby Extendoffice
    Dim iWs As Integer
    Dim sCol As String
    On Error Resume Next
    sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
                                "Kutools for Excel", , , , , , 2)
    If sCol = "" Then
        MsgBox "Empty columns", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    For iWs = 1 To ThisWorkbook.Worksheets.Count
        ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
    Next iWs
    On Error GoTo 0
End Sub

3, Դրանից հետո սեղմեք F5 Այս կոդն աշխատեցնելու բանալին, և հուշվում է արագ տուփ ՝ հիշեցնելու համար, որ մուտքագրեք սյունակները, որոնք ցանկանում եք թաքցնել բոլոր աշխատանքային թերթերում, տե՛ս նկարը.

doc թաքցնել սյունակները բոլոր թերթերը 1

4. Եվ հետո կտտացրեք OK կոճակը, ձեր նշված սյունները միանգամից թաքնված են բոլոր աշխատանքային թերթերում:

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

🤖 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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I do this for rows?
This comment was minimized by the moderator on the site
And the VBA for unhiding the multiple columns as well.

Thank you in advance and God bless
This comment was minimized by the moderator on the site
Hi, Treb,
To show all the hidden columns from the whole workbook, please apply the below VBA code:
Sub ShowHiddenColumns()
Dim iWs As Integer
Dim sCol As String
On Error Resume Next
For iWs = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Sheets(iWs).Columns.Hidden = False
Next iWs
On Error GoTo 0
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
I try to use this VBA code that you made to hide multiple columns in a multiple worksheets.. But How can I use it with out a message Box...

Please kindly help me to make a VBA that will hide the multiple columns in all worksheets at once with out having a lot of message box?..


I badly needed such a code.


Please help
This comment was minimized by the moderator on the site
Hello, Treb,
The popped out message box can help you to enter the hidden columns you need conveniently and dynamically.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations