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

كيفية إخفاء أو إظهار الصفوف أو الأعمدة المحددة عند النقر المزدوج فوق خلية في إكسيل؟

عادةً ، يمكن إخفاء الصفوف والأعمدة أو عرضها بالنقر بزر الماوس الأيمن وتحديد خيار إخفاء أو إظهار من قائمة السياق. في هذه المقالة ، نتحدث عن إخفاء أو عرض صفوف أو أعمدة محددة بسرعة عن طريق النقر المزدوج فوق خلية في Excel.

إخفاء أو إظهار الصفوف أو الأعمدة المحددة عند النقر المزدوج فوق خلية مع التعليمات البرمجية لـ VBA

إخفاء أو إظهار الصفوف أو الأعمدة المحددة عند النقر المزدوج فوق خلية مع التعليمات البرمجية لـ VBA

يمكن أن تساعدك أكواد VBA التالية في إخفاء أو إظهار صفوف أو أعمدة محددة بسرعة في ورقة العمل عن طريق النقر المزدوج فوق خلية معينة. الرجاء القيام بما يلي.

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

2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ رمز VBA التالي في نافذة التعليمات البرمجية.

فبا: إخفاء / إظهار الصفوف المحددة بالنقر المزدوج فوق الخلايا في ورقة العمل:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA: إخفاء/إظهار الأعمدة المحددة عن طريق النقر المزدوج فوق الخلايا في ورقة العمل:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

ملاحظات: في الكود ، A1: A4, 10:13 و د: ه الإشارة إلى أنه عند النقر المزدوج على أي خلية من النطاق A1:A4، سيتم إخفاء الصف 10:13 أو العمود D:E تلقائيًا.

3. اضغط على قديم + F11 مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدًا، عند النقر المزدوج على أي خلية في النطاق A1:A4، سيتم إخفاء الصف 10:13 أو العمود D:E تلقائيًا. ثم قم بالنقر المزدوج على الخلية مرة أخرى لعرض كافة الصفوف أو الأعمدة المخفية على الفور.

مقالات ذات صلة:

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

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

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

الوصف

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
Donzel Paul
Donzel Paul
This comment was minimized by the moderator on the site
This helped a lot but i'm trying to do this but everything starts hidden and hide and unhide isolated cells rather than a range? thanks!
Reply
Report
0
0
mjoakim
mjoakim
This comment was minimized by the moderator on the site
This is very cool and extremely helpful. However, I want to repeat the same code for different sets of rows to hide when clicking on different cells. How can I use the same code multiple times in one sheet so that the code name is not the same? Thank you!
Reply
Report
0
0
crystal
crystal     mjoakim
This comment was minimized by the moderator on the site
Hi,If you want to hide different sets of rows when clicking on different cells, please try to modify the cells and row numbers in below code.The below code can achieve: when double clicking A1, the row "10:13" will be hidden; when double clicking A2, the row "15:20" will be hidden, and double clicking A3 will hide row "22:23". If you want to add more conditions, please copy the code lines from If to End If and modify the cells and row numbers as you need.<div data-tag="code">Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20210409
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("10:13")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
If (Not Intersect(Target, Range("A2")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("15:20")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
If (Not Intersect(Target, Range("A3")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("22:23")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
End Sub
Reply
Report
0
0
via
via     crystal
This comment was minimized by the moderator on the site
This is so helpful! I'm wondering if their is anyway to be able to add additional 'hidden' rows over time without having to shift all the numbers in the code to make everything line up properly? Thanks so much!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations