abo_mazin قام بنشر يوليو 11, 2005 قام بنشر يوليو 11, 2005 السلام عليكم اشكر لك كل ماتقوم به استاذ محمد واسئل الله ان يجعله لك في ميزان حسناتك سبق وطرحت سؤال كان كالتالي : الحقل 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 . واخيرا تقبل مني خالص الشكر والتقدير لشخصكم الكريم اخوك ابو مازن
محمد حجازي قام بنشر يوليو 11, 2005 قام بنشر يوليو 11, 2005 السلام عليكم ... الرجاء توضيح المقصود ... إذا كان العامود A يأخذ بياناته بشكل متتابع من العامود AD (كأن نقول A2 يأخذ بياناته من AD2 ، و A3 يأخذ بياناته من AD3 ، ... الخ) ، فلا تحتاج سوى لتبديل الرقم 1 (الموجود في السطر الثاني من الكود السابق) إلى30 . و لكل حالة خصوصيتها ، لذلك أرجو التفصيل .
abo_mazin قام بنشر يوليو 11, 2005 الكاتب قام بنشر يوليو 11, 2005 وعليكم السلام .. استاذ محمد الحقل A1 مرتبط بالحقل AD1 فقط لذلك التغير الحاصل في الحقل A1 هو نتيجة ادخالاتي في الحقل AD1 الكود يعمل اذا .... ادخلت الرقم مباشرة في الحقل A1 ولكن اذا ادخلته في الحقل AD1 فانه يظهر في الحقل A1 فقط ولاتتم عليه العمليات في باقي الحقول ارجو اني اكون وصلت لك مشكلتي بشكل اوضح . او انك تفضل ارفاق ملف يمثل طلبي ؟؟ شاكر لك اهتمامك استاذي محمد الله يجزاك عنا كل خير اخوك ابو مازن
محمد حجازي قام بنشر يوليو 11, 2005 قام بنشر يوليو 11, 2005 السلام عليكم ... بصراحة ، لم أفهم ما تعنيه بكلمة حقل !!! هل هذا ما تقصده ؟ : 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 قام بنشر يوليو 11, 2005 الكاتب قام بنشر يوليو 11, 2005 الكود لم يعمل معي وكلمة حقل .. اعني فيها الخلية الخلية A1 مرتبطة بالخلية AD1 و هذا رابط للملف اللذي اريده http://www.officena.net/ib/index.php?showtopic=8822 ارجو ان يكون واضح
abo_mazin قام بنشر يوليو 12, 2005 الكاتب قام بنشر يوليو 12, 2005 الف شكر لك استاذ محمد اتعبتك معي ... ولكن اسئل الله ان يجزاك عني وعن جميع الاخوان كل الخير الملف تمام وهذا ما اريده تقبل فائق الاحترام والتقدير اخوك ابو مازن
الردود الموصى بها