如何用程式for迴圈

Jared

想請問大大
我現在想要利用For迴圈來跑程式
目的是將編號A001開始來累加
但問題就是無法顯示 "001"
而是一慮變成 "1"
有什麼辦法可以讓程式從A001、A002...A999、B001、B002....B999........Z999
希望能幫我指點迷津><

Dim i , AB
Ar = Array(A, B, C, D, E, F, G, H, i, J, K, L, M, N, O, P, Q, R, s, t, u, v, W, X, Y, Z)

For i = 0 to 999
Ab=Ar & 1

Next

Jared

回復 1# Jared


    我後來寫了一個方式
但程式會跑完後又跑好幾次
要怎麼才能讓它跑完 A001、A010後跑B001、B010......Z010

下載 (152.27 KB)

2014-3-18 16:37

1. Sub 測試()
   
2. Dim i, j, Ar(), AB, AC, AD
   
3. 
   
4. Ar = Array("A", "B", "C", "D", "E", "F", "G", "H", "i", "j", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
   
5. 
   
6. 
   
7. For i = 1 To 10
   
8. For j = 0 To 25
   
9. 
   
10. If AB = "A010" Then Exit Sub
    
11. 
    
12. AB = Ar(j) & AC
    
13. AC = Format(i, "000")
    
14. 
    
15. AD = AB & AC
    
16. 
    
17.     Selection.TypeText Text:=AD
    
18. 
    
19. Next
    
20. Next
    
21. 
    
22. End Sub

複製代碼

linyancheng

根據說明，結果不正確，for i 和 for j 是不是反了？
最後=AD直接用=Ar(j) & Format(i, "000")即可，AB, AC, AD三變數皆不需要。

Jared

回復 3# linyancheng


謝謝大大的修正
我想還是需要磨練 :D

Hsieh

回復 2# Jared

1. Sub ex()
   
2. r = 1
   
3. For i = 65 To 90   '英文字母迴圈
   
4.    For j = 1 To 10   '數字迴圈
   
5.       Cells(r, 1) = Chr(i) & Format(j, "000")
   
6.       r = r + 1
   
7.    Next
   
8. Next
   
9. End Sub

複製代碼

Jared

回復 5# Hsieh


    (^^)~ 謝謝大大的回答
                  讓我有其他的想法