كيفية تحديد النطاق بناءً على قيمة الخلية في عمود آخر في Excel؟
في هذه المقالة ، سأتحدث عن كيفية تحديد النطاقات بناءً على قيمة الخلية في عمود آخر. خذ مثالاً ، إذا كانت الخلايا تعرض FALSE في العمود C ، فسيتم تحديد الخلايا النسبية في العمود A والعمود B كما هو موضح أدناه لقطة الشاشة. لا توجد ميزة مضمنة يمكنها مساعدتك في حل هذه المهمة ، ولكن في هذه المقالة ، يمكنني التعامل معها باستخدام رمز VBA.
حدد النطاق بناءً على قيمة الخلية في عمود آخر بواسطة رمز VBA
حدد النطاق بناءً على قيمة الخلية في عمود آخر بواسطة رمز VBA
حدد النطاق بناءً على قيمة الخلية في عمود آخر بواسطة رمز VBA
1. قم بتمكين الورقة التي تريد استخدامها ، ثم اضغط على ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ثم الصق الكود أدناه في ملف وحدة نافذة.
فبا: حدد النطاق بناءً على قيمة الخلية
Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
Dim lastrow As Long
Dim xRg As Range, yRg As Range
'change Sheet1 to suit
With ThisWorkbook.Worksheets("Sheet2")
lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = False
For Each xRg In .Range("C1:C" & lastrow)
If UCase(xRg.Text) = "FALSE" Then
If yRg Is Nothing Then
Set yRg = .Range("A" & xRg.Row).Resize(, 2)
Else
Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
End If
End If
Next xRg
Application.ScreenUpdating = True
End With
If Not yRg Is Nothing Then yRg.Select
End Sub
3. صحافة F5 مفتاح لتشغيل VBA ، ثم تم تحديد النطاقات بناءً على القيم الموجودة في العمود C.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!