Excel VBA質問箱 IV

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

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


5537 / 76732 ←次へ | 前へ→

【76807】検索ワードを入力して検索する時に、ある条件の文字にて検索するとエラー
質問  さとちぃ  - 15/3/17(火) 16:38 -

引用なし
パスワード
   シートにある住所、氏名、部署といった情報のある表にて、検索ワードを打ち込んで検索するプログラムを
作成しているのですが、以下の様な問題があり教えていただけませんでしょうか?

(問題点)
”業務部”の”務”といった、文字の間にある文字で、かつ、1文字で検索した場合

Range(Join(FoundAddr, ",")).Select にて

エラー1004 RANGEメソッドは失敗しました。GLOBALオブジェクト

となります。

どのように直せばいいか、教えていただけませんでしょうか?


Sub 検索ワードを入力して検索()

  Dim Target As String
  Dim FoundCell As Range, SearchArea As Range
  Dim Addr As String
  Dim FoundAddr() As String
  Dim i As Long
  
  Target = Application.InputBox("検索ワードを入力してください", "検索", Type:=2)
  If Target = "False" Then Exit Sub
  
  Set SearchArea = ActiveSheet.UsedRange
  
  Set FoundCell = SearchArea.Find(What:=Target, LookIn:=xlValues, _
          LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
  If FoundCell Is Nothing Then Exit Sub
  Addr = FoundCell.Address
  
  Do
    ReDim Preserve FoundAddr(i)
    FoundAddr(i) = FoundCell.Address
    Set FoundCell = SearchArea.FindNext(After:=FoundCell)
    i = i + 1
    If FoundCell Is Nothing Then Exit Do
  Loop Until FoundCell.Address = Addr
  
  Range(Join(FoundAddr, ",")).Select 
  MsgBox Range(Join(FoundAddr, ",")).Count & "件見つかりました" '件数表示
End Sub

295 hits

【76807】検索ワードを入力して検索する時に、ある条件の文字にて検索するとエラー さとちぃ 15/3/17(火) 16:38 質問[未読]
【76808】Re:検索ワードを入力して検索する時に、あ... β 15/3/17(火) 17:07 発言[未読]
【76810】Re:検索ワードを入力して検索する時に、あ... マナ 15/3/17(火) 22:19 発言[未読]
【76811】Re:検索ワードを入力して検索する時に、あ... マナ 15/3/17(火) 22:30 発言[未読]
【76812】Re:検索ワードを入力して検索する時に、あ... β 15/3/18(水) 5:47 発言[未読]
【76819】Re:検索ワードを入力して検索する時に、あ... さとちぃ 15/3/18(水) 14:01 質問[未読]
【76814】Re:検索ワードを入力して検索する時に、あ... β 15/3/18(水) 8:22 発言[未読]
【76903】Re:検索ワードを入力して検索する時に、あ... さとちぃ 15/4/8(水) 11:23 お礼[未読]

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