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

¹ï¸Ü®Ø

¦^´_ 10# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!µ{¦¡»Ý¨D
         Sub ³sÄò()
            Dim F As Range
              With Sheet1
              .Select
              Set F = .Rows(1).Find(Month(Date) & "¤ë", LookIn:=xlValues)
              F(Rows.Count, 1).End(xlUp)(2, 1) = Date
            End With
        End Sub
        ¦ýµ{¦¡¨Ã¨S¦³±N·Æ¹«¶¶«K±a¤W¤é´Áªº¦ì¸m
        ¦]¬°·Æ¹«ªº¦ì¸m¬O°õ¦æ¤U­Óµ{¦¡ªº«ö¶s
        ¦AªþÀɰѦҬݬݽЦA¨¯­WÅo!!ÁÂÁ¦A¤T!!

Leov17-1.rar (14.38 KB)

TOP

¦^´_ 11# myleoyes
luhpro«e½ú§A¦n!
¡@¡@¡@¡@ «e½ú!ÁÂÁÂ!¯uªº¥i¥H­C!!
         ¤ï¶Õ!!¤j²´·ú¤@ª½¦b¦£¨S¦³ª`·N¨ì
         §Aªº³Ç§@ÁÂÁ¦A¤T!!

TOP

¦^´_ 11# myleoyes
F(Rows.Count, 1).End(xlUp)(2, 1) = Date   '  µ¹ª«¥ó­È
F(Rows.Count, 1).End(xlUp)(2, 1).Select     '  ª«¥óªº¤èªk

TOP

¦^´_ 13# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!!¨¯­WÅo!!

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD