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.   

 

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