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

«Å§iÅܼƬO§_¥i¥H¼g¦¨°j°é? (¦Û­qªí³æ)

«Å§iÅܼƬO§_¥i¥H¼g¦¨°j°é? (¦Û­qªí³æ)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-25 23:48 ½s¿è

¥H¤U¬O¦b¦Û­qªí³æ¤º«Å§iªº
L1C = Label1.Caption
L2C = Label2.Caption
L3C = Label3.Caption
L4C = Label4.Caption
L5C = Label5.Caption
L6C = Label6.Caption

¥H¤W¬O«Å§iÅܼÆ
L1C~L6C·|¤@ª½¼W¥[L7C,L8C¤@ª½¤W¥h~¦pªG¼W¥[~¬O§_¯à¼g«Å§i°j°é?

¦^´_ 1# av8d
  1. Option Explicit
  2. Dim AR()
  3. Sub Ex()
  4.     Dim A As Integer, I As Integer
  5.     A = 3    '§A¶·­pºâÅܼƪº¼Æ¥Ø
  6.     ReDim AR(1 To A)
  7.     For I = 1 To UBound(AR)
  8.         AR(I) = UserForm1.Controls("Label" & I).Caption
  9.     Next
  10. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD