[VBA ] 請問型態不符合的問題

看板Visual_Basic作者foreverkn (時間是最好的療劑)時間12年前 (2012/01/02 00:13)推噓2(2推 0噓 9→)

留言11則, 4人參與討論串1/2 (看更多)

我針對一些數據判定大小來上色第三行和第五到七行都是有著小數點後兩位的數字執行結果其中一行程式碼出現型態不符合的錯誤請各位幫我看一下是哪裡有問題，謝謝! 程式碼如下 : Dim i As Integer Dim n As Integer Dim p As Single Dim p1 As Single n = WorksheetFunction.CountA(Columns("A:A")) Rows("7:300").Select Selection.Interior.ColorIndex = xlNone For i = 8 To n + 5 p = Cells(i, 3).Value For j = 5 To 7 p1 = Cells(i, j).Value <--- 這一行呈現黃色，錯誤訊息為執行階段錯誤 '13':型態不符合 If WorksheetFunction.And(p < (p1 * 1.05), p > p1) Then Cells(i, j).Select With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With ElseIf p < p1 Then Cells(i, j).Select With Selection.Interior .ColorIndex = 50 .Pattern = xlSolid End With End If Next j Next i -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 1.169.180.124

→

MOONRAKER

01/02 02:54, , 1^F

01/02 02:54, 1^F

推

ClubT

01/02 09:21, , 2^F

01/02 09:21, 2^F

→

ClubT

01/02 09:22, , 3^F

01/02 09:22, 3^F