|
▼γ さん:
>こんな風にしてみたら。
>
>Sub test()
> Dim 検索値 As Variant
> Dim 検索結果 As Range
> Dim 最初結果 As Range
> Dim 結果範囲 As Range
> Dim データ範囲 As Range
>
> Set データ範囲 = ActiveSheet.UsedRange
>
> 検索値 = InputBox("検索する文字列を入力してください")
> If 検索値 = "" Then
> MsgBox "検索がキャンセルされました"
> Exit Sub
> End If
>
> Set 検索結果 = データ範囲.find _
> (What:=検索値, LookIn:=xlValues, LookAt:=xlWhole, _
> SearchOrder:=xlByColumns, MatchCase:=True, MatchByte:=True)
> If 検索結果 Is Nothing Then
> MsgBox 検索値 & "はみつかりません。"
> Exit Sub
> Else
> Set 最初結果 = 検索結果
> Set 結果範囲 = 検索結果
> End If
>
> Do
> Set 検索結果 = データ範囲.FindNext(検索結果)
> If 検索結果.Address = 最初結果.Address Then
> Exit Do
> Else
> Set 結果範囲 = Union(結果範囲, 検索結果)
> End If
> Loop
> MsgBox 検索値 & "は" & 結果範囲.Count & "件みつかりました。" & vbCrLf & _
> "セルを黄色で塗りつぶします。"
> 結果範囲.Interior.Color = RGB(255, 255, 0)
>
>End Sub
>
>●インデントをしっかりつけることは、あなたが考えている以上に大事なことですよ。
返信ありがとうございます。
自分の勉強不足を非常に痛感しております。
返信していただいたvbaを実行させていただきました。
非常に満足しています。
本当にありがとうございました。
今後またわからない事が多々あると思いますので、
よろしくお願いします。
|
|