كيفية تحديد النطاق بناءً على قيمة الخلية في عمود آخر في Excel؟

في هذه المقالة، سأتحدث عن كيفية تحديد نطاقات بناءً على قيمة الخلية في عمود آخر. على سبيل المثال، إذا كانت الخلايا تعرض القيمة FALSE في العمود C، سيتم تحديد الخلايا المرتبطة في العمود A والعمود B كما هو موضح في لقطة الشاشة أدناه. لا توجد ميزة مضمنة لحل هذه المهمة، ولكن في هذه المقالة، سأوضح لك كيفية التعامل معها باستخدام كود VBA.

تحديد النطاق بناءً على قيمة الخلية في عمود آخر بواسطة كود VBA

تحديد النطاق بناءً على قيمة الخلية في عمود آخر بواسطة كود VBA

تحديد النطاق بناءً على قيمة الخلية في عمود آخر بواسطة كود VBA

1. قم بتمكين ورقة العمل التي تريد استخدامها، واضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم انسخ الكود أدناه إلى نافذة الوحدة الجديدة.

VBA: تحديد النطاق بناءً على قيمة الخلية

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.

ملاحظة: في البرنامج النصي VBA، Sheet2 هو اسم ورقة العمل النشطة، C يشير إلى العمود الذي تريد التحديد بناءً عليه، A و 2 في ("A" & xRg.Row).Resize(, 2) يشير إلى تحديد عمودين بدءًا من العمود A. يمكنك تغيير المراجع حسب الحاجة.

نصيحة: إذا كنت تريد تحديد الخلايا التي تساوي قيمة محددة بسرعة، جرب استخدام أداة Kutools لـ Excel’s Select Specific Cells كما هو موضح في لقطة الشاشة التالية. قم بالتنزيل وجرّب الآن مجانًا!