شمارش اعداد منفی متوالی

Question

لری یک سری اعداد در سلول های مجاور دارد که می توانند مثبت یا منفی باشند. او راهی برای تعیین بزرگترین دنباله اعداد منفی در محدوده می خواهد. بنابراین، اگر هفت عدد منفی در یک ردیف در این دنباله وجود داشته باشد، فرمولی می خواهد که مقدار 7 را برمی گرداند.

ما بالا و پایین نگاه کردیم و نتوانستیم فرمول واحدی را پیدا کنیم که آنچه را که می خواهیم انجام دهد. با این حال، می توانید این کار را با یک ستون میانی انجام دهید. به عنوان مثال، اگر اعداد خود را در ستون A (شروع A1) دارید، می توانید فرمول زیر را در سلول B1 قرار دهید:

=IF(A1

سپس در سلول B2 موارد زیر را وارد کنید:

=IF(A2

این را در تمام سلول های دیگر ستون B که مقداری در ستون A وجود دارد کپی کنید. سپس، در یک سلول دیگر (شاید سلول C1) می توانید فرمول زیر را قرار دهید:

=MAX(B:B)

این مقدار نشان دهنده بیشترین تعداد مقادیر منفی متوالی در ستون A خواهد بود.

اگر نمی خواهید یک ستون میانی برای دریافت پاسخ ایجاد کنید، می توانید یک تابع تعریف شده توسط کاربر ایجاد کنید که مقدار را برمی گرداند.

Function MaxNegSequence(rng As Range)
 search for the largest sequence
 of negative numbers in the range

    Dim c As Range
    Dim lCounter As Long
    Dim lMaxCount As Long
 
    Application.Volatile
    lCounter = 0
    lMaxCount = 0
    On Error Resume Next
    For Each c In rng.Cells
        If c.Value < 0 Then
            lCounter = lCounter + 1
            If lCounter > lMaxCount Then
                lMaxCount = lCounter
            End If
        Else
            lCounter = 0
        End If
    Next c
 
    MaxNegSequence = lMaxCount
End Function

برای استفاده از تابع، کافی است فرمولی شبیه به زیر را در کاربرگ خود قرار دهید:

= MaxNegSequence(A1:A512)