اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

اريد اضافة خانه داخل اليوزر فورم للاجمالى بحيث يكون الاجمالى = ( عدد الدعاوي * الضريبة ) + ( العدد * الرسم + العدد * الرسم *العدد * الرسم *العدد * الرسم *العدد * الرسم *العدد * الرسم )

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

ايضا ان امكن ان يقوم الفورم بالتاكد ان عدد الدعاوي = مجموع اعداد فئات الرسم , واذا كان اعداد الرسم اكبر من عدد الدعاوى المقدمة تظهر رساله خطأ 

وشاكر لمجهوداتكم .

ترحيل.rar

khazna.jpg

قام بنشر
5 ساعات مضت, أبو حنــــين said:

السلام عليكم

جرب المرفق

 

2ترحيل.rar

ربنا يجازيك خير اخي الكريم 

عمل ممتاز وتسلم ايدك 

ولكن هنا بعض التعديل بعد اذنك 

1- 

خانه الايصال هى عبارة عن حاصل ضرب عدد الدعاوي * الضريبة 

يعنى مثلا محامى جايب 15 عريضة و ضريبة المحامى على العريضة الواحدة 10 جنيه 

اذا ايصال الضريبة = 15 * 10 = 150 جنية

 

2- 

رساله الخطا التي تظهر اثناء الحفظ 

والتى تشير الى ان مجموع عدد الدعاوي يجب ان يساوي مجموع الرسم 

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

مثال : محامى جايب 10 دعاوي  , 5 منهم برسم 45 جنيه و 5 برسم 36 جنيه 

فاريد البرنامج يقارن مجموع العدد 5 + 5 مع اللى جايبة المحامى (10 دعاوي) , بحيث لو اخطأت اثناء الادخال وقمت بادخال دعوى زيادة يقولى ان المحامى جايب 10 دعاوي فقط وليس 11 

 

 

وشاكر جدا لمجهوداتك وتسلم ايدك 

قام بنشر
منذ ساعه, أبو حنــــين said:

مرحبا

هل بهذه الطريقة

 

ترحيل 3.rar

تسلم ايدك الله ينور

اخر شىء بعد اذنك , بعد حفظ البيانات بالاقى البرنامج بيكتب  فى عمود الايصال فى العمود D صفر 

فممكن بعد اذنك تعدلها بحيث يكتب القيمه صحيحة زى ما بتظهر فى الفورم وهى عباره عن حاصل ضرب عدد الدعاوى * الضريبة 

وشكرا لحضرتك وتعبك معايا 

قام بنشر
7 ساعات مضت, أبو حنــــين said:

تم التعديل

 

ترحيل 4.rar

تسلم ايدك ابو حنين

اخر حاجة معلش غلبتك معايا

انا عملت خانتين واحدة باسم المبلغ المدفوع , و الاخرى باسم الباقى له

عايز اعمل معادله تخلى قيمه الباقى له = المبلغ المدفوع - المبلغ المطلوب من المحامى 

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

ترحيل 4.rar

قام بنشر

شىء اخير معلش انا اسف 

عايز الغى شرط اكمال كافه البيانات 

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

فبالتالى باقى الخانات ليس لها حاجة انى اكتب فيها 0 

فممكن نخلى شطر الاملاء يتوقف عند اول خانه للرسم  ؟

بمعنى اكتب :

اسم المحامى

10 عرائض

10 ضريبة

تصنيف الرسم يبقى عدد 10 * رسم 45 

ويحفظ على كدا دون الحاجة لاكمال باقى الخانات 

 

وشكرا

قام بنشر

السلام عليكم

قم فقط بتغيير الرقم 19 الى الرقم 6 في زر الحفظ و في الجزئية التالية 

و الرقم 6 يعني إلزامية ملأ  6 خاننات  الأولى : المحامي - الدعاوي - الضربة - الايصال - عدد - رسم

 

With SH
Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1


' هذا هو الرقم المعني بالتغيير من 19 الى 6
For x = 1 To 19


If Me.Controls("T" & x) = "" Then
MsgBox "هناك بيانات غير مكتملة", vbExclamation + vbMsgBoxRight, "خطأ"
Me.Controls("T" & x).SetFocus
Exit Sub
End If
Next

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information