|
こんにちは
Sub ランク表示()
Dim CP As Double
Dim r As Long
On Error GoTo error_message
With Worksheets("分布表")
CP = .Range("Z4").Value 'ここでEmpty値になってしまう
r = 9
Do Until .Cells(r, 1) = ""
If .Cells(r, 1) / CP < 0.8 Then
.Rows(r).Interior.ColorIndex = 5
ElseIf .Cells(r, 1) / CP < 1 Then
.Rows(r).Interior.ColorIndex = 8
ElseIf .Cells(r, 1) / CP < 1.4 Then
.Rows(r).Interior.ColorIndex = 4
ElseIf .Cells(r, 1) / CP < 2 Then
.Rows(r).Interior.ColorIndex = 6
ElseIf .Cells(r, 1) / CP < 3 Then
.Rows(r).Interior.ColorIndex = 46
Else
.Rows(r).Interior.ColorIndex = 3
End If
r = r + 1
Loop
End With
Exit Sub
error_message: 'そのため、Integerに代入することができずにここに来てしまう
MsgBox "数値が入力されていない項目があるようです。", vbOKOnly, "ランク表示"
End Sub
こうしても変わりないですか?
|
|