パーセンテージに応じてグラフやセルの色を変える際などに利用するカスタムコード。
サンプルは100以上は「コーンフラワーブルー」、80~100は「ライム」、80以下は「レッド」で表示します。
Public Function Get_Color(iRate As Integer) As Object
If iRate >= 100 Then
Return "CornflowerBlue"
ElseIf iRate < 80 Then
Return "Red"
Else
Return "Lime"
End If
End Function
IIF関数でも代用可能ですが、カスタムコードを使った方がやっぱりスッキリします。
0 件のコメント:
コメントを投稿