¦p¦ó§Q¥ÎVBA ¦Ûqªí³æ¶ñ§¹¸ê®Æ«á¡A·s¼W¤U¤@µ§¸ê®Æ
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦p¦ó§Q¥ÎVBA ¦Ûqªí³æ¶ñ§¹¸ê®Æ«á¡A·s¼W¤U¤@µ§¸ê®Æ
·Q½Ð°Ý¦U¦ì¢ä¢Ð¢Ï°ª¤â
²{¦b§Ú¤w¸g±Nªí³æ³]p¦n
¤w¸g¦bSheet©ñ¤@ÓCommandBitton
¥Dn¥Øªº¬O
·íÂI¤U¥hCommandBitton¯à¥s¥Xªí³æ
¨Ã¶i¦æ¤U¤@³¡¶ñ¼gªº°Ê§@
·í¶ñ¼g§¹«ö¤U°e¥X
¦bSheet ¹ïÀ³ªºÄæ¦ì·s¼W¤@µ§¸ê®Æ
¦P®É§R°£ªí³æ¤ºªº¸ê®Æ
¥i¥H¶i¦æ¤U¤@µ§¸ê®Æªº¶ñ¼g
¦ý2007 ªº¼gªk¸ò§Ú¬d¨ìªº2003¤£¤@¼Ë
µ{¦¡n¦p¦ó¼g¤~¯à¹F¨ì§Ú·Qnªº¥Øªº
·P¿E¤£ºÉ!! |
|
Jared
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ 1# Jared
¤èªk1 «ü¥O¯S©wÄæ¦ì¡A¥[¥H§P§O¡C
¨Ò¦p¡G «ü©w Z Äæ¦ì ¬°¯S©wÄæ¦ì¡A ·í cells(xxx,26)<>"" then .... xxx =¦C
soae = Range("a1").CurrentRegion.Rows.Count
If Range("a" & soae).Value <> "" Then
Range("A65536").End(xlUp).Offset(1, 0) = soae + 1
End If
¤èªk2. ³]©w·s¼W¾÷¨î
¨Ò¦p¡G ³]©w·s¼Wªº±ø¥ó¬° XXX ¡A ·íXXX º¡¨¬®É¡A«h·s¼W¡C |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
ÁÂÁÂ! mark15jill
§Ú°¨¤W¸Õ¬Ý¬Ý |
|
Jared
|
|
|
|
|