تنسيق الارقام في اليوزرفورم رقمين وراء الفاصلة

[Zakariadz Bms]

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

اخواني الكرام عندي مشكل في تنسيق الارقام في البحث في الفورم بحيث يعطيني رقمين وراء الفاصلة وأجركم على الله

oficna 2022.xlsm

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

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

Me("txtQty" & AD) = Format(Sheet1.Cells(i, 3), "0.00")

ولا أدري ما سبب تكرار سطور الكود

يكتفي بأول أربعة فقط

Private Sub CommandButton1_Click()
For i = 8 To 40
If Sheet1.Cells(i, 1) = Val(Me.TxtSearch) Then
AD = AD + 1
Me("txtItem" & AD) = Sheet1.Cells(i, 2)
Me("txtQty" & AD) = Format(Sheet1.Cells(i, 3), "0.00")
Me("txtPrice" & AD) = Format(Sheet1.Cells(i, 4), "0.00")
Me("txtTotal" & AD) = Sheet1.Cells(i, 5)
End If
Next i
End Sub

بالتوفيق

[Zakariadz Bms]

 بارك الله فيك أستاذ وزادك الله من فضله

مشكووووور

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

جميعا بإذن الله