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