特定の範囲を選択し、その上に数字「0」を見つけるマクロがあります。その数に等しい変数を作成できるように、選択した範囲に「0」が何回表示されるかを知りたいです。find がクエリの一致を返す回数に等しい変数を設定するにはどうすればよいですか?
ActiveCell.Select
Selection.Offset(0, 1).Select
item = ActiveCell.Value
Sheets("Lights").Select
Rows(3).Select
Selection.Find(What:=item, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Select
q = ActiveCell.row()
z = ActiveCell.Column()
Range(Cells(q, z), Cells(72, z)).Select
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
したがって、範囲に 0 のインスタンスが 7 つある場合、変数 m= 7 を設定します。