بسم الله الرحمن الرحيم
اهلا بكم
متابعى موقع عالم الاوفيس
مازلنا
مستمرين فى شرح اهم 100 كود من اكواد الاكسل VBA
الكود
الحادى عشر | كيفية ادراج أسماء أوراق العمل في عمود محدد في Excel VBA
يمكنك استخدام الكود التالي في VBA لإدراج أسماء أوراق العمل في
عمود محدد في Excel
Sub code_11()
Dim i As Integer
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
بعد تشغيل هذا الكود، ستتم إدراج أسماء الأوراق
في العمود الأول. يمكنك تعديل المتغير `i`
لتحديد الصف الذي ترغب في إدراج أسماء الأوراق فيه.
يتم استخدام حلقة `For Each` لتكرار جميع أوراق العمل في المصنف (workbook). داخل الحلقة، يتم إدراج اسم الورقة الحالية
في الخلية المحددة باستخدام `Cells(i, 1).Value = ws.Name`.
يرجى ملاحظة أنه يجب تشغيل هذا الكود في وحدة
الماكرو (Macro Module)
في Excel
ليتم تنفيذه بنجاح. يمكنك الوصول إلى وحدة الماكرو عن طريق النقر
على Alt + F11
في Excel،
ثم إنشاء وحدة ماكرو جديدة ولصق الكود فيها. بعد ذلك، يمكنك تشغيل الكود عن طريق النقر
على زر التشغيل أو باستخدام اختصار لوحة المفاتيح مثل F5.
قد يعجبك ايضا
- تحميل برنامج حركة الخزينة مجانا
- اسطوانة التعريفات الشاملة DriverPack Solution بدون نت
- شيت بجميع اكواد الخدمة في فورى Fawry اكواد فوري
- برنامج مجانى لمتابعة حركة الخزينة Excel
- تحميل برنامج مخازن مجانى 100 % كامل ومفتوح المصدر | Store Management System
- برنامج متابعة الشيكات (شيكات دفع / شيكات قبض ) Cheques Management + نسخة تجريبية
- تحميل برنامج الكاشير2020 المجانى لادارة حسابات المحلات التجارية Cashier
- تحميل برنامج مجانى حضور وانصراف الموظفين بالبصمة( دوام الموظفين المجانى)
- تحميل برنامج مخازن مجانى 100%
- -برنامج المنجز 2024
- تحميل برنامج محاسبى كامل كفعل مدى الحياة