Excel VBA質問箱 IV

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

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


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

6052 / 76735

←次へ　｜　前へ→


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

ペンネーム船長 - 14/10/27(月) 22:49 -


	引用なし

	パスワード

【質問】
連続して検索を行おうとすると、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回目の検索⇒ＮＧ
　　End If
　　w = ""

　　Next sh

End Sub

0 hits

▼

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