c_c_lai

¦^´_ 4# barrykuo
¤S¡B­pºâA02.rar ¤@¶}±Ò·|¦³¿ù»~°T®§
¬O¦]¬°§A¤Ö«Ø¥ß¤@­Ó¤u§@ªí³æ "5K"¡C

c_c_lai

¦^´_ 4# barrykuo
§A¸ÕµÛ±N

1.     If oneH >= 1 Then
   
2.         MsgBox "I got it!"      '  §A±ý¼g¤Jªº¸ê®Æ¤º®e
   
3.     End If      

½Æ»s¥N½X

´«¦¨³o­Ó´ú¸Õ¨Ò¤l¡A¸ÕµÛ§ï¦¨§A©Ò­nªº¶¡¶Z®É¬q¡G

1. Sub Ex()
   
2.     Dim MyStr
   
3.    
   
4.     '  ³]©w®É¶¡®æ¦¡¬° HH:MM:SS
   
5.     MyStr = Format(Sheets("§Y®É«ü¼Æ").Range("C3"), "00:00:00")
   
6. 
   
7.     '  ¦¹¨Ò¬°¨C¹j 5 ¤ÀÄÁ°õ¦æ¤@¦¸ (5 x 60)
   
8.     If (Minute(MyStr) * 60 + Second(MyStr)) Mod 300 = 0 Then
   
9.         MsgBox "I got it!"
   
10.     End If
    
11. End Sub

½Æ»s¥N½X

¦p¦¹«K¦¨¤F§A©Ò­nªºÃöÁä©Ê¤º®e¤F¡C

barrykuo

¦^´_ 3# c_c_lai
ÁÂÁÂowen06¡BC_C_Lai¤j¤j§Ö³t¼ö¤ß¦^´_¡Aªþ¤Wexcel¤å¥ó¡A¬Q±ß¼gªº¡A¦]¬°¤£¤Ó·|¼g¡A©Ò¥H½Ð±Ð³o¼Ë¥i¥H¶Ü?¬O§_§ó¦³¤è«Kªº§PÂ_¡C
­pºâA02.rar (116.31 KB)

¤U¸ü¦¸¼Æ: 12

2014-7-2 08:33

c_c_lai

¦^´_ 1# barrykuo
"¦pªG·Q§Q¥Î¬Ý½L³nÅéÅã¥Ü¦b¬¡­¶Ã¯¤Wªº®É¶¡¨Ò¦p094500¡B104500¡B114500¡B124500¡B134500µ¥®É¶¡¨Ó°O¿ýªÑ»ù¶}½L¡B³Ì°ª¡B³Ì§C¡B¦¬½L¡A¸Ó¦p¦ó§Q¥Î¥¨¶°¼g¤U¨Ó°O¿ý¡C"
§PÂ_®É¶¡ (Time) §ï¥H§PÂ_¡y¬Ý½L³nÅéÅã¥Ü¦b¬¡­¶Ã¯¤Wªº®É¶¡¡z«K¦æ¤F¡C

owen06

¦^´_ 1# barrykuo


    ¥Îapplication.ontime¥i¥H¹F¦¨§A­nªº¥\¯à¡A¦ý¯à§_ªþ­ÓÀÉ¡Ashow¥X§Aªºªí®æ¤º®e¡A¥H«K¤j®aÀ°§A³]©w¡C