تعريف اسماء النطاقات بالكود - مثال

[محمد طاهر عرفه]

احتجت لتعريف اسماء عديدة لخلايا فى ملف

فاعددت هذا الكود البسيط

لاختار الخلية و اشغل الماكرو فيسألني عن الاسم و يحفظه ضمن اسماء النطاقات المعرفة فى الملف

في البداية تصورت انه يمكنني تسجيل الماكرو و تعديله ببساطة

و لكن اتضح ان اضافة التعريف لاسم لابد ان تكون بصورة r1c1

لذا كان لابد من تعريف النمط ReferenceStyle:=xlR1C1

Sub assignName()
    ActiveCell.Select
    x = InputBox("choose a name", "Write the name to define", "TT")
    
    Dim y  As String
    y = Trim(ActiveCell.AddressLocal(ReferenceStyle:=xlR1C1))
    y = "=" & Trim(ActiveWorkbook.ActiveSheet.Name) & "!" & y
        
    ActiveWorkbook.Names.Add Name:=x, RefersToR1C1:=y

End Sub

addnames.rar

[محمد حجازي]

السلام عليكم ...

شكراً لك يا أخي محمد على هذا الكود

وبصراحة فأنا كنت استغرب من النصائح التي أقرأها عن استخدام نمط الترميز R1C1 في أكواد الـ VBA ، ولكن الصورة اتضحت لي بعد اطلاعي على أكوادك و أكواد الأخ أبو هادي