Excel VBA質問箱 IV

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

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


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

6008 / 76734

←次へ　｜　前へ→


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

ペンネーム船長 - 14/10/31(金) 0:10 -


	引用なし

	パスワード

商品1も商品2も1シートにひとつしかありません。
しかし、複数のシートに登録されています。
商品1のある行のＫ列には、必ず「1」「2」「3」「4」「5」のいずれかの数字があります。
下記のように1回目の検索に使う変数と2回目に使う変数を変えても2回目の検索
が無視されてしまいます。
なお、商品1も商品2もＤ列に登録されています。

Private Sub CommandButton1_Click()
On Error Resume Next　'エラーを無視して進む
Dim sh As Worksheet
Dim sh2 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 'Ｋ列
　　
　　If w = "1" Then　　’ｗが1のとき2回目の検索を実行する
　　　　For Each sh2 In Worksheets
　　　　　　Set obj2 = sh2.Cells.Find(what:="商品2")　'続けて2回目の検索⇒ＮＧ
　　　　Next sh2
　　End If
　　w = ""

Next sh

End Sub

5 hits

▼

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