اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية
اهلا بكم متابعى موقع عالم الاوفيس
يتم كل ذلك من خلال ماكرو سهل جدا وكود من اكواد مكتبة اكسل VBA
Option Explicit
Sub hide_show_sheets()
Dim ws As Worksheet, c As Range
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws
On Error Resume Next
For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
Worksheets(c.Value).Visible = xlSheetVisible
Next c
End Sub
تعليقات: 0
إرسال تعليق