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

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


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

السلام عليكم

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

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

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

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

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

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

تم تعديل بواسطه رامي قلعجية
رابط هذا التعليق
شارك

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

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

في العامود f 

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

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

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

الكود لا يعمل الا اذا كان الصف كاملاً   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

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

ليكون

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

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

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

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

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information