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

½Æ»s¨ìªÅ¥Õªº³Ì¤W®æ

½Æ»s¨ìªÅ¥Õªº³Ì¤W®æ

¦U¦ì«e½ú§A­Ì¦n!
             «e½ú!!½d³ò¬°[E3:E30]
            ²{¦b[E3,E4,E5,E8,E10,E22]<>""
            ¤p²Ä¥Î¦¹µ{¦¡
            [A1].Copy: [E30].End(xlUp)(2.1).PasteSpecial xlPasteValues
            ¥u¯à±N[A1]½Æ»s¨ìE23ªº¦ì¸m
            ¦ý»Ý¨Dªº¦ì¸m¬O E6
            ¤£ª¾µ{¦¡¬°¦ó?
            ½Ð¤£§[¦A½ç±ÐÁÂÁ¦A¤T!!

¦^´_ 1# myleoyes

If Application.CountA([E3:E30]) < 28 Then Range("E3:E30").SpecialCells(xlCellTypeBlanks).Cells(1) = [A1]
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
«e½ú!!ÁÂÁÂ!!µ{¦¡ok!
               ¦ý°ÝÃD¨S¦³ok!
               ¦pªþÀÉ»¡©ú,±ß¦w!!
               ½Ð¤£§[¦A½ç±ÐÁÂÁ¦A¤T!!

LeoV64.rar (13.7 KB)

TOP

¦^´_ 3# myleoyes
  1. Sub YY()
  2. Dim A As Range
  3.     If Application.CountA([F3:F30]) < 28 Then
  4.     Set A = Range("E3:E30").SpecialCells(xlCellTypeBlanks).Cells(1)
  5.      A = Evaluate("=TEXT(CEILING((EDATE(A1,0)-8)/7,1)*7+7,0)+ 14"): A.Offset(, 1) = [C3]
  6.     End If
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
°¸¹³«e½ú!!ÁÂÁÂ!!¦A½Ð±Ð³o­Ó§ä³Ì¤j()µ{¦¡
         ¦pªþÀÉ®×»¡©ú!
         ½Ð¤£§[¦A½ç±ÐÁÂÁ¦A¤T!!

LeoV64-1.rar (19.23 KB)

TOP

¦^´_ 4# Hsieh
°¸¹³«e½ú!¤£¥Î¦A³Â·Ð§A,µ{¦¡¤w§ä¨ì
      ¥u¬OÁÙ­n¦A¦h¤@­Ó»²§U®æ,Á`ı±o¦Û¤v³£¨S¦³¦¨ªøÁÂÁ¦A¤T!!
      Sub §ä³Ì¤j()
          Set c = [E3:E30].Find([AB2], , , 1)
           If Not c Is Nothing Then c.Select: ActiveCell = "=TEXT(CEILING((EDATE(A1,0)-8)/7,1)*7+7,0)+ 14"
           :  ActiveCell = Selection: ActiveCell.Offset(0, 1).Select: ActiveCell = [C2]: [AA1] = "":     
     End Sub

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD