تحديات تعبئة الخلايا الفارغة في Excel باستخدام VBA: دليل شامل لحل المشكلة

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

للقيام بذلك، يمكنك استخدام لغة VBA للوصول إلى الخلايا في كل من الأوراق، ثم استخدام الحلقات لملء الخلايا الفارغة في الورقة الثانية باستخدام قائمة المعرفات من الورقة الأولى. الكود التالي يوفر أمثلة على كيفية تحقيق ذلك:

vbaCopy code
Sub PopulateBlankCells()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim colAData As Range, colBData As Range
    Dim i As Long, j As Long
    
    ' تعيين الأوراق
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' العثور على آخر صف في العمود A في كل ورقة
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row
    
    ' تعيين نطاقات البيانات في العمود A في الأوراق
    Set colAData = ws1.Range("A2:A" & lastRow1)
    Set colBData = ws2.Range("B2:B" & lastRow2)
    
    ' البدء في الحلقة لملء الخلايا الفارغة في العمود B في ورقة العمل الثانية
    For i = 1 To lastRow2
        If IsEmpty(colBData.Cells(i, 1).Value) Then
            For j = 1 To lastRow1
                If colAData.Cells(j, 1).Value <> "" Then
                    colBData.Cells(i, 1).Value = colAData.Cells(j, 1).Value
                    Exit For
                End If
            Next j
        End If
    Next i
    
    ' رسالة إشعار للمستخدم
    MsgBox "تم ملء الخلايا الفارغة بنجاح!", vbInformation
End Sub

يرجى نسخ الكود أعلاه ولصقه في وحدة VBA في Excel. بعد ذلك، قم بتشغيل البرنامج النصي باختيار “Run” من قائمة “Run” في VBA Editor.

يتم تعيين الأوراق المستخدمة في الكود باستخدام أسماء الورقة، لذا تأكد من تغييرها وفقًا لأسماء الأوراق في ملف العمل الخاص بك.

في هذا السياق، يظهر لنا الرغبة في استخدام لغة VBA في برنامج Excel لحل تحدي معين. يتعلق الأمر بملء الخلايا الفارغة في العمود B في ورقة العمل رقم 2 باستخدام قائمة متكررة من الأسماء في العمود A في ورقة العمل رقم 1. المستخدم يعبر عن عجزه عن كيفية إعداد دورة تكرار لتحقيق هذا الهدف.

قد يكون حلاً لهذا التحدي هو استخدام الحلقات والشروط في VBA لتنفيذ المهمة. يمكن أن يتم ذلك عن طريق استخدام تكرار للأسطر في العمود A في ورقة العمل رقم 1 وملء الخلايا في العمود B في ورقة العمل رقم 2 بالأسماء المتكررة حتى يتم استكمال العمود بأكمله.

في هذا السياق، قد يكون لديك برمجة تبدو على سبيل المثال كما يلي:

vbaCopy code
Sub FillNames()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim j As Long

    ' تحديد ورقتي العمل
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")

    ' الحصول على آخر صف غير فارغ في كل ورقة عمل
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row

    ' حلقة تكرار عبر الأسطر في العمود A في ورقة العمل رقم 1
    For i = 1 To lastRow1
        ' إذا كانت الخلية في العمود B في ورقة العمل رقم 2 فارغة
        If IsEmpty(ws2.Cells(i, "B").Value) Then
            ' حلقة تكرار لملء الخلايا في العمود B في ورقة العمل رقم 2
            For j = 1 To lastRow2
                ' إذا كانت الخلية في العمود B في ورقة العمل رقم 2 فارغة، قم بملء الاسم
                If IsEmpty(ws2.Cells(j, "B").Value) Then
                    ws2.Cells(j, "B").Value = ws1.Cells(i, "A").Value
                    Exit For
                End If
            Next j
        End If
    Next i
End Sub

يرجى مراجعة الشيفرة أعلاه وتكييفها وفقًا لاحتياجاتك الخاصة، واستخدامها في المحيط الذي تعمل فيه.