Excel VBA質問箱 IV

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

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


7883 / 76734 ←次へ | 前へ→

【74432】Re:inputboxで複数条件の検索
発言  UO3  - 13/6/12(水) 15:04 -

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

文字列連結は & で行います。
AND だと 論理積 になりますので。

以下、参考になりますでしょうか。
新規ブックに書いてお試しください。

Sub Test()
  Dim f As Range
  Dim c As Range
  Dim wd As String
  Dim r As Range
  
  Cells.Clear
  
  'テストデータ
  Range("H1").Value = "日本国北海道の東の釧路市"   '対象
  Range("H2").Value = "北海道の札幌だよ"
  Range("H3").Value = "北海道B社来社(釧路)"    '対象
  Range("H4").Value = "山形にも釧路ってある?ないよね"
  Range("H5").Value = "釧路は北海道にあるんだよね"
  
  '検索語句のセット
  Range("I2").Value = "北海道"
  Range("J2").Value = "釧路"
  
  '以下処理サンプル
  wd = "*" & Range("I2").Value & "*" & Range("J2").Value & "*"
  Set r = Range("H1", Range("H" & Rows.Count).End(xlUp))
  Set c = r.Find(What:=wd, Lookat:=xlWhole, After:=r.Cells(r.Count))
  If c Is Nothing Then
    MsgBox "みあたりません"
    Exit Sub
  End If
  
  Set f = c
  
  Do
    MsgBox c.Address
    Set c = r.FindNext(c)
  Loop While c.Address <> f.Address
  
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 お礼

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