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

[µo°Ý] ¦hºû¯x°}¤º¾Ü¨ú¨ä¤¤¤@ºûªº°}¦C¸ê®Æ¤¸¯À

[µo°Ý] ¦hºû¯x°}¤º¾Ü¨ú¨ä¤¤¤@ºûªº°}¦C¸ê®Æ¤¸¯À

¥»©«³Ì«á¥Ñ Scott090 ©ó 2014-4-28 20:58 ½s¿è

½Ð°Ý°ª¤â¥ý¶i¡G
¥Ñ©ó¯x°}¤º¼Æ¾Ú¦h¡A¤£·Q¥Î°j°éªº¤è¦¡¨Ó¨ú±o¤@­Ó­Óªº¤¸¯À¡F½Ð°Ý¦³¦óªk¥i¸Ñ?
¥H¤U¬°µêÀÀ VBA µ{§Ç¡G
  1. Sub qq()
  2. '½Æ¼Æ­Ó¤@ºû¯x°}²Õ¦¨°}¦C aa
  3. '===========================
  4. aa = Array(Array(123, 234, 345), Array("aaa", "bbb", "ccc"), Array(567, 678, 789))

  5. '±q¯x°} aa ¨ú±o ¯x°} bb
  6. '========================
  7. bb = aa(1)

  8. '§â¯x°} aa Âà´«¦¨ ¹ê»Úªº 3x3 ¯x°}
  9. '=================================
  10. cc = Application.Transpose(Application.Transpose(aa))

  11. '¦p¦ó¤£¥Î°j°éªº¤è¦¡§â cc ¯x°}¤¤ªº cc(2,1), cc(2,2), cc(2,3) Âà¤J dd()
  12. '====================================================================

  13. dd = cc((2))   '³o­Ó¬O¤£¹ïªº¡A¯ÂÄݥܷN


  14. End Sub
½Æ»s¥N½X

¦^´_ 2# GBKEE


    «D±`·P®¦¤j®vªº¸Ñ´b

TOP

¦^´_ 4# stillfish00


    ÁÂÁ¤À¨É

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD