ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó§PÂ_ Application.OnTime ¬O§_¦b°õ¦æ??

[µo°Ý] ¦p¦ó§PÂ_ Application.OnTime ¬O§_¦b°õ¦æ??

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-17 14:54 ½s¿è

¦p¦ó§PÂ_ Application.OnTime ¬O§_¦b°õ¦æ¤¤??
»yªk¬°¦ó?
IF ................THEN ........
--------------------------------------------
Sub timestock()
my = #12:01:00 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"

END SUB

¦^´_ 1# t8899

¬O³o­Ó·N«ä¶Ü?
Åý§Aª¾¹Dµ{¦¡¦³¨S¦³¦b¶]
  1. Sub timestock()

  2. my = #12:01:00 AM#
  3. The_Time = Time + my
  4. Application.OnTime The_Time, "timestock"
  5. Application.OnTime Now + TimeValue("00:00:01"), "timestock"
  6. [A1] = Time

  7. End Sub
½Æ»s¥N½X
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-17 18:57 ½s¿è
¦^´_  t8899

¬O³o­Ó·N«ä¶Ü?
Åý§Aª¾¹Dµ{¦¡¦³¨S¦³¦b¶]
»k¥ú°j¯T µoªí©ó 2014-10-17 16:46

±zªº¤è¦¡À³¸Ó·|¦û¸ê·½.....??
§Ú¬O­nª¾¹Dtimestock ¬O§_¥¿¦b¶] ?¥Î if ....then ªº»y¥y .........
¤£­n¥ÎÃþ¦ü  if [a1]=1 then true
Sub timestock()
[a1]=1
my = #12:01:00 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"
END SUB

sub timestop()
Application.OnTime The_Time, "timestock", Schedule:=False
[a1]=2
end sub

¬O¤£¬OÀ³¸Ó¥ÎÅܼƵ¹¥¦???ÅܼƤS­n«ç»ò³]??

TOP

¦^´_ 3# t8899


   
±zªº¤è¦¡À³¸Ó·|¦û¸ê·½.....??
§Ú¬O­nª¾¹Dtimestock ¬O§_¥¿¦b¶] ?

¬O³o¼Ë¶Ü?
  1. Sub timestock()
  2.     Application.DisplayStatusBar = True
  3.     Application.StatusBar = "timestock ¥¿¦b¶] "
  4.     '§Aªºµ{¦¡½X
  5.     '§Aªºµ{¦¡½X
  6.     '§Aªºµ{¦¡½X
  7.     '§Aªºµ{¦¡½X
  8.     '§Aªºµ{¦¡½X
  9.     '§Aªºµ{¦¡½X
  10.     Application.StatusBar = "timestock ¶]§¹¤F"
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

module ¥á¤J¤@­Ó Public ÅܼƦW

TOP

¦^´_  t8899


   
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2014-10-17 19:24


if ..timestock ¥¿¦b¶]  then............  »yªk????

TOP

if ..timestock ¥¿¦b¶]  then............  »yªk????
t8899 µoªí©ó 2014-10-17 19:33


·Q­nÄdºI´N¦b module ©ñ¤@­Ó
Public Sub AAA( ¥¿¦b¶] )
If  ¥¿¦b¶] Then
Else
End if
End Sub

    Sub timestock()
         Call Sheet1.AAA ( True )
    End Sub

    Sub  timestop()
         Call Sheet1.AAA ( False )
    End Sub

TOP

¦^´_ 6# t8899


   
if ..timestock ¥¿¦b¶]  then............  »yªk????

5#bobomi «Øij   module ¥á¤J¤@­Ó Public ÅܼƦW
timestock ¥¿¦b¶]®É¥i°õ¦æ¤@­Ó°Æµ{¦¡  ->   if ÅܼƦW=true  then ....
¦ý§A¥i¯à·|»¡ "±zªº¤è¦¡À³¸Ó·|¦û¸ê·½.....??" ©Ò¥H§Ú @-+/*
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-17 20:06 ½s¿è
·Q­nÄdºI´N¦b module ©ñ¤@­Ó
Public Sub AAA( ¥¿¦b¶] )
If  ¥¿¦b¶] Then
Else
End if
End Sub

...
bobomi µoªí©ó 2014-10-17 19:47

ÁÂÁÂ!
¦³®É°õ¦æ
Application.OnTime The_Time, "timestock", Schedule:=False
timestock µLªk°±¤î°h¥X ..¤]¤£ª¾¦³µL°h¥X¦¨¥\...¤S­«Âаõ¦ætimestock
Åܦ¨¨â­Ótimestock¦b¶]...
±zªº¤èªk¦ü¥GµLªk¹F¨ì§Úªº­n¨D..........??
¤@©w­nª¾¹Dtimestock ¦³µL¦b°õ¦æ¤¤¡A¤~¥i¹F¨ì§Úªº­n¨D

TOP

Sub timestock()
Call  AAA ( True ) ' ©ñ¦b  Application.OnTime The_Time, "timestock" ¤§«e

my = #12:01:00 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"

END SUB

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD