作者lifarfar (遠遠)
看板Visual_Basic
標題[VBA ] 拜託幫我看一下哪裡出錯了
時間Sat May 9 15:06:31 2009
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
1F：→ MOONRAKER:都跟你講形態不符了，當然不會是什麼for和if混用的問題 05/09 16:35
2F：→ MOONRAKER:你的問題在.value加或不加的差別 05/09 16:36
3F：→ lifarfar:我試過將.value改掉~但是還是不行耶! 05/09 17:16
4F：推 windknife18:我試了一下沒問題說，你是哪一行會出錯呢？ 05/10 00:53
5F：推 fumizuki:第一行型態宣告就錯了 再來 Cell的內容不一定是數字 05/10 21:19
6F：推 fumizuki:非數字進行比較會出問題... 05/10 21:19