次のシナリオのマクロを作成する必要があります。
私は1枚のExcelの本を持っています。シートには、テストケースとテストステータスを含むモジュール名が含まれています。「Mod1」などの特定のモジュールのテストステータスでテストケースをカウントする必要があります。
Module Test Case ID Status
Mod1 123 Pass
Mod2 124 Fail
Mod1 125 Fail
Mod1 126 Blocked
Mod5 127 Pass
Mod1 128 NA
私が書いたコードは以下の通りです:
Sub testnw()
Dim k, l, ps, fl, bl, na As Integer
Dim frng As Range
ps = 0
fl = 0
bl = 0
na = 0
frng = Worksheets(1).Range("A1")
k = 1
l = 1
While (frng.Cells(k, l).Value <> "")
If frng.Cells(k, l).Value = "Mod1" Then
If frng.Cells(k, l + 2).Value = "Pass" Then
ps = ps + 1
ElseIf frnng.Cells(k, l + 2).Value = "Fail" Then
fl = fl + 1
ElseIf frng.Cells(k, l + 2).Value = "Blocked" Then
bl = bl + 1
Else
na = na + 1
End If
End If
Wend
MsgBox (ps)
MsgBox (fl)
MsgBox (bl)
MsgBox (na)
End Sub
上記のコードを実行すると、「オブジェクト変数またはブロック変数が設定されていません」というエラーメッセージが表示されます。
誰かが私がどこが間違っているのか教えてくれて、正しいコードを教えてもらえますか?
前もって感謝します。