Jak ukryć kolumny na wielu arkuszach w skoroszycie?
W programie Excel możemy szybko ukryć kolumny w jednym arkuszu, ale czy kiedykolwiek próbowałeś ukryć kolumny w wielu arkuszach jednocześnie? Zwykle możesz spróbować zaznaczyć wszystkie arkusze i zastosować funkcję Ukryj, ale to nie zadziała. W tym artykule omówię, jak szybko ukryć kolumny w wielu arkuszach roboczych?
Ukryj kolumny w wielu arkuszach roboczych w skoroszycie z kodem VBA
Ukryj kolumny w wielu arkuszach roboczych w skoroszycie z kodem VBA
Poniższy kod może pomóc w natychmiastowym ukryciu określonych kolumn we wszystkich arkuszach roboczych, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Ukryj kolumny na wielu arkuszach jednocześnie:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okienko zachęty przypominające o wpisaniu kolumn, które chcesz ukryć we wszystkich arkuszach roboczych, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, określone kolumny zostały ukryte we wszystkich arkuszach jednocześnie.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!