GBKEE

¦^´_ 1# eeda60
¦h¬Ý¬Ý¤@¨Çvba½d¨Ò·|¶i¨Bªº

1. ' Sub 123()  '¦bUSERFORMªº¼Ò²Õ¸Ì
   
2.         For i = Val(TEXTBOX2) To Val(TEXTBOX3)
   
3.             Ur = TEXTBOX1 & COMBOBOX1 & Format(i, "000000")
   
4. 
   
5.             
   
6. ' Sub 123()  '¤£¦bUSERFORMªº¼Ò²Õ¸Ì
   
7.         
   
8.         With USERFORMaaa
   
9.         For i = Val(.TEXTBOX2) To Val(.TEXTBOX3)
   
10.             Ur = .TEXTBOX1 & .COMBOBOX1 & Format(i, "000000")
    
11.             '
    
12.             '
    
13.          Next
    
14.         End With

½Æ»s¥N½X