كيف نجعل الكود يعمل على كل العمود

[رامي قلعجية]

السلام عليكم

كيف نجعل الكود يعمل على كل العمود بدل من السطر الواحد 

privare sub workheet_selectionchange(byval target as rangr) 

dim a as long 

dim b as long 

dim sum as long 

a = range("d7").value

b = range("f7").value

sum = a * b

range ("g7"). value = sum

بصفحة fatoura

fatoura3.rar

تم تعديل أبريل 29, 2019 بواسطه رامي قلعجية
رفعت الملف شكرا لك على الرد

[سليم حاصبيا]

ارفع ملف توضح فيه المطلوب

[رامي قلعجية]

3 دقائق مضت, سليم حاصبيا said:

ارفع ملف توضح فيه المطلوب

رفعته اخي سليم

[سليم حاصبيا]

3 دقائق مضت, رامي قلعجية said:

رفعته اخي سليم

لم توضح في اي ورقة تريد ان يعمل الكود

ارفع ملف صغير من ورقة واحدة توضح فيها المطلوب

[رامي قلعجية]

40 دقائق مضت, رامي قلعجية said:

السلام عليكم

كيف نجعل الكود يعمل على كل العمود بدل من السطر الواحد 

privare sub workheet_selectionchange(byval target as rangr) 

dim a as long 

dim b as long 

dim sum as long 

a = range("d7").value

b = range("f7").value

sum = a * b

range ("g7"). value = sum

بصفحة fatoura

fatoura3.rar 252.1 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

كتبت بورقة فاتورة

اسف انا مش على بعضي وحاسس حالي ناشف معاك بالكلام ارجو ان تجد لي عزر 

تم تعديل أبريل 29, 2019 بواسطه رامي قلعجية

[سليم حاصبيا]

يا اهي الملف يحتوي على اكثر من شيت 

اي شيت تريد ان تعمل عليه؟؟؟؟

[رامي قلعجية]

اخي سليم اسف مرة ثانية 

اريد العمل على الشيت fatoura 

كتبت لك ذالك فوق اسف اخي سليم مرة ثانية

[عبدللرحيم]

بعد إذن استاذى سليم حاصبيا

تفضل اخى رامي قلعجية

جرب الملف شيت fatoura

قد يكون المطلوب

OK_fatoura2.zip

[رامي قلعجية]

شكرا لك اخي الحبيبي عبد الرحيم 

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

في العامود f 

شكرا جزيلا لك وللاخ سليم على مروركم الكريم 

[احمد بدره]

بعد إذن أستاذنا الأفاضل

ممكن تجرب هذا الكود لعله يكون المطلوب

OK_fatoura2.zip

[رامي قلعجية]

شكرا لك اخي احمد بدرة 

لقد وضعت الكود في حدث change

مشكلة لا يتوقف عن الحساب🙄 

 

[سليم حاصبيا]

ربما كان المطلوب

الكود لا يعمل الا اذا كان الصف كاملاً   5 عناصر

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A7:E200")) Is Nothing _
And Target.Cells.Count = 1 Then
 Range("F7:F200").Formula = "=IF(COUNTA($A7:$E7)<5,"""",E7*C7)"
 Range("F7:F200").Value = Range("F7:F200").Value
 End If
 Application.EnableEvents = True
End Sub

الملف مرفق

fatoura2.xlsm

[احمد بدره]

أحسنت بارك الله فيك أستاذنا الفاضل

أرى أن يتم تغيير السطر

If Not Intersect(Target, Range("A7:E200")) Is Nothing _

ليكون

If Not Intersect(Target, Range("c7:c200")) Is Nothing _

حتى يتم عمل الكود بعد إدخال العدد

حيث أن عمود الكود وعمود العدد هما اللذان يتم الكتابة فيهم

والرأي الأخير لحضرتك فأنت معلمي

[رامي قلعجية]

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