جمع شرطی اعداد یک ستون

[Som]

باسلام و احترام
یرای اینکه بتونم اعدادی که در یک ستون هستند ولی به صورت دسته بندی شده باهم جمع کنم مثلا 10عدد زیر هم هستند یک سلول خالی دوباره 30عدد و یک سلول خالی.و به همین صورت تا انتها .میخوام جمع اون 10عدد تو سلول خالی ،و مابقی هم به همین صورت باشه.باتشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[khakzad]

سلام
ببینید این روش مناسبه؟


فرمول داخل سل B4 نمایش داده شده است در فرمول بار

[abootorab]

باسلام و احترام
یرای اینکه بتونم اعدادی که در یک ستون هستند ولی به صورت دسته بندی شده باهم جمع کنم مثلا 10عدد زیر هم هستند یک سلول خالی دوباره 30عدد و یک سلول خالی.و به همین صورت تا انتها .میخوام جمع اون 10عدد تو سلول خالی ،و مابقی هم به همین صورت باشه.باتشکر

با درود
ضمن تشکر از خانم خاکزاد، از کد زیر هم میتونید استفاده کنید.

Sub DoSumRng()
    Dim SumRng As Long, NotEmpty As Boolean, EndRow As Integer
    
    On Error Resume Next
    EndRow = Sheet1.Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If Err.Number <> 0 Then Exit Sub
    
    Sheet1.Range("A:A").Interior.Pattern = xlNone
    Sheet1.Range("A:A").Font.Bold = False
    i = 1: NotEmpty = False
    Do While i <= EndRow + 1
        If Sheet1.Range("A" & i) <> "" Then
            SumRng = SumRng + Sheet1.Range("A" & i).Value
            NotEmpty = True
        Else
            If NotEmpty = True Then
                Sheet1.Range("A" & i).Interior.Color = 65535
                Sheet1.Range("A" & i).Font.Bold = True
                Sheet1.Range("A" & i) = SumRng
                SumRng = 0
                NotEmpty = False
            End If
        End If
        i = i + 1
    Loop
End Sub 

فایل نمونه ضمیمه گردید.
تویح اینکه: رنگی و بولد شدن فونتهای (و بالعکس) سل های مجموع، بصورت اتوماتیک با هربار فشردن کلید Do Sumation انجام میشود.

[Som]

از اینکه پاسخ دادید سپاسگزارم.این روش بسیار ساده و خوبی هست.البته من این رو در فایل خودم امتحان کردم.متاسفانه جواب نداد.فایل به پیوست ارسال شده.

[Som]

از پاسخگویی شما سپاسگزارم.به دنبال راهی ساده تر هستم که از فرمول های اکسل استفاده شده باشد.

[generalsamad]

از اینکه پاسخ دادید سپاسگزارم.این روش بسیار ساده و خوبی هست.البته من این رو در فایل خودم امتحان کردم.متاسفانه جواب نداد.فایل به پیوست ارسال شده.

با سلام
فرمولتون رو به اینصورت تغییر دهید

=IF(P2="";0;P2+Q2) 

توی فایل ضمیمه در قسمت شرط از space (فضای خالی ) استفاده کردید

[Som]

با سلام
فرمولتون رو به اینصورت تغییر دهید

=IF(P2="";0;P2+Q2) 

توی فایل ضمیمه در قسمت شرط از space (فضای خالی ) استفاده کردید

سپاسگزارم