- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 116
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-5-20
|
¦^´_ 3# myleoyes - Sub YY()
- Dim A As Range
- If Application.CountA([F3:F30]) < 28 Then
- Set A = Range("E3:E30").SpecialCells(xlCellTypeBlanks).Cells(1)
- A = Evaluate("=TEXT(CEILING((EDATE(A1,0)-8)/7,1)*7+7,0)+ 14"): A.Offset(, 1) = [C3]
- End If
- End Sub
½Æ»s¥N½X |
|