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

¥X³f³æ¦X¨Ö¦C¦L¿é¥X°ÝÃD¡A¦³µLª½±µ¾Þ§@¤èªk¡A©Î»Ý±Ä¥ÎVBA¸Ñ¨M¡C

³o­Ó¤è¦¡¦b³oùØ  Work¡A¥u¬O§Ú¨S¬Ý¹L¦³¤H³o¼Ë¥Î
¥i·j´M Array ¬Ý¬Ý

TOP

GBKEEª©¥D
¤@¯ë Array2ºû°}¦C¥Îªk¬OAr(i,2)¦ý³oùإΪº¬OAr(i)(2)¡C
³o­Ó»yªk§Ú¨S¬Ý¹L¡A©Ò¥H·Q¸ò¥L½T©w¤@¤U¡C
ºô¸ô¤W§Ú¦³ Google ¹L¡A¶q¤Ó¤j¡A¤£®e©ö§ä³o­Ó¯S©wªº»yªk¡C
Hsiehª©¥D¦³ÂI¬O¡u¤@©Û¥]¤@¸ô¡vªº¤è¦¡¡C

TOP

¦^´_ 12# Baracuda
¬O¤@ºû°}¦C, «D¤Gºû°}¦C.
  1. Sub Ex()
  2.     Dim Ar(2), i%, y%, a
  3.     Ar(0) = Array(1, 2, 3, 4)
  4.     Ar(1) = Array("A", "B", "C", "D")
  5.     Ar(2) = Array("¥Ò", "¤A", "¤þ", "¤B")
  6.     For i = 0 To UBound(Ar)
  7.         For y = 0 To UBound(Ar(i))
  8.             [a1].Offset(i, y) = Ar(i)(y)
  9.         Next
  10.     Next
  11. End Sub
½Æ»s¥N½X

TOP

GBKEEª©¥D¡AÁÂÁ¡C³o¼Ë§Úª¾¹D³o­Ó°}¦Cªº»yªk¤F¡C

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2015/9/14 10:04): ­n¤W¶ÇÀɮ׬ݬÝ

½Ð°Ýª©¥D¡G
­Y¦C¦L¤@¦¡¤TÁp,¦p¥X³f³æ ªí®æ²¤¦³¤£¦P,¤º®e¤@¼Ë¦C¦L¤T±i ¤@±i¦¬°õÁp,¤@±i¯d©³Áp,¤@±i¦s¬d,¸Ó¦p¦ó­×§ï,ÁÂÁÂ!
max

TOP

§ä¤F¦n¤[,²×©ó§ä¨ìÃþ¦üªº¸Ñ¨M¤èªk
¯u¬O¨ü±Ð¤F~

TOP

¦^´_ 7# Hsieh

¶W¦n¥Îªº....®M¤@­ÓªÅ¥Õªí´N¥i¥H¦L¥X©Ò­nªºªí³æ
¤ñ³sµ²¨ìWORD°µ¦X¨Ö¦C¦LÁÙÃÙ

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD