اعطاء متغير للعمود بدلالة اسم وتعويض به في الاكواد

[المصباحي]

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

بداية الامر اتوجه بالشكر لجميع القائمين على هذا الصرح وكل اعضاء موقع اوفسينا وجزاهم الله عنا خير 

اريد المساعدة بكود هل استطيع اعطاء متغير للعمود بدلالة اسم وتعويض به في الاكواد

مثال 

العمود a = officena

وتكون Range("officena1:officena10").Select

الرجاء من دوي الخبرة تصحيح الكود ولكم مني جزيل الشكر .

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

وعليكم السلام

جرب التالي

Sub Test()
    Dim officena As String
    
    officena = "a"
    
    Range(officena & "1:" & officena & "10").Select
End Sub

 

[المصباحي]

• في 10/24/2016 at 17:18, ياسر خليل أبو البراء said:

  وعليكم السلام

  جرب التالي

  
  Sub Test()
      Dim officena As String
      
      officena = "a"
      
      Range(officena & "1:" & officena & "10").Select
  End Sub

   

   

• بسم الله ما شاء الله أخي العزيز ياسر لك جزيل الشكر على هذا المثال. بارك الله فيك.

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