مرحبًا بكم في مستودع Renumber Files من قناة EslamHub! 🚀 يحتوي هذا المستودع على ملف Excel لإعادة تسمية أرقام ملفات مجلد بسهولة وسرعة باستخدام VBA، بالإضافة إلى ملفين نصيين يحتويان على أكواد VBA المستخدمة في الملف.
- 📊 RenumberFiles.xlsm: ملف Excel جاهز لإعادة تسمية الملفات.
- 🧾 Workbook_Open-Event.txt: كود حدث فتح الملف (الحدث
Workbook_Openداخل ThisWorkbook). - 🧾 RenumberFiles-Module.txt: الكود الرئيسي لإعادة الترقيم (Module مستقل داخل Excel).
لتفعيل التشغيل التلقائي عند فتح الملف، افتح حدث Workbook_Open داخل نافذة ThisWorkbook،
أو ملف Workbook_Open-Event.txt، وابحث عن السطر:
#If False Thenثم غيّر الكلمة False إلى True ليصبح السطر:
#If True Thenبعد انتهاء التشغيل، ستظهر لك رسالة تتيح لك اختيار فتح الملف أو الإغلاق.
لتغيير الفاصل (مثل _) قبل الترقيم، افتح ملف RenumberFiles-Module.txt أو موديول الكود داخل Excel،
وابحث عن السطر:
Const del$ = "_"ثم غيّر _ إلى أي فاصل تريده مثل - أو ..
عند تشغيل الأداة، ستطلب منك اختيار المجلد. المسار الافتراضي هو نفس مسار ملف Excel.
سيُطلب منك إدخال القيم التالية:
- رقم البداية: بداية الترقيم.
- رقم النهاية: نهاية الترقيم.
- تنسيق الأرقام: عدد الأصفار (مثل 2 → 00، 3 → 000).
- مقدار التغيير: مثل
+1,-2, أو0إن كنت تريد التنسيق فقط.
📺 YouTube 📱 TikTok 📢 LinkedIn 🐦 X 📘 Facebook 📸 Instagram
#Excel #VBA #EslamHub