派遣女醫x線上看 派遣女醫x劇情 派遣女醫x第2部 派遣女醫x 線上 派遣女醫x 2 派遣女醫x 2線上看 派遣女醫x第二部 派遣女醫x第2部線上看

各位大大好

小的第一次學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