各位大大好
小的第一次學vba...從書上的程式進行改寫自己想要的
但是一直找不出錯誤的原因，一直提示沒有DO，但我還是看不出來呀... 冏rz
還懇請各位大大和高手們幫忙找出錯誤，如果可以還請大大逐列說明 非常感謝 ^_^
Sub 代號()
C = 2
Do While Cells(C, 1) <> ""
Select Case Cells(C, 1)
Case "0015"
Cells(2, C) = "1台北"
Select Case Cells(C, 1)
Case "0048"
Cells(2, C) = "2城東"
Select Case Cells(C, 1)
Case "0059"
Cells(2, C) = "4新莊"
Select Case Cells(C, 1)
Case "0060"
Cells(2, C) = "7新竹"
Select Case Cells(C, 1)
Case "0082"
Cells(2, C) = "a高雄"
Select Case Cells(C, 1)
Case "0118"
Cells(2, C) = "3信義"
Select Case Cells(C, 1)
Case "1366"
Cells(2, C) = "8台中"
Select Case Cells(C, 1)
Case "0152"
Cells(2, C) = "9台南"
Select Case Cells(C, 1)
Case "1171"
Cells(2, C) = "5板橋"
Select Case Cells(C, 1)
Case "0185"
Cells(2, C) = "6桃園"
Select Case Cells(C, 1)
Case "0451"
Cells(2, C) = "b羅東"
Select Case Cells(C, 1)
Case "0875"
Cells(2, C) = "C忠孝"
Select Case Cells(C, 1)
Case "0680"
Cells(2, C) = "E 南台中"
Select Case Cells(C, 1)
Case ""
Cells(2, C) = "未定義"
End Select
C = C + 1
Loop
End Sub
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends: 'You Say What You Like, Because They Like What You Say' - http://www.medialens.org/index.php/alerts/alert-archive/alerts-2013/731-you-say-what-you-like-because-they-like-what-you-say.html
