¦p¦ó¥Îµ{¦¡for°j°é

Jared

·Q½Ð°Ý¤j¤j
§Ú²{¦b·Q­n§Q¥ÎFor°j°é¨Ó¶]µ{¦¡
¥Øªº¬O±N½s¸¹A001¶}©l¨Ó²Ö¥[
¦ý°ÝÃD´N¬OµLªkÅã¥Ü "001"
¦Ó¬O¤@¼{Åܦ¨ "1"
¦³¤°»ò¿ìªk¥i¥HÅýµ{¦¡±qA001¡BA002...A999¡BB001¡BB002....B999........Z999
§Æ±æ¯àÀ°§Ú«üÂI°g¬z><

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

¦^´_ 5# Hsieh


    (^^)~ ÁÂÁ¤j¤jªº¦^µª
                  Åý§Ú¦³¨ä¥Lªº·Qªk

Hsieh

¦^´_ 2# Jared

1. Sub ex()
   
2. r = 1
   
3. For i = 65 To 90   '­^¤å¦r¥À°j°é
   
4.    For j = 1 To 10   '¼Æ¦r°j°é
   
5.       Cells(r, 1) = Chr(i) & Format(j, "000")
   
6.       r = r + 1
   
7.    Next
   
8. Next
   
9. End Sub

½Æ»s¥N½X

Jared

¦^´_ 3# linyancheng


ÁÂÁ¤j¤jªº­×¥¿
§Ú·QÁÙ¬O»Ý­n¿i½m :D

linyancheng

®Ú¾Ú»¡©ú¡Aµ²ªG¤£¥¿½T¡Afor i ©M for j ¬O¤£¬O¤Ï¤F¡H
³Ì«á=ADª½±µ¥Î=Ar(j) & Format(i, "000")§Y¥i¡AAB, AC, AD¤TÅܼƬҤ£»Ý­n¡C

Jared

¦^´_ 1# Jared


    §Ú«á¨Ó¼g¤F¤@­Ó¤è¦¡
¦ýµ{¦¡·|¶]§¹«á¤S¶]¦n´X¦¸
­n«ç»ò¤~¯àÅý¥¦¶]§¹ A001¡BA010«á¶]B001¡BB010......Z010

¤U¸ü (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

½Æ»s¥N½X