|
▼かなたん さん:
>Sub ランク表示()
> On Error GoTo error_message
> Dim CP As Integer
> CP = Range("Z4").Value 'ここでEmpty値になってしまう
↑ は数値が入っていますか?
CP = Val(Range("Z4").Value) とでもされたら如何ですか。
> Dim r As Integer
> 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
>error_message: 'そのため、Integerに代入することができずにここに来てしまう
> MsgBox "数値が入力されていない項目があるようです。", vbOKOnly, "ランク表示"
> End
>End Sub
|
|