تقسيم البيانات في Excel تلقائيًا باستخدام VBA

كيفية تقسيم البيانات حسب التاريخ باستخدام VBA في Excel: شرح تفصيلي وحصري

يُعد تنظيم البيانات في Excel تحديًا كبيرًا عندما تكون مجموعة البيانات ضخمة وتحتوي على العديد من التواريخ المختلفة. ولكن بفضل لغة VBA (Visual Basic for Applications)، يمكنك أتمتة هذه العملية بطريقة مبتكرة وسهلة. في هذا المقال الحصري، سنتناول بالتفصيل كود VBA الذي يمكنك استخدامه لتقسيم البيانات تلقائيًا إلى أوراق عمل منفصلة بناءً على التواريخ الموجودة في عمود معين.

أهمية تقسيم البيانات حسب التاريخ

عندما تعمل مع بيانات تتضمن تواريخ، مثل سجلات المبيعات اليومية، الحضور والغياب، أو حتى تقارير المشروع، يصبح من الضروري تنظيم هذه البيانات بطريقة تجعل الوصول إليها أسهل. تقسيم البيانات حسب التاريخ يساعد على:

  1. تحسين التنظيم: يمكنك بسهولة الرجوع إلى بيانات يوم محدد دون البحث داخل مجموعة بيانات كبيرة.
  2. زيادة الكفاءة: بدلاً من التعامل مع جدول واحد ضخم، تصبح البيانات موزعة على أوراق عمل صغيرة وأكثر وضوحًا.
  3. تقليل الأخطاء: عند فصل البيانات، تقل احتمالية تعديل البيانات بشكل غير صحيح أو فقدانها.

فكرة الكود

الكود الذي نعرضه هنا يعتمد على:

  • قراءة التواريخ من العمود “D” في ورقة العمل الأصلية.
  • إنشاء ورقة عمل جديدة لكل تاريخ فريد.
  • نسخ الصفوف التي تتضمن نفس التاريخ إلى الورقة الجديدة الخاصة به.
  • استخدام مكتبة “Dictionary” لتتبع التواريخ ومنع إنشاء أوراق مكررة.

شرح الكود خطوة بخطوة

1. تحديد ورقة العمل الأصلية

 

Set ws = ThisWorkbook.Sheets(1)

 

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

2. استخدام مكتبة Dictionary

Set dict = CreateObject(“Scripting.Dictionary”)

هذه المكتبة تُستخدم لتخزين التواريخ الفريدة فقط، مما يمنع إنشاء أوراق عمل مكررة.

3. تحديد آخر صف يحتوي على بيانات

lastRow = ws.Cells(ws.Rows.Count, “D”).End(xlUp).Row

 

هذا السطر يحدد آخر صف يحتوي على بيانات في العمود “D”، مما يضمن أن الكود سيعمل على جميع الصفوف الموجودة.

4. إنشاء أوراق العمل الجديدة ونسخ البيانات

If Not dict.exists(dateKey) Then
dict.Add dateKey, True
Set newWs = ThisWorkbook.Sheets.Add
newWs.Name = Format(dateKey, “DD-MM-YYYY”)
ws.Rows(1).Copy Destination:=newWs.Rows(1)
End If
ws.Rows(i).Copy Destination:=newWs.Cells(newWs.Rows.Count, 1).End(xlUp).Offset(1, 0)

 

  • يتم التحقق مما إذا كان التاريخ موجودًا بالفعل في المكتبة.
  • إذا كان التاريخ جديدًا، يتم إنشاء ورقة عمل جديدة بنفس اسم التاريخ.
  • يتم نسخ العناوين (الصف الأول) والبيانات إلى الورقة المناسبة.

5. إظهار رسالة النجاح

 

MsgBox “تم ترحيل الصفوف حسب التاريخ إلى أوراق عمل جديدة.”, vbInformation

 

بعد انتهاء العملية، يتم عرض رسالة تأكيد للمستخدم.

كيفية استخدام الكود

  1. افتح ملف Excel يحتوي على البيانات التي تريد تقسيمها.
  2. اضغط على مفتاحي Alt + F11 لفتح محرر VBA.
  3. أنشئ وحدة نمطية جديدة (Module) والصق الكود فيها.
  4. أغلق المحرر وارجع إلى Excel.
  5. اضغط على Alt + F8، اختر الكود، ثم اضغط Run.

 

تخصيص الكود

إذا كنت تريد تعديل الكود ليعمل على أعمدة أو تنسيقات أخرى، يمكنك إجراء التعديلات التالية:

  • لتغيير العمود الذي يحتوي على التواريخ، استبدل “D” باسم العمود المطلوب.
  • لتغيير اسم ورقة العمل الأصلية، قم بتعديل السطر Set ws = ThisWorkbook.Sheets(1) لتتناسب مع اسم الورقة لديك.

 

فوائد استخدام هذا الكود

  1. توفير الوقت: بدلاً من تقسيم البيانات يدويًا، يتم إنجاز المهمة بالكامل خلال ثوانٍ.
  2. المرونة: الكود قابل للتخصيص ليناسب احتياجات مختلفة.
  3. الدقة: يقلل من الأخطاء التي قد تحدث عند التعامل مع البيانات يدويًا.

 

أمثلة عملية

  • إدارة المبيعات: يمكن استخدام الكود لفصل مبيعات كل يوم إلى ورقة عمل مستقلة.
  • تقارير الحضور: إذا كنت تدير فريق عمل كبير، يمكنك إنشاء ورقة لكل يوم لتسجيل الحضور والغياب.
  • المشروعات: لتنظيم تقارير المشروع حسب التواريخ النهائية لتسليم المهام.

 

خاتمة

يُعد استخدام VBA في Excel طريقة رائعة لتحسين الكفاءة وزيادة الإنتاجية. تقسيم البيانات حسب التاريخ باستخدام هذا الكود هو مجرد مثال على كيفية تسخير إمكانيات VBA لتبسيط المهام اليومية. جرب هذا الكود الآن لتكتشف بنفسك مدى سهولة تنظيم البيانات وتوفير الوقت.

لتحميل الكود اضغط هنـا