ªð¦^¦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 : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD