تنسيق الرقم في الليست بوكس

[AMIRBM]

السلام عليكم ورحمة الله وبركاته اخواني الكرام أسعد الله أوقاتكم

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

بهذه الصيغة "00.0" وشكرا.

بحث في الفورم officena.xlsm

[محمد هشام.]

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

Private Sub UserForm_Initialize()
  Set f = Sheets("التقرير")
  Set Rng = f.Range("A3:j" & f.[A65000].End(xlUp).Row)
  wsData = Rng.Value
  For i = LBound(wsData) To UBound(wsData): wsData(i, 5) = Format(wsData(i, 5), "0.00"): Next i
  For i = 1 To UBound(wsData): wsData(i, 6) = Format(wsData(i, 6), "0.00"): Next i
  
'Code............
  ''''''''''''
   
End Sub

 

[AMIRBM]

بارك الله فيك أستاذ وجزاك الله خيرا