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

الجمعة، 29 أبريل 2016

إخفاء وإظهار النطاقات المعرفة Hide Show Defined Ranges

السلام عليكم ورحمة الله وبركاته

أقدم لكم كودين أحدهما يقوم بإخفاء النطاقات المعرفة (أو النطاقات المسماة) Defined Ranges ، والآخر يقوم بإظهارها.

بفرض أن لديك بعض النطاقات المسماة في المصنف ، على سبيل المثال النطاق A1:C10 تم تسمية النطاق باسم MyData (وتتم التسمية بتحديد النطاق ثم وضع مؤشر الماوس في صندوق الاسم على يسار شريط المعادلات ثم كتابة اسم للنطاق ثم الضغط على مفتاح الإدخال إنتر)

ولديك أيضاً النطاق D11:G14 باسم MyRange 
 يمكن الإطلاع على النطاقات المسماة من خلال التبويب Formulas ثم Name Manager لتظهر لك نافذة تحتوي على تفاصيل النطاقات المسماة بهذا الشكل
المطلوب إخفاء تلك النطاقات وإظهارها ، وهذا ما أقدمه لكم من خلال هذين الكودين

Sub HideAllNames()
    Dim objName As Excel.Name
    If Not Application.ActiveWorkbook Is Nothing Then
        For Each objName In Application.ActiveWorkbook.Names
            objName.Visible = False
        Next objName
    End If
End Sub

Sub UnhideAllNames()
    Dim objName As Excel.Name
    If Not Application.ActiveWorkbook Is Nothing Then
        For Each objName In Application.ActiveWorkbook.Names
            objName.Visible = True
        Next objName
    End If
End Sub

إعداد / ياسر خليل أبو البراء

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

  1. جعل الله ما تعلمه للناس شفيعاً لك يوم الدين
    جزاك لله خيراً

    ردحذف
  2. وجزيت خيراً بمثل ما دعوت لي ومشكور على مرروك العطر بالموضوع

    ردحذف
  3. جزاك الله خيرا... وجعله في ميزان حسناتك

    ردحذف
  4. مشكور على دعائك الطيب أخي العزيز مهند

    ردحذف