- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 3# Hsieh
·PÁª©¤j«ü¾É
½Ð°Ý¦pªG¦WºÙ¤¤µL"-"¬O§_¬O¦bar = Split(C, "-")¸Ì¦h¥[¤@Ó§P§O
¨º¦pªG«O¾i¤é´Á¤º¬°"---",¥B¤£±N¸ê®Æ§ì¥X,¬O§_¬O¦b¤U¦Cµ{¦¡¤º¦h¥[¤@ÓElse§P§O¸ê®Æ
If IsDate(.Cells(C.Row, A.Column)) Then
Ay(3) = .Cells(C.Row, A.Column): Ay(4) = .Cells(C.Row, A.Column + 1)
Ay(5) = Ay(4) - Date
Else
Ay(3) = Evaluate(Replace(.Cells(C.Row, A.Column), "~", "+")) / 2
Ay(4) = .Cells(C.Row, A.Column + 1): Ay(5) = Ay(3) - Ay(4)
End If
¸ê®Æ¤ÀÃþ.zip (5.52 KB)
|
|