- ©«¤l
- 32
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-9
- ³Ì«áµn¿ý
- 2020-12-30
|
¦^´_ 19# white945
´L«ì§@ªÌ¡A¥u¶K¥X³¡¥÷µ{¦¡½X.
With Sheets("TWII")
¸ê®Æ®w³Ì«á¤@µ§¸ê®Æ¦C¼Æ = .Cells(Rows.Count, "A").End(xlUp).Row
If ¸ê®Æ®w³Ì«á¤@µ§¸ê®Æ¦C¼Æ = 1 Then
¸ê®Æ®w³Ì«á¤@µ§¤é´Á = DateSerial(1999, 1, 1)
Else
¸ê®Æ®w³Ì«á¤@µ§¤é´Á = .Cells(¸ê®Æ®w³Ì«á¤@µ§¸ê®Æ¦C¼Æ, "A").Value
End If
¸ê®Æ®w·s¸ê®Æ¼g¤J¦C¼Æ = ¸ê®Æ®w³Ì«á¤@µ§¸ê®Æ¦C¼Æ + 1
End With |
|