Excel VBA質問箱 IV

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

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


7885 / 76734 ←次へ | 前へ→

【74430】Re:inputboxで複数条件の検索
回答    - 13/6/11(火) 7:44 -

引用なし
パスワード
   こんにちは。

UO3さんのアドバイスとはちょっとずれますが、
ご要望どおり、インプットボックスを2つ出すのもいいと思います。


VBEに書かれたコードは原則として上から順番に実行されることは
ご存知だと思います。
つまり
sub test
  msgbox "1回目"
  msgbox "2回目"
end sub
となっていれば、メッセージボックスが2回出るわけです。

インプットボックスも事情は同じで
sub test
  inputbox "1回目"
  inputbox "2回目"
end sub
これで2回出ます。

とはいえ、ボックスだけ2回出してみても なんにもならないので
インプットボックスの結果を変数に代入します。
あとはこの変数をつかっていろいろ操作します。
sub test
  Dim 変数1 As String
  Dim 変数2 As String
  
  変数1 = inputbox ("1回目")
  変数2 = inputbox ("2回目")
end sub

※変数は必ず宣言して下さい。
 すべての変数を宣言して下さい。
 
とりあえずここまで。


▼isausa さん:
>ご指導お願いいたします。
>シート枚数は各年度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
5 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 お礼

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