تحويل رقم العمود إلى حرف والعكس Column Number To Letter And Vice Versa

[ياسر خليل أبو البراء]

السلام عليكم ورحمة الله وبركاته

 

أقدم لكم دالتين في غاية الأهمية ، الدالة الأولى هي دالة معرفة تحول رقم العمود إلى حرف ، والدالة الثانية تقوم بتحويل حرف العمود إلى رقم.

 

 

الدوال بسيطة جداً إلا أنني قمت بشرح مفصل لهما ، وكيف تم بناء هذه الدوال لنتعلم كيف ننشيء دالة معرفة بأنفسنا ، ويوجد مع كل دالة إجراء فرعي كمثال تطبيقي لكيفية استخدام الدالة.

 

كما يوجد في الموضوع كيفية استخدام صندوق الإدخال InputBox ، وكيفية التعامل في حالة الإدخال الخاطيء للمستخدم أي أن الموضوع لا يقتصر فقط على الدوال المعرفة.

 

لمزيد من التفاصيل يرجى زيارة الرابط التالي

رابط الموضوع من هنا

[سليم حاصبيا]

ممتاز اخي ياسر

لكن ما رأيك بعمل نفس الشي بالمعادلات

والعكس بواسطة UDF

column_index.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي سليم

ومشكور على إثرائك للموضوع ..

تقبل تحياتي

 

[مختار حسين محمود]

رائع دائما و دائما رائع                   ت  ح يا ت ى

 

 

[جلال الجمال_ابو أدهم]

ياسر خليل أبو البراء

سليم حاصبيا

الاخوه الافاضل تحياتى و جزاكم الله خيرا و زادكم علما

 

[ياسر خليل أبو البراء]

أخي الغالي مختار حسين

أخي العزيز جلال الجمال

بارك الله فيكما وجزيتما خير الجزاء ، ومشكور على مروركما المشرف والعطر بالموضوع

تقبلا تحياتي

[سليم حاصبيا]

زيادة اكثر في اثراء الموضوع هذا  UDF لاستخراج اسم العامود من رقمه

Function get_col(n As Integer)
If n > 16364 Or n < 1 Then get_col = "N/A": Exit Function
 get_col = Replace(Cells(1, n).Address(0, 0), 1, "")
End Function

 

[ياسر خليل أبو البراء]

أخي سليم

يوجد أكثر من 7 دوال معرفة للحصول على المطلوب ..اخترت أيسرها وأسهلها ليفهمها الأعضاء وليسهل عليهم تعلم بناء الدوال المعرفة

بارك الله فيك وجزيت خيراً

[أبو حنــــين]

السلام عليكم

لإثراء الموضوع يمكن ان نستعمل

Sub Test()
    MsgBox Split(ActiveCell.Address, "$")(1)
End Sub

 

[ياسر خليل أبو البراء]

وعليكم السلام أخي الغالي أبو حنين

بالفعل هذه من الدوال الرائعة والتي أعجبتني وكنت أنوي شرحها وتراجعت للأسهل ليفهمها الأعضاء

جزيت خيراً ومشكور على إثرائك للموضوع ، بارك الله فيك

[جلال الجمال_ابو أدهم]

 

سليم حاصبيا

أبو حنــــين

ياسر خليل أبو البراء

الاخوه الافاضل جزاكم الله خيرا
وحشانا اوى كلمة لاثراء الموضوع
تحياتى

 

[أبو حنــــين]

السلام عليكم

كود يشمل رقم الصف و العمود و الحرف الذي ينتمي اليه العمود في آن واحد

Sub MMMM()

Dim CLO As Integer, NR As Integer, NC As String
NC = Split(ActiveCell.Address, "$")(1)
NR = Split(ActiveCell.Address, "$")(2)
COL = Range(Split(ActiveCell.Address, "$")(1) & "1").Column
MsgBox "العمود :  " & COL & Chr(13) & NC & "   : الحرف" & Chr(13) & "الصف :   " & NR, vbInformation + vbMsgBoxRight, ""

End Sub