¥»©«³Ì«á¥Ñ Scott090 ©ó 2014-4-28 20:58 ½s¿è
½Ð°Ý°ª¤â¥ý¶i¡G
¥Ñ©ó¯x°}¤º¼Æ¾Ú¦h¡A¤£·Q¥Î°j°éªº¤è¦¡¨Ó¨ú±o¤@ÓÓªº¤¸¯À¡F½Ð°Ý¦³¦óªk¥i¸Ñ?
¥H¤U¬°µêÀÀ VBA µ{§Ç¡G- Sub qq()
- '½Æ¼ÆÓ¤@ºû¯x°}²Õ¦¨°}¦C aa
- '===========================
- aa = Array(Array(123, 234, 345), Array("aaa", "bbb", "ccc"), Array(567, 678, 789))
- '±q¯x°} aa ¨ú±o ¯x°} bb
- '========================
- bb = aa(1)
- '§â¯x°} aa Âà´«¦¨ ¹ê»Úªº 3x3 ¯x°}
- '=================================
- cc = Application.Transpose(Application.Transpose(aa))
- '¦p¦ó¤£¥Î°j°éªº¤è¦¡§â cc ¯x°}¤¤ªº cc(2,1), cc(2,2), cc(2,3) Âà¤J dd()
- '====================================================================
- dd = cc((2)) '³oÓ¬O¤£¹ïªº¡A¯ÂÄݥܷN
- End Sub
½Æ»s¥N½X |