|
【質問】
連続して検索を行おうとすると、2回目の検索が無視されてしまします。
どのような記述をすれば良いか教えて下さい。
【詳細説明】
複数のシートがあります。
1回目に商品1があるかどうか始めのシートからチェックしてゆきます。
商品1があった場合、その行のG列に1があるか否かを調べます。
もし、1があったとき次に商品2があるかどうか始めのシートから調査したいのですが、
2回目の検索は無視されてしまいます。
どのような記述をすれば良いか教えて下さい。
Private Sub CommandButton1_Click()
On Error Resume Next 'エラーを無視して進む
Dim sh As Worksheet
Dim obj As Range
Dim obj2 As Range
Dim w As String
For Each sh In Worksheets
Set obj = sh.Cells.Find(what:="商品1") '1回目の検索
w = obj.Offset(0, 7).Value 'G列
If w = "1" Then
Set obj = Nothing '変数をクリアさせる⇒効果なし
Set obj = sh.Cells.Find(what:="商品2") '続けて2回目の検索⇒NG
End If
w = ""
Next sh
End Sub
|
|