Kako skriti stolpce na več listih v delovnem zvezku?

V Excelu lahko stolpce hitro skrijemo na enem delovnem listu, vendar, ali ste že kdaj poskusili skriti stolpce na več listih hkrati? Običajno lahko poskusite izbrati vse liste in uporabiti funkcijo Skrij, vendar ne bo delovala uspešno. V tem članku bom govoril o tem, kako hitro skriti stolpce na več delovnih listih?

Skrij stolpce na več delovnih listih v delovnem zvezku s kodo VBA

Skrij stolpce na več delovnih listih v delovnem zvezku s kodo VBA

Naslednja koda vam lahko pomaga takoj skriti določene stolpce na vseh delovnih listih. Naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Skrij stolpce na več listih hkrati:

 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. Nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, ki vas opomni, da vnesete stolpce, ki jih želite skriti na vseh delovnih listih, glejte posnetek zaslona:

4. In nato kliknite OK , so navedeni stolpci naenkrat skriti na vseh delovnih listih.