作者chriss180 (威廉)
看板Visual_Basic
标题[VBA ] Excell VBA select case 无法正确判读
时间Fri May 20 17:31:56 2011
请问一下. 我用Excel VBA 写以下条件判读
1.若分页中cells(i,4) - 为A26 / A411 / A42 / A421 时.分别以IF
内条件判读分类.且复制於指定分页. 但实际RUN时.
跑完各分页内的资料会不准. 且IF 的限制条件也无法很准确抓取
请协助帮我看一下我哪里写错了
非常感谢~~~
-----------------------
Dim shtTotal As Worksheet
Dim raw As Worksheet
Dim i As Integer
Dim n As Integer
Set shtTotal = Worksheets("prn33A")
n = Range("A65536").End(xlUp).Row
For i = 1 To n
Worksheets("prn33A").Select
Select Case shtTotal.Cells(i, 4) ----> 或是 left(shtTotal.cells(i,4),4)
Case "A26"
If Cells(i + 1, 241) = "" And Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(3, 1))
End If
Case "A411"
If Cells(i + 1, 241) = "" Or Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(4, 1))
End If
Case "A42"
If Cells(i + 1, 241) = "" Or Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(5, 1))
End If
Case "A421"
If Cells(i + 1, 241) = "" Or Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(6, 1))
End If
End Select
next
end sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.250.190.61
※ 编辑: chriss180 来自: 60.250.190.61 (05/20 17:39)
1F：→ hulapig:使用cells().value看看 05/20 19:07
2F：推 sueadolph:逐步执行跟监看式自己看一下他回圈怎麽跑吧 05/20 23:39
3F：推 sueadolph:看他实际抓出来的cells(i, 4) 是不是你想像中的值 05/20 23:52
4F：→ sueadolph:不然那if判断的东西，你要大家怎麽帮你检查??? 05/20 23:53