| |
▼しずか さん：
範囲が広いとダメな理由が分からないですけど、
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
のように変更するどうなりますか？
>>ひょっとしてセルの書式設定で表示桁数とかセットしてないですか？
>
>ほとんどが小数題７位まである値なので、
>見栄え上、小数第３位で揃えています。
>
>それかと思い、書式設定を標準にして、条件書式も消して
>やってみたのですが、同じエラーが出てしまいます。
>
>
>-----------------------------
>
>いろいろ試してみたところ、
>もしかするとですが、小数点が多すぎることに問題があるようです。
>
>範囲の大きさにもよるようです。
>範囲が大きいと小数点第1位まで
>小さいと小数点3位まで、実行できたりします。
>
>そういうものなのでしょうか？
>
>お手数おかけして申し訳ありません。
|
|
ウッシ
- 13/12/27(金) 9:49 -
