بسم الله الرحمن الرحيم
اهلا بكم
متابعى موقع عالم الاوفيس
مازلنا
مستمرين فى شرح اهم 100 كود من اكواد الاكسل VBA
الكود
العاشر | كيفية ادراج الحروف الابجدية فى الاكسل VBA
:
يمكنك استخدام الكود التالي في VBA لإدراج الحروف الأبجدية في
Excel:
Sub code_10()
Dim i
As Integer
For i = 65 To 90
ActiveCell.Value = Chr(i)
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Sub test()
Dim i
As Integer
For i = 97 To 122
ActiveCell.Value = Chr(i)
ActiveCell.Offset(1, 0).Select
Next i
End Sub
بعد تشغيل هذا الكود، ستتم إدراج الحروف الأبجدية
في الصفوف في العمود المحدد (في هذا الكود هو العمود الأول). يمكنك تعديل قيمة المتغير
`column` لتحديد العمود الذي ترغب في إدراج الحروف فيه.
يمكنك أيضًا إضافة أي تنسيق إضافي للحروف حسب
احتياجاتك. في المثال أعلاه، تم تعيين الخاصية `Font.Bold` لتجعل الحروف سميكة، ويمكنك إزالة هذا الجزء
إذا كنت لا ترغب في تطبيق هذا التنسيق.
يرجى ملاحظة أنه يجب تشغيل هذا الكود في وحدة
الماكرو (Macro Module)
في Excel
ليتم تنفيذه بنجاح. يمكنك الوصول إلى وحدة الماكرو عن طريق النقر
على Alt + F11
في Excel،
ثم إنشاء وحدة ماكرو جديدة ولصق الكود فيها. بعد ذلك، يمكنك تشغيل الكود عن طريق النقر
على زر التشغيل أو باستخدام اختصار لوحة المفاتيح مثل F5.