Excel VBA質問箱 IV

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

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


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

5540 / 76735

←次へ　｜　前へ→


	【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

0 hits

▼

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