- ©«¤l
- 129
- ¥DÃD
- 25
- ºëµØ
- 0
- ¿n¤À
- 159
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-24
- ³Ì«áµn¿ý
- 2022-12-12
|
¦^´_ 12# iceandy6150
§Ú¦Û¤v§ä¨ì¸Ñ¨M¤èªk¤F¡A¯u¶}¤ß
¦pªGµ¹ªº¸ê®Æ¡A¬O¦³¦~¦³¤ë¡A¤ñ¦p 1¦~5¤ë³o¼Ë¡A´N¥Î¤@Ó°µªk
¦pªGµ¹ªº¸ê®Æ¡A¥u¦³¤ë¨S¦³¦~¡A¤ñ¦p9¤ë¡B12¤ë¡A´N¥Î¥t¤@¿ìªk
³o¼Ë´N¯à§ï¦¨§Ú¦Û¤vnªº 00¦~00¤ë ªº®æ¦¡¤F- c = .Range("D" & i).Value
-
- If c Like "*¦~*" Then '¦³¦~¦³¤ë´N¥Î³oӤ覡§ï®æ¦¡
- c = Application.Text(Replace(Replace(c, "¤ë", ":"), "¦~", ":"), "[hh]¦~mm¤ë")
- Else
-
- f = Split(c, "¤ë") '¦pªG¥u¦³¤ë §PÂ_¬O¤@¦ì¼Æ(1~9¤ë)ÁÙ¬O¨â¦ì¼Æ(10~12¤ë)
-
- If Len(f(0)) = 1 Then
- c = "00¦~0" & f(0) & "¤ë"
- Else
- c = "00¦~" & f(0) & "¤ë"
- End If
- End If
½Æ»s¥N½X ¬°¤°»òn°µ³oÓ¥\¯à©O
¬O¦]¬°¨Ó·½¸ê®Æ«Ü¤£¤@©w
¦³®ÉÔ¬O3¤ë ¦³®ÉÔ11¤ë ¦³®ÉÔ 1¦~5¤ë¡B10¦~11¤ëµ¥µ¥
¦ì¼ÆÅܨÓÅÜ¥h
¥ÎMID«ÜÃø©â¨ú
µM«á¤Sn®M¤W³W«h
¦pªGº¡¥b¦~´N«ç¼Ë«ç¼Ë---> ¥ýºâ¥X¦~¸ê´«ºâ¦¨¤ë¬O´X¤ë º¡¥b¦~´N¬O¦~¸ê>=6
¦pªGº¡¤@¦~ --> ¦~¸ê>=12
¥Î³o¨Ç±ø¥ó¦A¨Ó°Ï¤À¦U¯Å¶Zªº¤H¸Ó¤U¤°»ò«ü¥O
¥H¤W¤p¤pµo²{¡A¦Û°Ý¦Ûµª |
|