تحسين رموز VBA في Excel لكشف التكرارات بكفاءة

في البداية، يظهر أن الشيفرة التي قدمتها تستخدم VBA في Excel للبحث عن تكرار القيم في العمود الثاني من ورقة العمل المستهدفة (tgtWSheet). الهدف هو الكشف عن وجود سجلات مكررة في هذا العمود، وإذا تم العثور على تكرار، يتم عرض رسالة تنبيه.

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

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

vbaCopy code
Dim checkRange As Range
Dim currentCell As Range

Set checkRange = tgtWSheet.Range(tgtWSheet.Cells(r, 2), tgtWSheet.Cells(r + 18, 2))

For Each currentCell In checkRange
    If WorksheetFunction.CountIf(checkRange, currentCell.Value) > 1 Then
        MsgBox "Duplicate Record Found!"
        Exit Sub
    End If
Next currentCell

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

إذا كان لديك أي استفسارات إضافية أو تحتاج إلى شرح إضافي، فلا تتردد في طرحها.

تعتبر الشيفرة التي قدمتها جزءًا من عملية البرمجة في VBA لتحقيق وظيفة معينة في Excel. VBA هو اختصار لـ “Visual Basic for Applications”، وهو لغة برمجة تستخدم على نطاق واسع في تطوير التطبيقات والأتمتة داخل برامج Microsoft Office، بما في ذلك Excel.

تعتمد الشيفرة على هيكل التكرار (Loop) باستخدام تعليمة Do While لفحص القيم في العمود الثاني (العمود B) من ورقة العمل المستهدفة. يتم تكرار التحقق مع الخلية التالية في العمود للتحقق من وجود تكرار. في حالة العثور على تكرار، يتم عرض رسالة تنبيه باستخدام MsgBox ويتم الخروج من الشيفرة باستخدام Exit Sub.

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

يفضل دائمًا تطبيق مبادئ البرمجة الجيدة مثل تجنب تكرار الشيفرة واستخدام هياكل التحكم في التكرار بشكل فعال. يمكن أيضًا توثيق الشيفرة لجعلها أكثر فهمًا للمبرمجين الآخرين أو لنفسك في المستقبل.

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