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

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

قام بنشر

اخواني الاعزاء تحية طيبه في المرفق معادلات وزر لجعل الماكرو يعمل اعتمادا على كود جاد به احد عمالقة المنتدى اتساءل عن امكانية اجراء تعديل على الكود ليعمل تلقائيا بمجرد ادخال البيانات والاستغناء عن الزر مع التقدير

معادلات بزر ماكرو.zip

قام بنشر

السلام عليكم

ضع هذا الكود في حدث ورقة العمل


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [F7:F1000]) Is Nothing Then

For i = 2 To 6

Target.Offset(0, i).FormulaR1C1 = Cells(4, Target.Offset(0, i).Column).FormulaR1C1

Target.Offset(0, i).Value = Target.Offset(0, i)

Next

End If

End Sub

  • Like 1
قام بنشر

استاذنا العزيز مع شكري وتقديري الكود يستخرج سعري البيع والشراء للمواد دون التأثير في خلايا اعمدة ( القيمه والقائمه والفرق ) ارجو شاكرا جهدكم اتمام ما بدأتم به مع الامتنان

قام بنشر

اخواني الاعزاء تحية طيبه ارجو ان لا اكون ملحا" في طلبي ولكن هي الحاجة تدعو ان استفسر عن امكانية اكمال ما تقضل به اخينا العزيز عبد الله او نقف عند هذا الحد منعا" للاحراج او الازعاج مع الامتنان

قام بنشر

استاذنا العزيز مع شكري وتقديري لاهتمامكم ارفق الملف بعد اضافة الكود اليه حيث لم تتم اضافة معادلات الاعمده الملونه بالاصفر ضمن الكود لذا لم تظهر النتائج في خلاياها

ارجو المساعده للوصول الى الغاية مع الامتنان

معادلات بزر ماكرو2.zip

قام بنشر

اخي الفاضل

لا يتم ادراج المعادلات في الكود وانما اخذها من الخلايا الخضراء

========

في البداية جرب ان تغيير في خلية التفاصيل وسترى النتيجة

------------------------------------------------

للعلم تفعيل الكود يعتمد على التغيير في خلية التفاصيل

اما اذا اردت التفعيل يشمل التغيير في خلية الوكيل (اي بعد اختيار الوكيل يتم تفعيل الكود )

سيكون الكود هكذا


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [D7:D1000,F7:F1000]) Is Nothing Then

For i = 8 To 12

Cells(Target.Row, i).FormulaR1C1 = Cells(4, i).FormulaR1C1

Cells(Target.Row, i).Value = Cells(Target.Row, i)

Next

End If

End Sub

قام بنشر

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

قام بنشر

تفضل


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [D7:D1000,F7:F1000]) Is Nothing Then

Cells(Target.Row, 8).FormulaR1C1 = "=IF(RC[-2]="""","""",VLOOKUP(RC[-2],prices,2,0))"

Cells(Target.Row, 9).FormulaR1C1 = "=IF(RC[-3]="""","""",RC[-2]*RC[-1])"

Cells(Target.Row, 10).FormulaR1C1 = "=IF(COUNTIF(RC[-7]:R5C[-7],RC[-7])=1,SUMIF(C[-7],RC[-7],C[-1]),"""")"

Cells(Target.Row, 11).FormulaR1C1 = "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],prices,3,0))"

Cells(Target.Row, 12).FormulaR1C1 = "=IF(RC[-6]="""","""",RC[-5]*(RC[-4]-RC[-1]))"

For i = 8 To 12

Cells(Target.Row, i).Value = Cells(Target.Row, i)

Next

End If

End Sub

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