|
γさん
いつもお世話になっています。
1)Findの引数を記述しました。文字の属性に左右されないよう記述したら、2回目も検索出来ました。
2)「On Error Resume Next 」を外すと、objのある行が実行時エラー91がでていたのですが、検索結果がNothingの時の処理が出来ていなかったことに気付きました。
下記のように記述を直しました。
3)シートの商品の構成をよく見ると、商品1と商品2は同じシートにあることが分りました。よって、ワークシート変数shとsh2と区別せず、shのみとしました。
何れもγさんのアドバイスで気付けた事です。
本当に有難う御座いました。
Private Sub CommandButton1_Click()
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", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, MatchByte:=False) '1回目の検索
If Not obj Is Nothing Then
w = obj.Offset(0, 7).Value 'K列
If w = "1" Then
Set obj2 = sh.Cells.Find(what:="商品2", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, MatchByte:=False) ’2回目の検索
MsgBox ”商品2が検索できました”
End If
End If
w = ""
Next sh
End Sub
|
|