[VBA ] 拜託幫我看一下哪裡出錯了

看板Visual_Basic作者lifarfar (遠遠)時間16年前 (2009/05/09 15:06)推噓3(3推 0噓 3→)

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

Sub pvalue() Dim i, j As Integer Sheets(15).Select For i = 0 To 29 For j = 0 To 47 If Cells(4 + 7 * i, 2 + j).Value < 0.01 Then Cells(5 + 7 * i, 2 + j) = "***" ElseIf Cells(4 + 7 * i, 2 + j).Value < 0.05 Then Cells(5 + 7 * i, 2 + j).Value = "**" ElseIf Cells(4 + 7 * i, 2 + j).Value < 0.1 Then Cells(5 + 7 * i, 2 + j).Value = "*" Else Cells(5 + 7 * i, 2 + j).Value = "none" End If Next j Next i End Sub 拜託可以幫我看一下哪裡出錯了嗎? 是因為for~next 和if ~then 不可以一起出現嗎? 我有逐步偵錯~i=0,j=0 to 47都可以跑得出來但是到了下一個i=1的時候就出現錯誤了顯示:執行階段錯誤13 資料型態不符不好意思我是新手請幫幫我感激不盡 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 58.114.109.24

→

MOONRAKER

05/09 16:35, , 1^F

05/09 16:35, 1^F

→

MOONRAKER

05/09 16:36, , 2^F

05/09 16:36, 2^F

→

lifarfar

05/09 17:16, , 3^F

05/09 17:16, 3^F