كيف تقوم بتشغيل ماكرو في نفس الوقت عبر ملفات مصنفات متعددة؟
في هذه المقالة ، سأتحدث عن كيفية تشغيل ماكرو عبر ملفات مصنف متعددة في نفس الوقت دون فتحها. يمكن أن تساعدك الطريقة التالية في حل هذه المهمة في Excel.
قم بتشغيل ماكرو في نفس الوقت عبر العديد من المصنفات باستخدام التعليمات البرمجية لـ VBA
قم بتشغيل ماكرو في نفس الوقت عبر العديد من المصنفات باستخدام التعليمات البرمجية لـ VBA
لتشغيل ماكرو عبر مصنفات متعددة دون فتحها ، يرجى تطبيق رمز VBA التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة او شباك.
كود فبا: قم بتشغيل الماكرو نفسه في مصنفات متعددة في نفس الوقت:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
ملاحظات: في الكود أعلاه ، يرجى نسخ ولصق الكود الخاص بك بدون ملف فرعية العنوان و نهاية الفرعية تذييل بين مع Workbooks.Open (xFdItem & xFileName) و انتهت ب نصوص. انظر لقطة الشاشة:
3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، و تصفح يتم عرض نافذة ، يرجى تحديد مجلد يحتوي على المصنفات التي تريدها جميعًا لتطبيق هذا الماكرو ، انظر لقطة الشاشة:
4. ثم انقر فوق OK زر ، سيتم تنفيذ الماكرو المطلوب مرة واحدة من مصنف واحد للآخرين.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!