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

¦p¦ó§Q¥ÎVBA ¦Û­qªí³æ¶ñ§¹¸ê®Æ«á¡A·s¼W¤U¤@µ§¸ê®Æ

¦p¦ó§Q¥ÎVBA ¦Û­qªí³æ¶ñ§¹¸ê®Æ«á¡A·s¼W¤U¤@µ§¸ê®Æ

·Q½Ð°Ý¦U¦ì¢ä¢Ð¢Ï°ª¤â
²{¦b§Ú¤w¸g±Nªí³æ³]­p¦n
¿Ã¹õºI¹Ï00014.jpg
2013-2-21 15:40

¤w¸g¦bSheet©ñ¤@­ÓCommandBitton

¥D­n¥Øªº¬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¨ì§Ú·Q­nªº¥Øªº

·P¿E¤£ºÉ!!
Jared

¦^´_ 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

TOP

ÁÂÁÂ! mark15jill

§Ú°¨¤W¸Õ¬Ý¬Ý
Jared

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD