□投稿者/ よねさん -(2020/09/09(Wed) 14:03:03)
| ↓のページで作成しているユーザー定義関数ですね。
色付きのセルを数える/合計する:Excel VBA入門
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_color.html
> 「色付きのセルの最大値・最小値」を求める定義関数はありますでしょうか?
ユーザー定義関数はあらかじめ準備されているものではなく、ユーザーが作成する関数です。
よって、最大値や最小値を求めるコードを作成します。
エラー処理など細かなところは無視していますが、下記のような計算でいかがでしょうか?
最大値はColorMax、最小値はColorMinとしています。
Function ColorMax(R1 As Range, C As Range)
Dim r As Range
Application.Volatile
ColorMax = 0
For Each r In R1
If r.Interior.Color = C.Interior.Color Then
If ColorMax < r.Value Then ColorMax = r.Value
End If
Next r
End Function
Function ColorMin(R1 As Range, C As Range)
Dim r As Range
Application.Volatile
ColorMin = 10 ^ 9
For Each r In R1
If r.Interior.Color = C.Interior.Color Then
If ColorMin > r.Value Then ColorMin = r.Value
End If
Next r
End Function
|
|