شرح كود تحديد ارقام بعد الفاصلة في تاكست بوكس و لبال

[حيدر جزائري]

السلام عليكم أعضاء المنتدي انا اقوم على انشاء برنامج محاسبي

في الفور به تاكست بوكس و لبال 

عند تنفيذ امر يقوم بنقل الأعداد و لكن بعد الفاصلة يظهر اكثر من رقمين 

اريد شرح للكود الذي يقوم بتحديد عدد الأرقام وراء الفاصلة 

و شكرا

مثال عن المطلوب مرفق

000000000000.rar

[أبو حنــــين]

السلام عليكم

شاهد المرفق

000000000001.rar

[حيدر جزائري]

و الله ماني عارف كيفاش نشكرك اخي أبو حنين جزاك الله و بارك الله فيك و في اولادك و ابنتك حنين

هذا هو المطلوب

[حيدر جزائري]

السلام عليكم اخي ابو حنين عندي كود اريد اضافة له فورمة رقمين بعد الفاصلة
هذا هو الكوود
 

Public Sub lesplace()

Dim c, t, tt

plac.Clear

With Feuil5.Range("a:a")

    Set c = .Find(prod, LookIn:=xlValues)

    If Not c Is Nothing Then

    t = c.Row

               Do

 If .Cells(c.Row, 1) = prod Then

 plac.AddItem .Cells(c.Row, 4)

plac.List(plac.ListCount - 1, 1) = .Cells(c.Row, 3)

plac.List(plac.ListCount - 1, 2) = c.Row

End If

 Set c = .FindNext©

Loop While Not c Is Nothing And c.Row <> t

    End If

End With

End Sub

اريد وضع الفورمة في هذا السطر

 plac.AddItem .Cells(c.Row, 4)

بهذا الفورم

, "#,##0.00"

وجزاك الله خيرا اخي ابو حنين

تم تعديل سبتمبر 7, 2013 بواسطه حيدر جزائري

[أبو حنــــين]

السلام عليكم

اذا كان العمود الرابع هو المقصود فيكون الكود كالتالي

Public Sub lesplace()

Dim c, t, tt
plac.Clear
With Feuil5.Range("a:a")
    Set c = .Find(prod, LookIn:=xlValues)
    If Not c Is Nothing Then
    t = c.Row
               Do
 If .Cells(c.Row, 1) = prod Then
 plac.AddItem Format(.Cells(c.Row, 4), "#,##0.00")
plac.List(plac.ListCount - 1, 1) = .Cells(c.Row, 3)
plac.List(plac.ListCount - 1, 2) = c.Row
End If
 Set c = .FindNext
Loop While Not c Is Nothing And c.Row <> t
    End If
End With

End Sub

[حيدر جزائري]

جزاك الله الف خير و بارك الله لك و في اولادك اخي أبو حنين و جعلها الله في ميزان حسناتك ان شاء الله

[حيدر جزائري]

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

اخي ابو حنين

انا اقوم بالعمل على برنامج محاسبة يعني حسب المعرفة التي اكتسبتها من المنتدي العريق

عندما قمت بإنشاء فورة ترحيل و تعديل صادفتني بعض الصعوبات منها 

- إظهار الفاصلة بعد الصفر 

- تعديل 

- التفقيط خيث انني حملت ماكرو من منتدانا الكبير و لكن و جدت به بعض الصعوبات منها الرقمين بعد الفاصلة

المطلوب هو :

في الفورم به مجموعة من تاكس بوكس اريد عند الكتابة فيها مبالغ مالية تظهر الرقمين بعد الفاصلة كما اريد استدعاء العمليات و التعديل عليها 

كما ظهر عندي مشكل في التفقيط حيث لا يقوم بكتابة الرقمين بعد الصفر كما اريد تغيير الماكرو الاول بالماكرو الثاني في الملف المرفق

مثال 123,50 يقوم كتابتها مائة و ثلاثة و عشرون دينار جزائري و خمسون سنتيم انا اريدها على هذا الشكل مائة و ثلاثة و عشرون دينار جزائري و 50 سنتيم

الملف في المرفقات و جزاك الله خيرا و اعذرني على الاثقال عليك

 

 

Ex.rar

[حيدر جزائري]

للرفع

[حيدر جزائري]

للرفع

[حيدر جزائري]

للرفع