- ©«¤l
- 140
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 167
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- OFFICE 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-26
- ³Ì«áµn¿ý
- 2023-1-30
|
¦^´_ 15# GBKEE
¸ò±qGBKEEª©¤jªº«ü¾É¡A¦¨¥\¤F!¦A¤T·PÁÂ!- Option Explicit
-
- Sub Ex()
-
- Dim D As Variant, E As Range, b As Date
-
- For Each E In Range("b2", [b2].End(xlDown))
-
- D = Split(E.Offset(, -1), "/")
-
- b = E + #12:01:00 AM#
-
- E.Value = E + #12:01:00 AM#
-
- 'E.Offset(, 6) = D(0) & D(1) & Replace(E.Text, ":", "")
- E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
-
- Next
-
- End Sub
½Æ»s¥N½X |
|