Excel VBA質問箱 IV

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

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


7894 / 76736 ←次へ | 前へ→

【74423】inputboxで複数条件の検索
質問  isausa  - 13/6/10(月) 10:52 -

引用なし
パスワード
   ご指導お願いいたします。
シート枚数は各年度1枚づつ持っており、今のところ10シートです。一番上に検索シートがあり、検索語をinputoboxで入れると、各年のデータがでるようになっています。つぎはぎですが下記のマクロでうまく動いています。
しかし、現在では、I2に入力された検索語だけが検索ワードなので、inputoboxをもう一つ作り、j2に条件ををもう一つ入れて(AND)で検索したいのですが、方法がわかりません。
どなたかご教授下さい。

Sub 検索()
'
'  Dim X As String, SHX As String
  myR = Range("A" & Rows.Count).End(xlUp).Row + 1
  Range("A6:Q" & myR).ClearContents
  Range("I2").ClearContents
  
  
  X = Application.InputBox(prompt:="検索ワード", Type:=2)
  SHX = "*" & X & "*"
  Range("I2") = SHX


  自シ = ActiveSheet.Name
  検索語 = Range("I2").Value


  For Each mySH In Sheets
    If mySH.Name <> 自シ Then
    
      Set 結果 = mySH.Cells.Find( _
            What:=検索語, _
            LookIn:=xlValues, _
            lookat:=xlWhole)
      If Not 結果 Is Nothing Then
        先頭 = 結果.Address
        Do
          myR = Range("A" & Rows.Count).End(xlUp).Row + 1
          Range("A" & myR).Value = mySH.Name
          Range("B" & myR).Value = 結果.Offset(0, -7).Value
          Range("C" & myR).Value = 結果.Offset(0, -6).Value
          Range("D" & myR).Value = 結果.Offset(0, -5).Value
          Range("E" & myR).Value = 結果.Offset(0, -4).Value
          Range("F" & myR).Value = 結果.Offset(0, -3).Value
          Range("G" & myR).Value = 結果.Offset(0, -2).Value
          Range("H" & myR).Value = 結果.Offset(0, -1).Value
          Range("I" & myR).Value = 結果.Value
          Range("J" & myR).Value = 結果.Offset(0, 1).Value
          Range("K" & myR).Value = 結果.Offset(0, 2).Value
          Range("L" & myR).Value = 結果.Offset(0, 3).Value
          Range("M" & myR).Value = 結果.Offset(0, 4).Value
          Range("N" & myR).Value = 結果.Offset(0, 5).Value
          Range("O" & myR).Value = 結果.Offset(0, 6).Value
          Range("P" & myR).Value = 結果.Offset(0, 7).Value
          Range("Q" & myR).Value = 結果.Offset(0, 8).Value
          
          
          Set 結果 = mySH.Cells.FindNext(結果)
          If 結果.Address = 先頭 Then Exit Do
        Loop
      End If
      
    End If
  Next
End Sub
0 hits

【74423】inputboxで複数条件の検索 isausa 13/6/10(月) 10:52 質問
【74424】Re:inputboxで複数条件の検索 UO3 13/6/10(月) 12:35 発言
【74425】Re:inputboxで複数条件の検索 isausa 13/6/10(月) 13:17 質問
【74426】Re:inputboxで複数条件の検索 isausa 13/6/10(月) 13:46 質問
【74427】Re:inputboxで複数条件の検索 UO3 13/6/10(月) 14:04 発言
【74428】Re:inputboxで複数条件の検索 isausa 13/6/10(月) 15:03 質問
【74429】Re:inputboxで複数条件の検索 UO3 13/6/10(月) 16:23 発言
【74430】Re:inputboxで複数条件の検索 13/6/11(火) 7:44 回答
【74431】Re:inputboxで複数条件の検索 isausa 13/6/12(水) 13:16 質問
【74432】Re:inputboxで複数条件の検索 UO3 13/6/12(水) 15:04 発言
【74434】Re:inputboxで複数条件の検索 13/6/13(木) 6:44 回答
【74435】Re:inputboxで複数条件の検索 isausa 13/6/13(木) 9:51 お礼

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