Excel VBA質問箱 IV

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

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


7893 / 76736 ←次へ | 前へ→

【74424】Re:inputboxで複数条件の検索
発言  UO3  - 13/6/10(月) 12:35 -

引用なし
パスワード
   ▼isausa さん:

こんにちは

困っておられるのは 2つの条件を2つのInputBoxでいれるところですか?
それとも、いれられて2つの条件で AND 検索するところですか?

前者だとして、1つのInputBox で以下のように処理する手もありますね。
後者だという場合は、これらの2つの検索語が、どのようにセルに入っているのか
その要件を教えてください。 (2つの検索語の順番は不動? とか)

Sub Test()
  Dim s As String
  Dim v As Variant
  
  s = Application.InputBox("検索語を 〇〇〇/□□□ の形式で2つ指定してください", Type:=2)
  If s = "" Then Exit Sub 'キャンセルボタン
  
  v = Split(s, "/")
  If UBound(v) <> 1 Then
    MsgBox "入力の形式が正しくないですよ"
    Exit Sub
  End If
  
  '〇〇〇 と □□□ を使った処理コード
  
  '以下参考
  
  MsgBox v(0) & vbLf & v(1)
  
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 お礼

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