انتقل إلى المحتوى الرئيسي

كيفية إخفاء الأعمدة في الوقت الفعلي بناءً على مدخلات المستخدم في Excel؟

قد يكون إخفاء الأعمدة في Excel مهمة شائعة بالنسبة لمعظمنا ، ولكن هل سبق لك أن حاولت إخفاء الأعمدة تلقائيًا بناءً على بعض قيم الإدخال المحددة؟ على سبيل المثال ، عندما أدخل النص "AA" في خلية ، يكون العمود A مخفيًا ؛ عندما أدخل "BB" ، يتم إخفاء العمود B و C ؛ عند إدخال "CC" ، يتم إخفاء العمود D و E ؛ عند إدخال "DD" ، يتم إخفاء العمود F كما هو موضح أدناه العرض التوضيحي. ستنشئ هذه المقالة رمز VBA لحلها في Excel.

إخفاء أو إظهار الأعمدة في الوقت الفعلي بناءً على إدخال المستخدم برمز VBA

إخفاء أو إظهار الأعمدة لتصفية البيانات بناءً على إدخال المستخدم برمز VBA


إخفاء أو إظهار الأعمدة في الوقت الفعلي بناءً على إدخال المستخدم برمز VBA

لإخفاء الأعمدة المحددة في الوقت الفعلي بناءً على قيم الإدخال ، يرجى تطبيق رمز VBA أدناه:

1. في ورقة العمل حيث تريد إخفاء الأعمدة ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة السياق ، انظر لقطة الشاشة

2. في فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز VBA التالي في ملف ورقة (كود) نافذة.

كود فبا: إخفاء الأعمدة في الوقت الحقيقي بناءً على مدخلات المستخدم

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
ملاحظات: في الكود أعلاه ، K1 هي الخلية التي تدخل فيها النص المحدد ، ويجب عليك تغيير النصوص وأسماء الأعمدة حسب حاجتك. بالإضافة إلى ذلك ، يمكنك إضافة معايير جديدة أخرى فقط عن طريق إضافة البرامج النصية التالية:
  • الحالة "AA": الأعمدة ("A"). EntireColumn.Hidden = False
  • الأعمدة ("A"). EntireColumn.Hidden = True

3. ثم أغلق نافذة الكود. الآن ، عند إدخال "AA" في الخلية K1 ، واضغط على أدخل المفتاح ، العمود A مخفي ؛ عند دخول "BB" ، واضغط أدخل المفتاح ، يتم إخفاء العمود B و C ، وهكذا. إذا أدخلت أي قيمة أخرى أو حذفت المحتوى ، فسيتم عرض الأعمدة المخفية مرة واحدة ، انظر العرض التوضيحي أدناه:


إخفاء أو إظهار الأعمدة لتصفية البيانات بناءً على إدخال المستخدم برمز VBA

في هذا المثال ، سأنتقل إلى تصفية نطاق بيانات بناءً على اسم منتج تم إدخاله. عندما أدخل "Hoodie" ، يتم عرض معلومات Hoodie فقط وسيتم إخفاء الأعمدة الأخرى مرة واحدة ؛ وعندما أدخل "الكل" ، سيتم عرض جميع الأعمدة كما هو موضح أدناه العرض التوضيحي:

1. في ورقة العمل حيث تريد إخفاء الأعمدة ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة السياق ، انظر لقطة الشاشة:

2. في فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز VBA التالي في ملف ورقة (كود) نافذة.

كود فبا: إخفاء أو إظهار الأعمدة لتصفية البيانات بناءً على إدخال المستخدم

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub
ملاحظات: في الكود أعلاه ، K1 هي الخلية التي تدخل فيها النص المحدد ، B1: H1 هي رؤوس الصفوف التي تحتوي على اسم المنتج الذي تريد تصفيته.

3. ثم أغلق نافذة الكود. الآن ، إذا أدخلت اسم المنتج في الخلية K1 ، فسيتم عرض الأعمدة المقابلة فقط ، وسيتم إخفاء الأعمدة الأخرى ؛ وإذا أدخلت النص "الكل" ، فستظهر جميع الأعمدة كما هو موضح أدناه العرض التوضيحي:

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations