أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

إن المستعرض الذي تستخدمه غير معتمد

إنك تحتاج إلى تحديث المستعرض لاستخدام الموقع.

التحديث إلى أحدث إصدار من Internet Explorer

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

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

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

على سبيل المثال، يتم تحويل العمود رقم ٣٠ إلى حروف أبجدية مكافئة "AD".
معلومات أخرى
تقدم Microsoft الأمثلة البرمجية لغرض التوضيح فقط، دون أي ضمان صريح أو ضمني. وتتضمن هذه الأمثلة، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن لمهندسي الدعم لدى Microsoft شرح الوظيفة الخاصة بإجراء محدد، ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.
تعمل الدالة ConvertToLetter عن طريق استخدام الخوارزمية التالية:
  1. اقسم رقم العمود على ٢٧، ثم قم بوضع العدد الناتج في المتغير "i".
  2. اطرح رقم العمود من المتغير "i" مضروبًا في ٢٦، ثم قم بوضع النتيجة في المتغير "j".
  3. قم بتحويل قيم الأعداد إلى الحروف الأبجدية المقابلة لها، يتراوح المتغيران "i" و"j" من ٠ إلى ٢٦ على الترتيب.
على سبيل المثال: رقم العمود ٣٠.
  1. فيتم قسمة رقم العمود على ٢٧: ٣٠ / ٢٧ = ١.١١١١، فيتم تقريبه للدالة Int إلى "١".
    i = 1
  2. رقم العمود التالي - (i × ٢٦) = ٣٠ -(١ × ٢٦) = ٣٠ - ٢٦ = ٤.
    j = ٤
  3. قم بتحويل القيم الناتجة إلى حروف أبجدية بشكل منفصل،
    i = ١ = "A"
    j = ٤ = "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 > ٠ Then      ConvertToLetter = Chr(iAlpha + 64)   End If   If iRemainder > ٠ Then      ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)   End IfEnd Function
ملاحظة تقوم هذه الدالة فقط بتحويل الأرقام التي يتم تمريرها إليها من خلال حروف النص الأبجدية العددية المكافئة لها. لا يغير ذلك من مظهر رؤوس الصفوف أو الأعمدة بورقة العمل الفعلية.
XL2007 xl xl97 xl2000 xl2002 xl2003
خصائص

رقم الموضوع: 833402 - آخر مراجعة: 12/21/2006 16:29:14 - المراجعة: 4.0

  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • kbcodesnippet kbcode kbhowto KB833402
تعليقات
mp;t=">g style="display: none; " src="https://c1.microsoft.com/c.gif?DI=4050&did=1&t=">