تحويل رمز العمود إلى رقم ورقمه إلى رمز

[AbuuAhmed]

السلام عليكم

محاولة يمكن موجودة في المنتدى ولكني لم أبحث عنها
إن لم تكن موجودة فقد ينتفع بموضوعي أحدكم.
وظيفتهم تحويل "B" إلى 2        أو        تحويل 2 إلى "B"

Function C2L(Column As Integer) As String
    On Error Resume Next
    C2L = Replace(Replace(Cells(1, Column).Address, "$", ""), "1", "")
End Function

Function L2C(Letter As String) As Integer
    On Error Resume Next
    L2C = Range(Letter & "1").Column
End Function

 

تم تعديل أكتوبر 13, 2022 بواسطه AbuuAhmed

[Ali Mohamed Ali]

بارك الله فيك ونفع الله بعلمك وزادك الله من فضله.. بالفعل معلومة قيمة وبالطبع سيستفيد منه الجميع وشكراً جزيلاً لحضرتكم وجزاك الله خير الثواب