كيفية إخفاء مربع الاختيار عندما يكون الصف مخفيًا في Excel؟
عادةً ، عند إخفاء صف يحتوي على مربعات اختيار في خلايا الصف ، لن يتم إخفاء مربعات الاختيار مع الصف ، ولكنها تتداخل مع محتوى الصف الآخر كما تظهر لقطة الشاشة اليسرى. كيفية إخفاء مربعات الاختيار عندما يكون الصف مخفيًا في Excel؟ هذه المقالة سوف تساعدك على حلها.
إخفاء خانة الاختيار عندما يكون الصف مخفيًا برمز VBA
إخفاء خانة الاختيار عندما يكون الصف مخفيًا برمز VBA
يمكنك تشغيل التعليمات البرمجية لـ VBA التالية لإخفاء مربعات الاختيار عندما يكون الصف مخفيًا في Excel.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تحتوي على مربعات الاختيار التي تريد إخفاءها ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز VBA أدناه في ملف رمز نافذة.
كود فبا: إخفاء خانة الاختيار عندما يكون الصف مخفيًا
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xChkBox As CheckBox
Dim xCell As Range
Dim xHide As Boolean
If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
Target.EntireRow.Hidden = xHide
For Each xChkBox In ActiveSheet.CheckBoxes
Set xCell = xChkBox.TopLeftCell
If Not Intersect(xCell, Target) Is Nothing Then
xChkBox.Visible = Not xHide
End If
Next
End If
End Sub
3. ثم اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
4. حدد الصف بأكمله مع مربعات الاختيار التي تريد إخفاءها ، ثم ينبثق مربع حوار ، يرجى النقر فوق نعم .
ثم يمكنك أن ترى جميع مربعات الاختيار مخفية مع الصف كما هو موضح أدناه لقطة الشاشة.
ملاحظات: لعرض الصف المخفي مع مربعات الاختيار ، يرجى تحديد الصفوف بأكملها بما في ذلك الصف المخفي ، وفي مربع الحوار المنبثق ، انقر فوق لا زر. ثم سيتم عرض الصف مع مربعات الاختيار.
مقالات ذات صلة:
- كيفية إخفاء الصفوف بناءً على تاريخ اليوم في إكسيل؟
- كيفية إخفاء / إظهار الصفوف أو الأعمدة بعلامة زائد أو ناقص في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!