|
▼しずか さん:
こんにちは
少数は丸め誤差があって取扱に注意が必要なので避けたいです。
今回の件には丸め誤差は関係ないかもしれないですけど・・・
Find で値検索(LookInをxlValues)すると、セルのTextプロパティの内容で検索しているみたいです。
日付の検索なら LookInをxlFormula にすると書式に関係なく検索出来るようですけど、今回の少数の
場合はダメでした。
なので、Maxで見つかった少数点以下7桁の値をセルの書式の少数点以下3桁に直してから検索するように
してみました。
見つかったセルを変数tにセッテして、tに罫線、太字を設定しています。
少数点以下3桁にした状態で最大値のセルが検索範囲に一つしかないという条件です。
Sub てすと()
Dim m As String
Dim t As Range
With Range("A1:I10")
m = Format(Application.WorksheetFunction.Max(.Cells), "0.000 ") '実際のセルの書式にする
Set t = .Find(What:=m, LookIn:=xlValues, LookAt:=xlWhole)
End With
With t
.BorderAround Weight:=xlMedium, ColorIndex:=3
.Font.Bold = True
End With
End Sub
|
|