|
シートにある住所、氏名、部署といった情報のある表にて、検索ワードを打ち込んで検索するプログラムを
作成しているのですが、以下の様な問題があり教えていただけませんでしょうか?
(問題点)
”業務部”の”務”といった、文字の間にある文字で、かつ、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
|
|