فبا: كيفية تحويل رقم العمود إلى حرف

يمكنك استخدام بناء الجملة التالي في VBA لتحويل رقم العمود إلى حرف:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

سيقوم هذا الماكرو المحدد بتحويل رقم العمود في الخلية A2 إلى حرف وعرض الحرف في الخلية B2 .

على سبيل المثال، إذا كانت القيمة في الخلية A2 هي 4، فستعرض الخلية B2 “D” نظرًا لأنه الحرف الذي يتوافق مع العمود الرابع في Excel.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: تحويل رقم العمود إلى حرف في VBA

لنفترض أننا نريد معرفة حرف العمود الذي يتوافق مع عمود رقم 4 في Excel:

يمكننا إنشاء الماكرو التالي لتحويل هذا الرقم إلى حرف:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

تعرض الخلية B2 القيمة “D” نظرًا لأنها الحرف الذي يتوافق مع العمود الرابع.

إذا قمنا بتغيير الرقم في الخلية A2 وقمنا بتشغيل الماكرو مرة أخرى، فستعرض الخلية B2 حرف العمود المحدث.

على سبيل المثال، لنفترض أننا قمنا بتغيير الرقم الموجود في الخلية A2 إلى 73 وقمنا بتشغيل الماكرو مرة أخرى:

تعرض الخلية B2 الآن القيمة “BU” نظرًا لأن هذا هو حرف العمود الذي يتوافق مع العمود 73.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية العثور على آخر سطر مستخدم
VBA: كيفية العثور على آخر عمود تم استخدامه
فبا: كيفية حساب عدد الأعمدة المستخدمة