كود جمع بفيجوال بيزيك

[Ali Tawfeek]

محتاج صيغة كود الجمع في برنامج الاكسيل لو حبيت ادخله بصيغة الفيجوال

[ابوالزوز]

السلام عليكم ،،

إليك الكود أخي الكريم

Sheet1.Range("C3") = WorksheetFunction.Sum(Sheet1.Range("A:A"))

تقبل تحياتي ..

[Ali Tawfeek]

اخى الكريم اولا مشكور على سرعة ردك و ارجو منك الاستفسار عمليا على الملف المرفق حيث يتضح لى عن كيفية تحديد نطاق الجمع

فعلى المثال المرفق الجمع المراد سيكون من نطاق من A : D و سوف يكون الكود من المفترض فى خلية E

لهذا اخى الكريم هل لى من استفاضة اكثر و شكرا لك

ارجو الرد اذا كان سيكون فى شكل مرفق ان يكون امتداد الملف Zip

test.zip

تم تعديل يناير 18, 2009 بواسطه ali fathi

[Ali Tawfeek]

و اضيف سؤال اخر و هو عن كيفية تطبيق المعادلة على العمود بالكامل او على تطبيق هذا على نطاق معين بالعمود و ليكن من E2 : E40

و شكرا لسرعة الرد على اخر سؤالين و ارجو الرد السريع حتى يمكنى التطبيق السريع للاهمية

ملحوظة اذا كان الرد يحتوى على ملف يرجى ان يكون بصيغة zip اذا كان مضغوط

[ابو اسامة العينبوسي]

السلام عليكم

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

[Ali Tawfeek]

مشكور اخى ابو اسامه على ردك و مساهمتك فى تفاعلك

فهل لى من الاسئلة اخرى حيتى يتثنى لى فهم الموضوع و تطبيقة

اولا ماذا نقصد بحرف I فى الكود السابق

ثانيا من 1 الى 4 ماذا نقصد بهذا النطاق حيث ان النطاق بالنسبة لى هو حروف و ليس ارقام

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

[ابو اسامة العينبوسي]

السلام عليكم

i هو متغير يرمز الى رقم الصف الذي انت فيه

1 - 4 هما ارقام الاعمده

1 =A

2=B

و هكذا

[Ali Tawfeek]

i هو متغير يرمز الى رقم الصف الذي انت فيه

اتقصد ان I متغير اي معنى هذا يمكنى تسمية الصف او الرمز باى مسمى ام ماذا و اذا كان غير هذا فماذا ارمز الى الصفوف

حيث الاعمدة رمزت اليها بترقيم من 1 الى ........ 4

طيب الصفوف الى ماذا ارمز اليها و كيفية ترتيب الترميز

و اضيف سؤال اخر و هو عن كيفية تطبيق المعادلة على العمود بالكامل او على تطبيق هذا على نطاق معين بالعمود و ليكن من E2 : E40

شكرا للتوضيح

تم تعديل يناير 19, 2009 بواسطه ali fathi

[Ali Tawfeek]

اخوانى محتاج رد سريع او امكن و شكرا

[Ali Tawfeek]

اخوانى محتاج رد سريع او امكن و شكرا

اخوانى ما زالت منتظر الرد

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

و اضيف سؤال اخر و هو عن كيفية تطبيق المعادلة على العمود بالكامل او على تطبيق هذا على نطاق معين بالعمود و ليكن من 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

[Ali Tawfeek]

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

عذرا لضعفي فى فيجوال بيسك

منتظر ردك

[هادى محمد المامون سالم]

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

عذرا لضعفي فى فيجوال بيسك

منتظر ردك

بسم الله الرحمن الرحيم

استخدم الكود التالى

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