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

myleoyes

¦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!!

Hsieh

¦^´_ 1# myleoyes

If Application.CountA([E3:E30]) < 28 Then Range("E3:E30").SpecialCells(xlCellTypeBlanks).Cells(1) = [A1]

myleoyes

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

Hsieh

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

myleoyes

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

myleoyes

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