作者lifarfar (遠遠)
看板Visual_Basic
標題Re: [VBA ] 拜託幫我看一下哪裡出錯了
時間Fri May 15 23:12:34 2009
不好意思喔!
可以請問一下第一行就錯了
是指 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
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
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 58.114.111.217
7F：推 windknife18:Dim i as integer, Dim j as integer 05/15 23:29
8F：→ windknife18:建議在錯誤的那一行前面加 debug.Print 語法去看資料 05/15 23:30
9F：→ windknife18:有無問題如 i, j, cells(...).value 的值 05/15 23:31
10F：推 fumizuki:樓上的推文也錯了喔 同一行不能2個Dim 05/16 21:32
11F：→ windknife18:打錯了^_^ Dim i as integer, j as integer 05/16 22:49
12F：→ lifarfar:可以請問debug.print怎麼用嗎?真的不好意思!! 05/17 16:08
13F：推 mmfield:我try程式沒什麼問題，會不會你的p-value並非全部純數字 05/18 02:17
14F：→ mmfield:例如某格是"#NUM"之類的 這個你要先中斷把那格delete掉 05/18 02:19
15F：→ mmfield:或是其他非純數字也會跑不下去，你在檢查看看吧 05/18 02:21
16F：→ mmfield:總覺得VBA這方面有點笨...最後都要手動下去找出來... 05/18 02:25
17F：→ lifarfar:謝謝大家~我終於成功了~好開心^^ 05/18 10:31
18F：→ lifarfar:謝謝大家幫我偵錯~真的是我的錯~p-value中有"#NUM" 05/18 10:32
19F：→ lifarfar:萬分感激~我以後不會再犯同樣的錯了^^ 05/18 10:34