|
「実行時エラー6、オーバーフローしました。」のアラームが
7行目のコードで出ます。このアラームを除く方法を教えてください。
Private Sub Workbook_Open()
Dim i As Integer
Dim k As Integer
Dim LstR As Integer
LstR = Range("E65536").End(xlUp).Row
For i = 6 To LstR
k = Cells(i, 5).Value - Cells(6, 7).Value'←この行でエラー発生
Select Case k
Case Is < 1
Cells(i, 5).Font.ColorIndex = 5
Case Is < 30
Cells(i, 5).Font.ColorIndex = 3
Case Else
Cells(i, 5).Font.ColorIndex = 1
End Select
Next
End Sub
表は次の通りです
D列 H列
6 2007/9/16 2007/9/16
7 2007/10/2
8 2007/9/15
9 2007/10/26
10 2007/10/15
|
|