作者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