excel - Excel VBA の単純なコードのバグ

Question

次の関数をExcelで作成しようとしています。

1. 各ワークシートを反復します
2. 指定されたセルに指定された文字列が存在するかどうかを確認します
3. 手順 2 が True と評価された場合、既定のセル値を戻り値に追加します。

私は自分の関数をステップ実行しており、関数が戻り値に 4 番目のセルを追加する必要があるまで、正しい値を取得しています。

誰が何が起こっているのか知っていますか？ありがとう！

---

Function Revenue(row As Integer, col As Integer, str As String) As Integer

    Dim i As Integer

        For i = 2 To Worksheets.Count

            If Worksheets(i).Cells(row, col) = str Then

                Revenue = Revenue + Worksheets(i).Cells(21, 2) // Bug occurs on 4th iteration
                Debug.Print Revenue

            End If

        Next i


End Function

Answer 1

行と列を使用する前に値を確立する必要があります。