Excel VBA質問箱 IV

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

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


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

7892 / 76734

←次へ　｜　前へ→


	【74423】ｉｎｐｕｔboxで複数条件の検索

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

2 hits

▼

【74423】ｉｎｐｕｔboxで複数条件の検索 isausa 13/6/10(月) 10:52

≪