البحث عن سلاسل في Excel باستخدام VBA

عند استخدام لغة البرمجة VBA (Visual Basic for Applications) للبحث عن سلاسل نصية ذات طول معين داخل عمود معين في جدول Excel، يمكنك استخدام الحلول التالية:

1. استخدام حلقة (Loop) للتحقق من كل خلية في العمود المعني.
2. التحقق من طول السلسلة في كل خلية.
3. التحقق مما إذا كانت السلسلة لا تحتوي على أي مسافات.
4. تخزين النتائج في مكان معين (مثل مصفوفة أو نطاق جديد في Excel).

إليك كود VBA يقوم بتحقيق ذلك:

vbaCopy code
Sub FindStrings()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim targetLength As Integer
    Dim resultRange As Range
    Dim i As Long
    
    ' تحديد ورقة العمل والعمود المعني
    Set ws = ThisWorkbook.Sheets("Sheet1") ' اسم ورقة العمل
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' العمود المعني
    
    ' تحديد الطول المستهدف للسلسلة
    targetLength = 4
    
    ' تهيئة نطاق النتائج
    Set resultRange = ws.Range("B1")
    
    ' حلقة لفحص كل خلية في النطاق المعني
    For Each cell In rng
        ' التحقق من طول السلسلة
        If Len(cell.Value) = targetLength Then
            ' التحقق من عدم وجود مسافات في السلسلة
            If InStr(1, cell.Value, " ") = 0 Then
                ' إذا كانت الشروط متوافقة، نقوم بإضافة السلسلة إلى النطاق النتيجة
                If resultRange.Value = "" Then
                    resultRange.Value = cell.Value
                Else
                    resultRange.Offset(i, 0).Value = cell.Value
                End If
                i = i + 1
            End If
        End If
    Next cell
    
    ' إعلام المستخدم بالانتهاء
    MsgBox "تم العثور على السلاسل ذات الطول " & targetLength & " دون مسافات وتم تخزينها في العمود B"
    
End Sub

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

في عالم البرمجة وخاصة في استخدام VBA في Excel، يمكن أن تواجهك مجموعة متنوعة من التحديات والمشكلات التي تتطلب حلاً مبتكرًا وفعّالًا. واحدة من هذه التحديات هي البحث عن سلاسل نصية ذات طول معين داخل عمود محدد دون استخدام الصيغ. في هذا المقال، سنقدم لك حلاً فعّالاً باستخدام لغة VBA لإيجاد السلاسل ذات الطول المحدد ودون مسافات.

قبل البدء في كتابة الكود، يجب أولاً أن نحدد الطول المطلوب للسلاسل التي نبحث عنها. في هذا المثال، سنفترض أن الطول المطلوب هو 4 أحرف. يمكن تغيير هذا الرقم بسهولة وفقاً لاحتياجاتك.

بدأنا بتحديد ورقة العمل والعمود المعني باستخدام كائنات في VBA. ثم، استخدمنا حلقة (Loop) لفحص كل خلية في العمود المحدد. خلال كل تكرار في الحلقة، قمنا بالتحقق من طول السلسلة في الخلية. إذا كانت السلسلة تحتوي على 4 أحرف وليس بها مسافات، قمنا بإضافتها إلى النطاق النتيجة.

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