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

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

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

不好意思喔! 可以請問一下第一行就錯了是指 sub pvalue() 還是Dim i,j as integer 如果錯了~要改成甚麼呢? 我真的是看來看去不知道錯在哪?? 另外cells裡面都是數字都是p-value的數字~~ 然後偵錯的地方黃色的那一行一直是顯示在 If Cells(4 + 7 * i, 2 + j).Value < 0.01 Then 不好意思~麻煩大家了感激不盡 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,

05/09 16:35

→

MOONRAKER

05/09 16:36,

05/09 16:36

→

lifarfar

05/09 17:16,

05/09 17:16