AMIRBM قام بنشر يوليو 5 مشاركة قام بنشر يوليو 5 السلام عليكم ورحمة الله وبركاته اخواني الكرام أسعد الله أوقاتكم أطلب منكم المساعدة في في تنسيق الرقم في الليست بوكس في عمود السعر والسعر الاجمالي بهذه الصيغة "00.0" وشكرا. بحث في الفورم officena.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يوليو 5 أفضل إجابة مشاركة قام بنشر يوليو 5 وعليكم السلام ورحمة الله تعالى وبركاته 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 2 رابط هذا التعليق شارك More sharing options...
AMIRBM قام بنشر يوليو 5 الكاتب مشاركة قام بنشر يوليو 5 بارك الله فيك أستاذ وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان