|
▼しずか さん:
こんにちは
値を検索するために、Lookin をセットします。
Sub てすと()
Dim m As Long
Dim t As Range
With Range("A1:I10")
m = Application.WorksheetFunction.Max(.Cells)
Set t = .Find(What:=m, LookIn:=xlValues)
End With
With t
.BorderAround Weight:=xlMedium, ColorIndex:=3
.Font.Bold = True
End With
End Sub
>お世話になっております。今回もよろしくお願いいたします。
>
>下記のようなマクロを作りました。
>
>
>Sub てすと()
>
> Range("A1:I10").Select
> Selection.Find(What:=Application.WorksheetFunction.Max(Selection)).Select
>
> With Selection
>
> .BorderAround Weight:=xlMedium, ColorIndex:=3
> .Font.Bold = True
>
> End With
>
>End Sub
>
>
>最初に選ぶセルが"A1:I10"となっていますが、
>同じ作業を別の範囲でもやります。
>
>この、選んだ範囲のセルが、数値の入力された普通のセルですと問題なく動きますが、
>そのセルにVLOOKUPの関数が入っているとエラーがおこります。
>
>
>これを動かす方法はありますでしょうか?
>
>お知恵をお貸しください。
>よろしくお願いいたします。
|
|