¥X³f³æ¦X¨Ö¦C¦L¿é¥X°ÝÃD¡A¦³µLª½±µ¾Þ§@¤èªk¡A©Î»Ý±Ä¥ÎVBA¸Ñ¨M¡C
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 12# Baracuda
¬O¤@ºû°}¦C, «D¤Gºû°}¦C.
- Sub Ex()
- Dim Ar(2), i%, y%, a
- Ar(0) = Array(1, 2, 3, 4)
- Ar(1) = Array("A", "B", "C", "D")
- Ar(2) = Array("¥Ò", "¤A", "¤þ", "¤B")
- For i = 0 To UBound(Ar)
- For y = 0 To UBound(Ar(i))
- [a1].Offset(i, y) = Ar(i)(y)
- Next
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|