|
こんばんは。みなさん
文字列の時と1未満、57以上の時は、xlnone
がいるのでは?
とまとさんのは、
With r
If IsEmpty(.Value) Or Val(.Value) > 56 Or Val(.Value) < 1 Or IsNumeric(.Value) = False Then
'空欄、セルの値が1未満、57以上、数字でないなら無色とする
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = .Value 'セル色を入力した値とする
End If
End With
ichnoseさんのは、
With crng
If IsEmpty(.Value) Or Val(.Value) > 56 Or Val(.Value) < 1 Or IsNumeric(.Value) = False Then
'空欄、セルの値が1未満、57以上、数字でないなら無色とする
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = .Value 'セル色を入力した値とする
End If
End With
kobasanさんのは、
Select Case r.Value
Case "", Is > 56, Is < 1: r.Interior.ColorIndex = xlNone '空欄セルの値が1未満、57以上なら無色
Case Else: r.Interior.ColorIndex = r.Value '着色
End Select
とすればどうでしょう?
そんなこと言っていたら、小数の時もあるな? int???
|
|