Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6073 / 76807

←次へ　｜　前へ→


	【76338】Re:複数回連続して検索したいが上手くゆきません

ペンネーム船長 - 14/11/1(土) 13:57 -


	引用なし

	パスワード

γさん

いつもお世話になっています。

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

2 hits

▼

【76285】複数回連続して検索したいが上手くゆきません ペンネーム船長 14/10/27(月) 22:49