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

[الفدائي]

أولا الشكر كل الشكر للاخوان العيدروس والأخ عبد الله لمساهمتهم في الموضوع الاتي :

http://www.officena....showtopic=39886

جعل الله ذلك في ميزان حسناتهم ووفقهم لما يحب ويرضى

اريد معرفة عمل هذا الكود بالتفصيل وهل يمكن تعميمه لأي عمود نختاره

Sub dural()

Dim N As Long

N = Cells(Rows.Count, "H").End(xlUp).Row

Cells(N + 1, "H").Formula = "=SUM(H1:H" & N & ")"

End Sub

__________________________________ سؤال آخر بسيط : الكود الاتي يقوم بادراج المعادلة الي نهاية ورقة الاكسل يعني حوالي 65 الف صف هل يمكن التعديل عليه بحيث يدرج المعادلة حتى نهاية الجدول فقط ؟

Worksheets(CurrentSheetName).Range("I12", Range("I12").End(xlDown)).FormulaR1C1 = "=rc[-1]*rc[-2]"

وجزاكم الله الف خير

أخوكم : الفدائي

تم تعديل ديسمبر 24, 2011 بواسطه Alfidai

[طارق محمود]

تفضل أخي الصورة

[طارق محمود]

سؤال آخر بسيط :

الكود الاتي يقوم بادراج المعادلة الي نهاية ورقة الاكسل يعني حوالي 65 الف صف هل يمكن التعديل عليه بحيث يدرج المعادلة حتى نهاية الجدول فقط ؟

Worksheets(CurrentSheetName).Range("I12", Range("I12").End(xlDown)).FormulaR1C1 = "=rc[-1]*rc[-2]"

جرب أخي الكود التالي

Worksheets(CurrentSheetName).Range("I12", [I120000].End(xlUp).Offset(1, 0)).FormulaR1C1 = "=rc[-1]*rc[-2]"

[عبدالله المجرب]

السلام عليكم

جرب هذا التعديل ليتم تخييرك اي عمود تريد حساب نتيجته

Sub dural()

On Error GoTo 0

Dim N As Long

W = InputBox("أكتب اسم العمود الذي تريد", "إدخال بيانات")

If W = "" Or W = 0 Then Exit Sub

N = Cells(Rows.Count, W).End(xlUp).Row

Cells(N + 1, W).Formula = Application.Sum(Range(W & 1 & ":" & W & N))

0 End Sub

حيث ستكتب اسم العمود مجرد مثل

K H وهكذا

[الفدائي]

الأخوة الكرام : طارق وعبد الله بارك الله فيكم وأدخلكم الفردوس الأعلى

أخي طارق شرح بيسط ومفهوم شكرا لك

خيار جميل أدرجته في البرنامج يزيد من درجة مرونته أخي عبدالله

نسال الله أن لا يضيع جهدكم سدى وأن يجعله خالصا لوجهه الكريم

والسلام عليكم ورحمة الله

تم تعديل ديسمبر 25, 2011 بواسطه Alfidai

[الفدائي]

سؤال في نقطة معينة من شرح الكود للاخ طارق - جزاه الله الف خير

في السطر الاخير للكود :

SUM(H1:H" & N & ")

H1:H --> الايعني اختيار مجموع العمود H من أوله الى آخره ؟

ثم ما ذا تعني :

" & N & " ولماذا علامتي التنصيص " " و & ؟ ( من الشرح معلوم انها رقم صف للخلية الاخيرة لكن ما وظيفتها ؟)

تم تعديل ديسمبر 25, 2011 بواسطه Alfidai

[طارق محمود]

سؤال في نقطة معينة من شرح الكود للاخ طارق - جزاه الله الف خير

في السطر الاخير للكود :

SUM(H1:H" & N & ")

H1:H --> الايعني اختيار العمودH من أوله الى آخره ؟

ثم ما ذا تعني :

" & N & " ولماذا علامتي التنصيص " " و & ؟ ( من الشرح معلوم انها رقم صف للخلية لكن ما وظيفتها ؟)

لابد أن ترجع للسطر السابق

N = Cells(Rows.Count, "H").End(xlUp).Row

بفرض أن عندك بيانات في العمود H حتي السطر 20 فهذا الأمر يجعل مؤشر الإكسل يذهب للخلية H65536 (مثلا آخر خلية في إكسل 2003) ثم يصعد حتي يجد بيانات وفي هذا المثال سيجد البيانات في الخلية H20 إذن سيعطي المتغير N قيمة رقم السطر = 20 ومن هنا نأتي لهذا الجزء من السطر الثاني

SUM(H1:H" & N & ")

إذا عوضت عن N بالرقم 20 ستكون المعادلة

SUM(H1:H20)

وأيضا الجزء الأول من السطر الثاني

Cells(N + 1, "H").Formula

تعني صيغة المعادلة بالخلية H21 (إذا عوضت عن N بالرقم 20) إذن السطر الثاني كاملا

Cells(N + 1, "H").Formula = "=SUM(H1:H" & N & ")"

يعني إجعل صيغة المعادلة بالخلية H21

  = SUM(H1:H20)

[الفدائي]

اتعبتك معي أخي طارق ..... العفو

اذن ما علمته ان N هي المتغير الذي يحمل رقم صف آخر خلية

ولكتابة متغير داخل صيغ المعادلة لابد من وضعه داخل علامتي تنصيص و آند هكذا "&&"

لكن لا توجد علامة فاصلة بنهم (,) بل القيمة مضروبة في المتغير

مشكووووور كتير ..... نسال الله ان يعلمنا علما نافعا

____________________________

هل يوجد موضوع يشرح أكواد كهذه مثلا بالترتيب ؟

اقترح ان نجمع جميع شروحات الاكواد وتنقيتها من المشاركات لتكون مرجعا لمن أراد الرجوع اليها

أو وضعها في كتاب واحد PDF

تم تعديل ديسمبر 25, 2011 بواسطه Alfidai

[الشهابي]

الأخ Alfidai والله أعجبتني جرءتك في طلب شرح الكود هكذا يتعلم الإنسان لا أدري أنا لست من ذلك النوع تمر علي أكواد وأقوم بتنفيدها ففط دون أن أفهمها أحياناً تراني أريد أن أفهم ولكن أرى في طلب ذلك ثقالة شوية كيف ساعدك بعمل الكود وتتعبه بالشرح أيضاً إن شاء الله سوف أنهج نهجك حتى نتعلم جزاك الله خير

وأيضا لطلبك

اقترح ان نجمع جميع شروحات الاكواد وتنقيتها من المشاركات لتكون مرجعا لمن أراد الرجوع اليها

أو وضعها في كتاب واحد PDF

هذا ما نريده بل أفضل من خبراءنا الإعزاء جزاهم الله خير أن يقدموا شرحاً ولو مبسطاً أمام أسطر الكود الذي يقدمونه لأحد الأعضاء حتى يستفيد ويستفيد الجميع

[الفدائي]

اشكرك أخي الشهابي على مرورك وتعليقك في الموضوع وان شاء الله ساسعى الى جمع هذه الشروحات لكن هذا سيأخذ مني بعض الوقت