اريد كود تفقيط للمبالغ عن طريق زر

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

اريد كود لتفقيط المبالغ عن طريق زر

تفقيط.rar

[أبو محمد أشرف]

إن شاء عندما اعود في المساء سأرفقه لك لكن لضيق الوقت لم أتمكن من ذلك الان

[حسين العصلوجى]

تفضل المرفق 

لعله يكون المطلوب

تفقيط_H.rar

[إبراهيم ابوليله]

الاخ حسين

بارك الله فيك

ولكنى لا اريد تحد خليه بعينها

بمعنى اننى لو عندى كود يقوم بجمع المبالغ الموجوده ففى عمود معين

ويظهر الاجمالى اسفل اخر خليه بها بيانات

فانا اريد ان يظهر التفقيط فى الخليه المقابله لخليه المجموع

بمعنى انه

لو ظهر الاجمالى فى الخليهA50 Dظهر التفقيط فى الخليه B50

هذا على سبيل المثال

مع الاخذ فى الاعتبار ان الاجمالى ممكن ان يظهر فى اى مكان بالعمود

[حسين العصلوجى]

طلبك بالمرفق

ولو في اي تعديل تاني تجده ان شاء الله

 

[حسين العصلوجى]

طلبك بالمرفق

ولو في اي تعديل تاني تجده ان شاء الله

 

تفقيط_H.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

اليك اخي الكريم

المطلوب بالمرفق

ارجو ان يفي بطلبك

باستخدام كود بسيط لعمل ذلك مع موديل التفقيط بالملف

Sub sama()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow - 1, 2).Value = NoToTxt(ws.Cells(iRow - 1, 1).Value, "قرشاً", "جنيهاً")
End Sub

 

تفقيط_H+.rar

تم تعديل مارس 10, 2013 بواسطه حمادة عمر

[حمادة عمر]

السلام عليكم

الاخ العزيز / حسين العصلوجى

 

بارك الله فيك

لم اري مشاركتك الأخيرة الا بعد ارسال الرد ...... عذرا

واجعله من باب اثراء الموضوع

وفعلا فكرتك في استخدام كود التفقيط جميله جدا

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

[حسين العصلوجى]

اخي الغالي / حماده عمر

انت تكتب ما شئت واينما شئت

وياباشا من حق الكبير يدلع ههههههههههههه

[حمادة عمر]

لك مني اجمل وارق تحيه اخي العزيز / حسين

وادام الله الحب والالفه دائما بيننا

[إبراهيم ابوليله]

اخى الكريم

حسين

اخى الكريم

حماده

اعمال رائعه

بارك الله فيكم

والى مزيد من تنوع الاجابات

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

بارك الله فيك

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