excel - VBAを使用して範囲内の値が特定の基準を満たすかどうかを計算するExcel

Question

私はExcelに2つの範囲を持っています。

x   |    y
------------
 5  |   -1
46  |   -4
 2  |    1
67  |   -1
22  |    1
 6  |    0
34  |    0
 7  |   -2

最初の列のそれぞれの値が 10 未満の場合にのみ、O 未満の値の 2 番目の列の合計を計算したい (つまり sum(y(i)、i<0andの場合x(i)<10)。したがって、この場合、合計は -3 になります。

Answer 1

ヘッダーが A1:B1 にあり、データが A2:B9 であると仮定すると、次のように使用されます。

=SUMIFS(B2:B9,A2:A9,"<10",B2:B9,"<0")

Answer 2

次のようなものを試してください

Function calc() AS Integer

    Dim sum AS Integer: sum = 0
    Dim c AS Range

    For Each c In ThisWorkbook.Worksheets(1).Range("A1:A15")
        If c.Value < 10  And c.Offset(0, 1).Value < 0 Then
            sum = sum + c.Offset(0, 1).Value
        End If
    Next c

    calc = sum

End Function