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