Ali Tawfeek قام بنشر يناير 18, 2009 مشاركة قام بنشر يناير 18, 2009 محتاج صيغة كود الجمع في برنامج الاكسيل لو حبيت ادخله بصيغة الفيجوال رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر يناير 18, 2009 مشاركة قام بنشر يناير 18, 2009 السلام عليكم ،، إليك الكود أخي الكريم Sheet1.Range("C3") = WorksheetFunction.Sum(Sheet1.Range("A:A")) تقبل تحياتي .. رابط هذا التعليق شارك More sharing options...
Ali Tawfeek قام بنشر يناير 18, 2009 الكاتب مشاركة قام بنشر يناير 18, 2009 (معدل) اخى الكريم اولا مشكور على سرعة ردك و ارجو منك الاستفسار عمليا على الملف المرفق حيث يتضح لى عن كيفية تحديد نطاق الجمع فعلى المثال المرفق الجمع المراد سيكون من نطاق من A : D و سوف يكون الكود من المفترض فى خلية E لهذا اخى الكريم هل لى من استفاضة اكثر و شكرا لك ارجو الرد اذا كان سيكون فى شكل مرفق ان يكون امتداد الملف Zip test.zip تم تعديل يناير 18, 2009 بواسطه ali fathi رابط هذا التعليق شارك More sharing options...
Ali Tawfeek قام بنشر يناير 19, 2009 الكاتب مشاركة قام بنشر يناير 19, 2009 و اضيف سؤال اخر و هو عن كيفية تطبيق المعادلة على العمود بالكامل او على تطبيق هذا على نطاق معين بالعمود و ليكن من E2 : E40 و شكرا لسرعة الرد على اخر سؤالين و ارجو الرد السريع حتى يمكنى التطبيق السريع للاهمية ملحوظة اذا كان الرد يحتوى على ملف يرجى ان يكون بصيغة zip اذا كان مضغوط رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 19, 2009 مشاركة قام بنشر يناير 19, 2009 السلام عليكم Private Sub Worksheet_Change(ByVal Target As Range) i = Target.Row Range("e" & Target.Row) = Application.WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, 4))) End Sub رابط هذا التعليق شارك More sharing options...
Ali Tawfeek قام بنشر يناير 19, 2009 الكاتب مشاركة قام بنشر يناير 19, 2009 مشكور اخى ابو اسامه على ردك و مساهمتك فى تفاعلك فهل لى من الاسئلة اخرى حيتى يتثنى لى فهم الموضوع و تطبيقة اولا ماذا نقصد بحرف I فى الكود السابق ثانيا من 1 الى 4 ماذا نقصد بهذا النطاق حيث ان النطاق بالنسبة لى هو حروف و ليس ارقام منتظر ردك و استفاضك فى الشرح حيث انى مازالت مبتدئ فى الفيجوال و شكرا لك 1 رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 19, 2009 مشاركة قام بنشر يناير 19, 2009 السلام عليكم i هو متغير يرمز الى رقم الصف الذي انت فيه 1 - 4 هما ارقام الاعمده 1 =A 2=B و هكذا رابط هذا التعليق شارك More sharing options...
Ali Tawfeek قام بنشر يناير 19, 2009 الكاتب مشاركة قام بنشر يناير 19, 2009 (معدل) i هو متغير يرمز الى رقم الصف الذي انت فيه اتقصد ان I متغير اي معنى هذا يمكنى تسمية الصف او الرمز باى مسمى ام ماذا و اذا كان غير هذا فماذا ارمز الى الصفوف حيث الاعمدة رمزت اليها بترقيم من 1 الى ........ 4 طيب الصفوف الى ماذا ارمز اليها و كيفية ترتيب الترميز و اضيف سؤال اخر و هو عن كيفية تطبيق المعادلة على العمود بالكامل او على تطبيق هذا على نطاق معين بالعمود و ليكن من E2 : E40 شكرا للتوضيح تم تعديل يناير 19, 2009 بواسطه ali fathi رابط هذا التعليق شارك More sharing options...
Ali Tawfeek قام بنشر يناير 19, 2009 الكاتب مشاركة قام بنشر يناير 19, 2009 اخوانى محتاج رد سريع او امكن و شكرا رابط هذا التعليق شارك More sharing options...
Ali Tawfeek قام بنشر يناير 21, 2009 الكاتب مشاركة قام بنشر يناير 21, 2009 اخوانى محتاج رد سريع او امكن و شكرا اخوانى ما زالت منتظر الرد رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يناير 22, 2009 مشاركة قام بنشر يناير 22, 2009 بسم الله الرحمن الرحيم و اضيف سؤال اخر و هو عن كيفية تطبيق المعادلة على العمود بالكامل او على تطبيق هذا على نطاق معين بالعمود و ليكن من E2 : E40 لجمع العمود بالكامل و و ضع الناتج فى الخليه A2 استخدم الكود Sub Sum_Columns() [A2] = Application.WorksheetFunction.Sum(Range("E:E")) End Sub لجمع المجال E2:ُ40 و و ضع الناتج فى الخليه A1 استخدم الكود Sub Sum_Range() [A1] = Application.WorksheetFunction.Sum(Range("E2:E40")) End Sub مرفق ملف السلام عليكم Sum.rar رابط هذا التعليق شارك More sharing options...
Ali Tawfeek قام بنشر مارس 9, 2009 الكاتب مشاركة قام بنشر مارس 9, 2009 اخى الكريم هادى مشكور على مساعدتك و لكن هل لى ان افهم كيف لى اظهار الناتج على صفحة الاكسيل بدون استخدام ازار الجمع مثلما وضعت فى مثالك عذرا لضعفي فى فيجوال بيسك منتظر ردك رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 9, 2009 مشاركة قام بنشر مارس 9, 2009 اخى الكريم هادى مشكور على مساعدتك و لكن هل لى ان افهم كيف لى اظهار الناتج على صفحة الاكسيل بدون استخدام ازار الجمع مثلما وضعت فى مثالك عذرا لضعفي فى فيجوال بيسك منتظر ردك بسم الله الرحمن الرحيم استخدم الكود التالى Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 Then [A1] = Application.WorksheetFunction.Sum(Range("E2:E40")) [A2] = Application.WorksheetFunction.Sum(Range("E:E")) End If End Sub مرفق ملف السلام عليكم Sum_01.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان