جمع تلقائي لعمود

[ابو مالك ابرش]

السلام عليكم اخواني للافاضل 

اريد صيفة جمع عمود متغير الطول وتكون النتيجة باول خلية بطريقة vba

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم

قم بإرفاق ملف لتجد استجابة أفضل للموضوع ، مع وضع بعض النتائج المتوقعة

تقبل تحياتي

[رشراش]

2 ساعات مضت, ياسر خليل أبو البراء said:

استاذي ابو البراء. . . اعتقد بامكانك مساعدتي

.

https://www.officena.net/ib/topic/77975-كمبوبوكس-بطريقتين/#

 

تم تعديل يوليو 5, 2017 بواسطه رشراش

[ياسر خليل أبو البراء]

ضع ملف مرفق هنا في الموضوع بدلاً من التشعب في موضوعات أخرى مع توضيح المطلوب بشيء من التفصيل أخي الكريم رشراش ..

وهل المطلوب كود يتم تنفيذه أم كود يوضع في حدث التغير في ورقة العمل؟

[ابو مالك ابرش]

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

اخي عندي هاد الكود يجمع عمود a فقط وانا اريد ان يكرر العملية باكثر من عمود مثلا من العمود a الى العمود f مثلا

Sub anwar_abo_malik_Sum()
LstRow1 = Range("A" & Rows.Count).End(xlDown).Row
Range("A" & LstRow1).Value = ""
With Range("A4:A" & LstRow1)
    .Font.Bold = False
.Interior.ColorIndex = 0
End With
LstRow2 = Range("A" & Rows.Count).End(xlDown).Row
X = Application.WorksheetFunction.Sum(Range("A4:A" & LstRow2))
Range("A1") = X
 With Range("A1")
 .Interior.ColorIndex = 8
    .Font.Bold = True
End With
End Sub
 

  

 

[ياسر خليل أبو البراء]

أخي الكريم أبو مالك

قم بطرح طلبك في موضوع مستقل مع وضع ملف مرفق ووضع الأكواد بين قوسي الكود ليظهر بشكل منضبط

[عبدالسلام ابوالعوافي]

بعد اذن الاستاذ ياسر .. جرب هذا الكود

Sub anwar_abo_malik_Sum()
    For i = 1 To 6
    LstRow1 = Cells(Rows.Count, i).End(xlDown).Row
    Cells(LstRow1, i).Value = ""
    With Range(Cells(4, i), Cells(LstRow1, i))
        .Font.Bold = False
        .Interior.ColorIndex = 0
    End With
    X = Application.WorksheetFunction.Sum(Range(Cells(4, i), Cells(LstRow1, i)))
    Cells(1, i) = X
    With Cells(1, i)
        .Interior.ColorIndex = 8
        .Font.Bold = True
    End With
    Next
End Sub

 

[ابو مالك ابرش]

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور اخ  عبد السلام ابو العوافي ضبط 100% 

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

بس انا قمت بتغير بسيط بالنسبة لل FOR I= 1 TO 6  صارت FOR I = 6 TO 17 عشان تبقى تحسب من العمود F  الى العمود Q