عمل الجمع لارقام متغيره

[abo_mazin]

السلام عليكم

اشكر لك كل ماتقوم به استاذ محمد واسئل الله ان يجعله لك في ميزان حسناتك

سبق وطرحت سؤال كان كالتالي :

الحقل c1 يجمع لي كل رقم يتغير في الحقل a1

عندما يكون الحقل b1 = true

يعني كان الحقل a1

100

124

105

اريد الحقل c1 يجمع هذه الارقام اذا كان b1 =true

هل بالامكان عمل الجمع لارقام متغيره في خانة واحدة فقط بشرط true في الحقل المجاور ؟

وقد زودتني بالكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
   If (Target.Column = 1 Or Target.Column = 2) And Me.Cells(Target.Row, 2) = True Then
           Me.Cells(Target.Row, 3).Value = Me.Cells(Target.Row, 3).Value + Me.Cells(Target.Row, 1).Value
   End If
End Sub

الكود نتائجة ممتازه واشتغل معي ولكنه يتطلب الادخال اليدوي في الخانة A1

اقصد انه لازم اكتب انا الرقم وبعد ضغط انتر ينفذ الكود المطلوب .

لذلك انا اريد منك استاذ محمد لمسة اخيرة تمكني من القيام بالعمليات آلياً

باعتبار ان الحقل A1 ياخذ ارقامه من الحقل AD2 .

واخيرا تقبل مني خالص الشكر والتقدير لشخصكم الكريم

اخوك ابو مازن

[محمد حجازي]

السلام عليكم ...

الرجاء توضيح المقصود ...

إذا كان العامود A يأخذ بياناته بشكل متتابع من العامود AD (كأن نقول A2 يأخذ بياناته من AD2 ، و A3 يأخذ بياناته من AD3 ، ... الخ) ، فلا تحتاج سوى لتبديل الرقم 1 (الموجود في السطر الثاني من الكود السابق) إلى30 .

و لكل حالة خصوصيتها ، لذلك أرجو التفصيل .

[abo_mazin]

وعليكم السلام .. استاذ محمد

الحقل A1 مرتبط بالحقل AD1 فقط

لذلك التغير الحاصل في الحقل A1 هو نتيجة ادخالاتي في الحقل AD1

الكود يعمل اذا .... ادخلت الرقم مباشرة في الحقل A1

ولكن اذا ادخلته في الحقل AD1 فانه يظهر في الحقل A1 فقط ولاتتم عليه العمليات في باقي الحقول

ارجو اني اكون وصلت لك مشكلتي بشكل اوضح .

او انك تفضل ارفاق ملف يمثل طلبي ؟؟

شاكر لك اهتمامك استاذي محمد

الله يجزاك عنا كل خير

اخوك ابو مازن

[محمد حجازي]

السلام عليكم ...

بصراحة ، لم أفهم ما تعنيه بكلمة حقل !!!

هل هذا ما تقصده ؟ :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$AD$1" And Me.Range("B1").Value = True Then
          Me.Range("C1").Value = Me.Range("C1").Value + Me.Range("A1").Value
  End If
End Sub

[abo_mazin]

الكود لم يعمل معي

وكلمة حقل .. اعني فيها الخلية

الخلية A1 مرتبطة بالخلية AD1

و هذا رابط للملف اللذي اريده

http://www.officena.net/ib/index.php?showtopic=8822

ارجو ان يكون واضح

[محمد حجازي]

السلام عليكم ...

تفضل المرفق :

file1.rar

[abo_mazin]

الف شكر لك استاذ محمد

اتعبتك معي ... ولكن اسئل الله ان يجزاك عني وعن جميع الاخوان كل الخير

الملف تمام وهذا ما اريده

تقبل فائق الاحترام والتقدير

اخوك ابو مازن