| |
γさん
いつもお世話になっています。
1）Ｆｉｎｄの引数を記述しました。文字の属性に左右されないよう記述したら、2回目も検索出来ました。
2）「On Error Resume Next 」を外すと、ｏｂｊのある行が実行時エラー91がでていたのですが、検索結果がＮｏｔｈｉｎｇの時の処理が出来ていなかったことに気付きました。
下記のように記述を直しました。
3）シートの商品の構成をよく見ると、商品1と商品2は同じシートにあることが分りました。よって、ワークシート変数ｓｈとｓｈ2と区別せず、ｓｈのみとしました。
何れもγさんのアドバイスで気付けた事です。
本当に有難う御座いました。
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 'Ｋ列
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
