EXCEL VBA¿ï¨ú³¡¤ÀÀx¦s®æ½d³ò-(«ü©wÀx¦s®æ¦V¤U¤Î¦V¥k¦ÜÃä¬É³B)
- ©«¤l
- 16
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-11-27
- ³Ì«áµn¿ý
- 2015-1-3
|
EXCEL VBA¿ï¨ú³¡¤ÀÀx¦s®æ½d³ò-(«ü©wÀx¦s®æ¦V¤U¤Î¦V¥k¦ÜÃä¬É³B)
¦U¦ì«e½ú¤j®a¦n:
¤p§Ì§Æ±æ¦b«ü©w¯S©w½d³òªº°}¦C
¦p¦b¦æ¦C¼Æ¤£ª¾¹Dªº¸ê®Æ¤¤«ü©w¬YÓÀx¦s®æ(¹Ï¨Ò¤¤ªºC2),
¨Ã¦V¤U¤Î¦V¥k«ü©w½d³ò¨ìÃä¬É³B(¥HªÅ¦æ©MªÅ¦C¬°Ãä¬É)
¦p¹Ï¤ù¤¤ªº¨Ò¤l¬°¨Ò
¤p§Ì§Æ±æ table_array(3,2) ¥i¥H¦^¶Ç¤å¦r c
¤p§Ì¥Ø«e¸Õ¹Lªº«ü¥O¦³
(1) Set table_array = Worksheets("¬Y¤u§@ªí").Range("C2").End(xlDown).End(xlToRight)
(2) Set table_array = Worksheets("¬Y¤u§@ªí").Range("C2").End(xlDown).Resize(, 2)
¦ý³£µLªk¦pªG¦p¤p§Ì©ÒÄ@«ü©w¨ì§Ú§Æ±æªº½d³ò...
·Q½Ð°Ý¦U¦ì«e½ú¤£ª¾¹D§Úªºcode ÁÙ¬OÆ[©À¥X¤F¤°»ò°ÝÃD?
©ÎªÌ¬O§Úªºcode»Ýn°µ¤°»ò¼Ëªº×§ï¤~¯à«ü©w¨ì§Ú§Æ±æªº°}¦C½d³ò©O?
³Â·Ð¦U¦ì«e½ú¼·ªÅ«ü¾É¤F..!
¦pªG¦³¤å¦r±Ôz¤£°÷ºë½Tªº¦a¤è¤]½Ð¦U¦ì«e½ú´£¥X¨Ó«ü±Ð
·P¿E¤£ºÉ~~! |
|
|
|
|
|
|