performance - 合計 = 合計 + ActiveCell.Value が for each ループで機能しない

Question

別のシートのいくつかのセルを検索したいこのコードがあり、それらが基準に一致する場合は、セル関数に返される合計に隣接するセルを追加します。

Function collectUtfall(A1 As String, Ax As String)
Dim rng As Range
Dim total As Long: total = 0

Set rng = Sheets("Utfall").Range("M2:O272")

Dim cell As Range

For Each cell In rng
    If StrComp(cell.Offset(0, 1).Text, Ax, vbTextCompare) = 0 Then
        total = total + ActiveCell.Value
    Else

    End If
Next

collectUtfall = total

End Function

問題は、実行時に「サークル参照」エラーが発生することです。そのような使い方をしても問題はありActiveCell.Valueませんか？

10 などの値を試してみると、問題なく動作します。

total = total + 10

だから問題はActiveCell.Value？

Answer 1

Function collectUtfall(A1 As String, Ax As String)

Dim rng As Range

Dim total As Long


set total = 0


Set rng = Sheets("Utfall").Range("M2:O272")


Dim cell As Range


For Each cell In rng

    If StrComp(cell.Offset(0, 1).Text, Ax, vbTextCompare) = 0 Then
        total = total + Cell.Value

    Else


    End If

Next Cell


collectUtfall = total


End Function