|
▼takumama さん:
こんばんは。
>はじめまして_(_^_)_
>特定のセル位置を指定した上で、最大値のセルに色をつけたいのですが。。。
>最大値の取得はできるのですが、セル位置を取得する方法がわかりません。。
>どなたかご教授いただけませんでしょうか。。
>よろしくお願いいたします。
'===============================================
Sub 最大値のセルに色()
get_max_rng(Range("a1:a6")).Interior.ColorIndex = 6
End Sub
'=====================================================================
Function get_max_rng(rng As Range) As Range
Dim sv_val(), ans()
With rng
sv_val() = .Value
ans() = Application.Evaluate("=IF(MAX(" & .Address & ")=" & .Address & ",1,"""")")
.Value = ans()
Set get_max_rng = .SpecialCells(xlCellTypeConstants)
.Value = sv_val()
End With
End Function
最大値の入ったセルの取得ができますが、
色を付けるのが目的なら、条件付書式を使用する方法が一般的のような気がします。
|
|