¦U¦ì«e½ṳ́j®a¦n¡A
¤wª¾¹D¦s¦bªº¤Gºû°}¦C(dAr)¤¤YnÂ^¨ú¬Y¤@ºû«×ªº¸ê®Æ¥i¥H¨Ï¥Î application.index(dAr,0,1) ©ÎªÌ application.index(dAr,1,0) ªº¤è¦¡©â¥X¸ê®Æ
¦ý¦pªG¬O¦s¦b¤Tºû°}¦C(Ar)¤¤¡A ¦p¦ó§â¨C¤@¼hªº¤Gºû¸ê®Æ©â¥X¨Ó¡A©ñ¨ì¦U§Oªºsheet¸Ì±¡C?
Àµ½Ð¦U¦ì«e½úÌ»P°ª¤âÌ«ü¾É¡A·PÁ¡C- Sub Ex()
- Dim Ar, z, x, y
- ReDim Ar(1 To 3, 1 To 3, 1 To 3)
- For z = 1 To 3
- For x = 1 To 3
- For y = 1 To 3
- Ar(z, x, y) = z * x * y
- Next k
- Next j
- Next i
- For z = 1 To 3
- worksheets(z).[a1].resize(3,3)= ???????
- Next z
- End Sub
½Æ»s¥N½X |