- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2014-7-2 10:56 ½s¿è
¦^´_ 4# barrykuo
§A¸ÕµÛ±N- If oneH >= 1 Then
- MsgBox "I got it!" ' §A±ý¼g¤Jªº¸ê®Æ¤º®e
- End If
½Æ»s¥N½X ´«¦¨³oÓ´ú¸Õ¨Ò¤l¡A¸ÕµÛ§ï¦¨§A©Ònªº¶¡¶Z®É¬q¡G- Sub Ex()
- Dim MyStr
-
- ' ³]©w®É¶¡®æ¦¡¬° HH:MM:SS
- MyStr = Format(Sheets("§Y®É«ü¼Æ").Range("C3"), "00:00:00")
- ' ¦¹¨Ò¬°¨C¹j 5 ¤ÀÄÁ°õ¦æ¤@¦¸ (5 x 60)
- If (Minute(MyStr) * 60 + Second(MyStr)) Mod 300 = 0 Then
- MsgBox "I got it!"
- End If
- End Sub
½Æ»s¥N½X ¦p¦¹«K¦¨¤F§A©ÒnªºÃöÁä©Ê¤º®e¤F¡C |
|