JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

مكتبة الاوفيس | الكود الحادى عشر | كيفية ادراج أسماء أوراق العمل في عمود محدد في Excel VBA | عالم الاوفيس

 

بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس

مازلنا مستمرين فى شرح اهم 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.   

 

قد يعجبك ايضا

  1.  تحميل برنامج حركة الخزينة مجانا
  2. اسطوانة التعريفات الشاملة DriverPack Solution بدون نت
  3.  شيت بجميع اكواد الخدمة في فورى Fawry اكواد فوري
  4. برنامج مجانى لمتابعة حركة الخزينة Excel
  5. تحميل برنامج مخازن مجانى 100 % كامل ومفتوح المصدر | Store Management System
  6.  برنامج متابعة الشيكات (شيكات دفع / شيكات قبض ) Cheques Management + نسخة تجريبية
  7.   تحميل برنامج الكاشير2020 المجانى لادارة حسابات المحلات التجارية Cashier
  8.  تحميل برنامج مجانى حضور وانصراف الموظفين بالبصمة( دوام الموظفين المجانى)
  9.  تحميل برنامج مخازن مجانى 100%
  10. -برنامج المنجز 2024
  11. تحميل برنامج محاسبى كامل كفعل مدى الحياة

 

الاسمبريد إلكترونيرسالة