Hsieh

1. Private Sub CommandButton2_Click()
   
2. ay = Array(1, 7, 13, 19, 2, 8, 14, 20, 3, 9, 15, 21, 25, 26, 27, 28, 4, 10, 16, 22, 5, 11, 17, 23, 6, 12, 18, 24)
   
3. For i = 0 To UBound(ay)
   
4. r = Int(i / 4): c = i Mod 4
   
5.   [B11].Offset(r, c) = Controls("TextBox" & ay(i)).Value
   
6. Next
   
7. Unload Me
   
8. End Sub

½Æ»s¥N½X

¦^´_ 1# liebe

Hsieh

ay ¬O«ö¶¶§ÇÀx¦sButton§Ç¸¹ªº°}¦C¡A©Ò¥H¥Î°j°é¶]§¹´N¯àŪ¨ú©Ò¦³Button¤º®e
¨ä¤¤r»PcÅܼƬO­pºâ¥HB11¬°­ìÂI¡A¦ì²¾´X¦C¡A´XÄ檺­pºâ¡A§¹¦¨©p§Æ±æªº±Æ¦C¤è¦¡