اظهار ال TEXT بدلاً من اظهار ال Vlaue

[Ali994m]

السلام عليكم

أرجو المساعدة تعديل الكود الذي يعمل على اظهار قيمة اخر خلية في العمود

المطلوب أن يظهر نص الخلية أي يظهرها مع ال format الخاص بها

Private Sub CommandButton1_Click()
  Dim LR As Long
   
LR = Cells(Rows.Count, 1).End(xlUp)
   msgbox LR
End Sub

وجزاكم الله كل خير

Book1.xlsm

[عبدالفتاح في بي اكسيل]

جرب  هذا  الشيء

Private Sub CommandButton1_Click()
  Dim LR As Long
   
LR = Cells(Rows.Count, 1).End(xlUp)
   msgbox ChrW(163) & LR
 
End Sub

 

[Ali994m]

كود رائع جزاك الله كل خير

أخي هذا الكود رائع لكن لتنسيق معين التنسيق المطلوب "S21-"00#

فهل توجد طريقة لهدا التنسيق .. أو طريقة لعامة لاظهار النص بدلا من القيمة .. وجزاك الله كل خير

 

[عبدالفتاح في بي اكسيل]

لا اعلم  ماذا  تعني  بهذا  

ثم اجبتك بناء  على  الصورة  .ضع   الصورة  النهائية  للقيمة  في  الخلية 

[Ali994m]

[أ / محمد صالح]

بعد إذن أخي الكريم عبد الفتاح

ربما يكون هذا هو المطلوب

Private Sub CommandButton1_Click()
Dim LR As Long
LR = Cells(Rows.Count, 1).End(xlUp)
MsgBox Format(LR, """S21-""00#")
End Sub

 

[Ali994m]

اجابة رائعة جزاكم الله كل خير