Excel VBA質問箱 IV

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

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


5999 / 76733 ←次へ | 前へ→

【76338】Re:複数回連続して検索したいが上手くゆきません
お礼  ペンネーム船長  - 14/11/1(土) 13:57 -

引用なし
パスワード
   γさん

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

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
3 hits

【76285】複数回連続して検索したいが上手くゆきません ペンネーム船長 14/10/27(月) 22:49 質問[未読]
【76287】Re:複数回連続して検索したいが上手くゆき... 独覚 14/10/28(火) 9:20 発言[未読]
【76307】Re:複数回連続して検索したいが上手くゆき... ペンネーム船長 14/10/29(水) 22:38 回答[未読]
【76309】Re:複数回連続して検索したいが上手くゆき... γ 14/10/30(木) 7:33 発言[未読]
【76329】Re:複数回連続して検索したいが上手くゆき... ペンネーム船長 14/10/31(金) 0:10 回答[未読]
【76330】Re:複数回連続して検索したいが上手くゆき... γ 14/10/31(金) 3:04 発言[未読]
【76338】Re:複数回連続して検索したいが上手くゆき... ペンネーム船長 14/11/1(土) 13:57 お礼[未読]

5999 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free