ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

·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

¦^´_ 1# Jared


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

  1. Sub ´ú¸Õ()
  2. Dim i, j, Ar(), AB, AC, AD

  3. 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")


  4. For i = 1 To 10
  5. For j = 0 To 25

  6. If AB = "A010" Then Exit Sub

  7. AB = Ar(j) & AC
  8. AC = Format(i, "000")

  9. AD = AB & AC

  10.     Selection.TypeText Text:=AD

  11. Next
  12. Next

  13. End Sub
½Æ»s¥N½X
Jared

TOP

®Ú¾Ú»¡©ú¡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

TOP

¦^´_ 3# linyancheng


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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD