اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

  تعديل هدا الكود انه لي واستاذنا / إبراهيم أبو ليله يحفظك الله

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

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

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [f16:f37]) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, 2) = Target.Offset(0, 0) * Target.Offset(0, 1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, 2) = Target.Offset(0, 0) * Target.Offset(0, 1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
End If
If Not Intersect(Target, [g16:g37]) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, 1) = Target.Offset(0, 0) * Target.Offset(0, -1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, 1) = Target.Offset(0, 0) * Target.Offset(0, -1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
End If
'.........................................................................

End Sub

 

hps.zip

رابط هذا التعليق
شارك

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

اخي عبدالواحد تفضل الملف تم التعديل علي الكود بحيث يكون عند إدخال الكمية والسعر يعطيك إجمالي قيمة الصنف وفي نفس اللحظة يكون الميلغ في إجمالي الفاتورة وهكذا عند إضافة صنف آخر تضاف قيمة الصنف في إجمالي الفاتورة .

ولكن بالنسبة للمتبقي هذا يتم تلقائيا بعد إدخالك قيمة المدفوع .

وكل ذلك يتم عند إضافة صنف جديد سوى من الفورم او بالإدخال يدويا في الشيت

هذا مافهمتــــــــــــــــــــــــــــــــــــــــة نرجوا التوضيح إذا خلاف ذلك.

                                                                                                                                     اخيك / أبو الحسن والحسين

تعديل في كود الفاتورة KHMB.rar

رابط هذا التعليق
شارك

بارك الله فيك اخي أبو الحسن والحسين ونفع بك الاسلام والمسلمين ربي يحفظه ويوفقه لما يُحبه ويرضاه

ممكن لوسمحت ان يتم اضافت في الكود الإجمالي والمدفوع والمتبقي

8.PNG

رابط هذا التعليق
شارك

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

يا اخي انا سويت ماذكرت وشرحت لك في المشاركة 2 ارجع لها ثم ارجع للمرفق

       
  إجمالي الفاتورة 1600
  المدفوع 0
  المتبقي 1600
رابط هذا التعليق
شارك

ارجو المساعدة  لدي مشكلة لما اضعط على زر المسح  تضهرلي هاده الاصفار التي تملؤبها الصفحة

تعديل في كود الفاتورة KHMB.zip

100.PNG

تعديل في كود الفاتورة KHMB.zip

رابط هذا التعليق
شارك

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