الخميس، 26 سبتمبر 2019

اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية How to Show And unhide Sheets based on cell values

اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية


اهلا بكم متابعى موقع عالم الاوفيس

درس جديد من دروس اكسل  VBA وهو عن كيفية اظهار او اخفاء اورق عمل محددة بناء على محتوى الخلية وبالتحديد الخلية A1 او اى خلية فى العمود الاول (A)

يتم كل ذلك من خلال ماكرو سهل جدا وكود من اكواد  مكتبة اكسل  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




ليست هناك تعليقات:

إرسال تعليق

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة