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

مقدمة
توضح المقالة كيفية استخدام دالة Microsoft Visual Basic for Applications (VBA) في Microsoft Excel وذلك لتحويل أرقام الأعمدة إلى مصمم الحروف الأبجدية المقابلة لتلك الأرقام بنفس العمود.

على سبيل المثال، يتم تحويل العمود رقم 30 إلى حروف أبجدية مكافئة "AD".
معلومات أخرى
تقدم Microsoft الأمثلة البرمجية بغرض التوضيح فقط، دون أي ضمان سواء ضمنيًا أو صريحًا. وتتضمن هذه الأمثلة، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. وتفترض هذه المقالة أنك على دراية بلغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن لمهندسي الدعم لدى Microsoft شرح الوظائف الخاصة بإجراء محدد، إلا أنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظائف إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.
تعمل الدالة ConvertToLetter عن طريق استخدام الخوارزمية التالية:
  1. اقسم رقم العمود على 27، ثم قم بوضع العدد الناتج في المتغير "i".
  2. اطرح رقم العمود من المتغير "i" مضروبًا في 26، ثم قم بوضع النتيجة في المتغير "j".
  3. قم بتحويل قيم الأعداد إلى الحروف الأبجدية المقابلة لها، يتراوح المتغيران "i" و"j" من 0 إلى 26 على الترتيب.
على سبيل المثال: رقم العمود 30.
  1. فيتم قسمة رقم العمود على 27: 30 / 27 = 1.1111, فيتم تقريبه للدالة Int "1".
    i = 1
  2. رقم العمود التالي - (i × 26) = 30 -(1 × 26) = 30 - 26 = 4.
    j = 4
  3. قم بتحويل القيم الناتجة إلى حروف أبجدية بشكل منفصل،
    i = 1 = "A"
    j = 4 = "D"
  4. عند جمعهما معًا، يتكون مصمم العمود "AD".
دالة VBA التالية هي طريقة واحدة فقط لتحويل قيم أرقام الأعمدة إلى الحروف الأبجدية المكافئة للأعمدة:
Function ConvertToLetter(iCol As Integer) As String   Dim iAlpha As Integer   Dim iRemainder As Integer   iAlpha = Int(iCol / 27)   iRemainder = iCol - (iAlpha * 26)   If iAlpha > 0 Then      ConvertToLetter = Chr(iAlpha + 64)   End If   If iRemainder > 0 Then      ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)   End IfEnd Function
ملاحظة تقوم هذه الدالة فقط بتحويل الأرقام التي يتم تمريرها إليها من خلال حروف النص الأبجدية العددية المكافئة لها. لا يغير ذلك من مظهر رؤوس الصفوف أو الأعمدة بورقة العمل الفعلية.
XL2007 xl xl97 xl2000 xl2002 xl2003
ملاحظة هذه عبارة عن مقالة "للنشر العاجل" تم إنشاؤها مباشرةً من قِبل منظمة الدعم الخاصة بـ Microsoft. وتم توفير المعلومات الواردة بها كاستجابةً للمشكلات البارزة. وكنتيجة للاستعجال في إتاحة هذه المقالة، فقد تحتوى المواد الواردة بها على بعض الأخطاء المطبعية وقد يتم مراجعتها في أي وقت بدون إشعار بذلك. راجع شروط الاستخدام لمعرفة الاعتبارات الأخرى.
Свойства

ИД на статията: 833402 – Последен преглед: 09/29/2016 06:32:00 – Редакция: 1.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition

  • kbcodesnippet kbcode kbhowto KB833402
Обратна връзка