اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

السلام عليكم ورحمة الله تعالي وبركاته     .........  الاخوة الافاضل اساتذتي الكرام

مطلوب كود يوضع كلمة اجمالى الكشف في اخر خليه بها بيانات في العمود ( B ) وجمع بيانات باقي الاعمده  في نفس الصف امامها مع العلم بان البيانات متغيره  يعني ممكن استخدم عدد صفوف اكثر او اقل المهم يكون الجمع في اخر صف كما موضح في الورقه

مرفق ملف توضيحي اكثر ......... ولكم منى جزيل الشكر 

كود جمع.rar

 

 

رابط هذا التعليق
شارك

جرب هذا الماكرو

Sub my_sum()
Dim Lr As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
         With My_sheet
             Lr = Application.Max(.Range("a:a")) + 4
             .Range("b" & Lr + 2 & ":" & "e" & Lr + 2 & "").ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
             .Cells(Lr + 2, 3) = Application.Sum(Range("c4:c" & Lr))
             .Cells(Lr + 2, 4) = Application.Sum(Range("d4:d" & Lr))
             .Cells(Lr + 2, 5) = Application.Sum(Range("e4:e" & Lr))
        End With
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

منذ ساعه, سليم حاصبيا said:

جرب هذا الماكرو


Sub my_sum()
Dim Lr As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
         With My_sheet
             Lr = Application.Max(.Range("a:a")) + 4
             .Range("b" & Lr + 2 & ":" & "e" & Lr + 2 & "").ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
             .Cells(Lr + 2, 3) = Application.Sum(Range("c4:c" & Lr))
             .Cells(Lr + 2, 4) = Application.Sum(Range("d4:d" & Lr))
             .Cells(Lr + 2, 5) = Application.Sum(Range("e4:e" & Lr))
        End With
End Sub

 

شكرا  ليك استاذي الغالي 

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

رابط هذا التعليق
شارك

الان, سليم حاصبيا said:

يجب تشغيل الماكرو من جديد كلما تم التعديل على البيانات

يمكن وضع رز يقوم بتشفيل الماكرو

شكرا لاهتمامك استاذي انا بالفعل عملت مفتاه لتشغيل الماكرو ولكنه بيكون الجمع بردو في نفس الصف ممكن حضرتك تطبقه على ملف وتجرب بنفسك

رابط هذا التعليق
شارك

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

بعد اذن الاستاذ سليم

جرب اخى هذا الكود

Sub SummCol()
Lr = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Lr & ":E" & Lr).ClearContents
For R = 5 To Lr
x = x + Cells(R, "C")
y = y + Cells(R, "D")
Z = Z + Cells(R, "E")
Next
LS = Range("B" & Rows.Count).End(xlUp).Row
Cells(LS + 2, 2) = "اجمالى الكشف"
Cells(LS + 2, 3) = x
Cells(LS + 2, 4) = x
Cells(LS + 2, 5) = x
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

3 دقائق مضت, زيزو العجوز said:

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

بعد اذن الاستاذ سليم

جرب اخى هذا الكود


Sub SummCol()
Lr = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Lr & ":E" & Lr).ClearContents
For R = 5 To Lr
x = x + Cells(R, "C")
y = y + Cells(R, "D")
Z = Z + Cells(R, "E")
Next
LS = Range("B" & Rows.Count).End(xlUp).Row
Cells(LS + 2, 2) = "اجمالى الكشف"
Cells(LS + 2, 3) = x
Cells(LS + 2, 4) = x
Cells(LS + 2, 5) = x
End Sub

 

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

ولو امكن معرفة ازاى ازود فيه اعمده الجمع علما ان اعمده الجمع حوالى 25 عمود بجوار بعضهما

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

6 دقائق مضت, سليم حاصبيا said:

جرب المرفق

 

كود جمع salim.rar

كدا شغال كويس بس مش بيمسح صف الجمع ال قبل منه بيكون فيه صفين اجمالى للكشف

 

رابط هذا التعليق
شارك

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )

Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

 

رابط هذا التعليق
شارك

منذ ساعه, زيزو العجوز said:

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

بعد اذن الاستاذ سليم

جرب اخى هذا الكود


Sub SummCol()
Lr = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Lr & ":E" & Lr).ClearContents
For R = 5 To Lr
x = x + Cells(R, "C")
y = y + Cells(R, "D")
Z = Z + Cells(R, "E")
Next
LS = Range("B" & Rows.Count).End(xlUp).Row
Cells(LS + 2, 2) = "اجمالى الكشف"
Cells(LS + 2, 3) = x
Cells(LS + 2, 4) = x
Cells(LS + 2, 5) = x
End Sub

 

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

رابط هذا التعليق
شارك

منذ ساعه, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

 

 

منذ ساعه, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

 

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

رابط هذا التعليق
شارك

26 دقائق مضت, ابو حمادة said:

 

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )

Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

 

جمع للورقه salim.rar

  • Like 1
رابط هذا التعليق
شارك

17 دقائق مضت, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

 

جمع للورقه salim.rar

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

يريت تحاول تجرب الملف وتشوف النتيجه فيه ملاحظتين

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

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

اتمنى اكون قدرت اوصلك المعلومه

ولك منى تحياتى

 

رابط هذا التعليق
شارك

منذ ساعه, ابو حمادة said:

 

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )

Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

تم التعديل

 

 

جمع للورقه salim1.rar

  • Like 1
رابط هذا التعليق
شارك

36 دقائق مضت, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

 

جمع للورقه salim.rar

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

يريت تحاول تجرب الملف وتشوف النتيجه فيه ملاحظتين

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

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

اتمنى اكون قدرت اوصلك المعلومه

ولك منى تحياتى

 

شكرا لحضرتك استاذ سليم بس بردو مازالت نفس المشكله 

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

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

كما موجود في الصوره المرفقه ولاحظ الفرق في الصورة

لاحظ الصووره وانظر لصف المجموع عند اضافه اي بيان

سوف تجد 2 صف للمجموع بدلا من 1

Capture44.JPG

رابط هذا التعليق
شارك

الله ينور ياباشا بجد تسلم ايدك استاذي الغالي

بجد انا شاكر ليك جدا مجهود اكثر من رائع

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

وزادك  الله علما تنفع به الناس

لو امكن ان تساعدنيفي هذا الملف 

لو امكن 

ولك جزيل الشكر والتقدير

 

رابط هذا التعليق
شارك

في ٢٠‏/١‏/٢٠١٧ at 19:00, سليم حاصبيا said:

نم التعديل على الملف وتفادي الخطأ 

انظر الى التعديل الذي جرى في معادلات العامود الاول

 

جمع للورقه salim2.rar

السلام عليم اخي الغالي استاذ سليم حاصبيا

ممكن استفسار بسيط بخصوص كود الجمع ال حضرتك عامله هو بيبدا يجمع بدايه من العمود ( G ) الى العمود ( W ) وانا محتاجه يجمع من  ( G ) الى ( X ) ازى اعدل المدي دا بعد اذنك وهل من الممكن وضع سطر لتحديد النطاق 

لك منى تحياتى وجزاك الله خيرا

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information