Unhiding flere regneark

October 27  by Eliza

Når du velger å skjule regneark i en arbeidsbok, kan Excel du å skjule flere ark med én handling: alt du trenger å gjøre er å velge arkene før de faktisk gjør det gjemmer seg. Unhiding regneark er en annen historie, men. Excel bare tillater deg å unhide en om gangen. Hvis du har mange regneark du ønsker å unhide, kan dette være veldig kjedelig.

Den eneste måten rundt dette er å bruke en makro til unhide regnearkene. Følgende VBA-makro vil unhide alle regnearkene i den gjeldende arbeidsboken:

Sub UnhideAllSheets ()
Dim wsSheet Som regneark

For Hver wsSheet I ActiveWorkbook.Worksheets
wsSheet.Visible = xlSheetVisible
Neste wsSheet
End Sub

Hvis du vil heller ikke unhide alle regnearkene på en gang, kan du føre til at makro for å spørre om hver skjult regneark og deretter unhide hvert som du godtar å unhide. Følgende makro vil håndtere denne oppgaven:

Sub UnhideSomeSheets ()
Dim sSheetName As String
Dim sMessage As String
Dim Msgres Som VbMsgBoxResult

For Hver wsSheet I ActiveWorkbook.Worksheets
Hvis wsSheet.Visible = xlSheetHidden Deretter
sSheetName = wsSheet.Name
sMessage = "unhide følgende ark?" _
& VbNewLine & sSheetName
Msgres = MsgBox (sMessage, vbYesNo)
Hvis Msgres = vbYes Deretter wsSheet.Visible = xlSheetVisible
End If
Neste wsSheet
End Sub

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (9636) gjelder for Microsoft Excel 2007, 2010, og 2013. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet av Excel her: unhiding flere regneark.