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

[µo°Ý] ¥Î®É¶¡±±¨îªºµ{¦¡¡A®É¶¡­n¸ó¹L¹j¤éªº VBA­n¦p¦ó¼g?

¦^´_ 7# ABK

Sub °±¤î°õ¦æ()
uMode = 0
Call ¦@¥Î°Ñ·Ó
Sht1.[O8] = "STOP"
On Error Resume Next
Application.OnTime Next_Time, "¦Û°Ê°O¿ý", Schedule:=False
On Error GoTo 0
End Sub

TOP

¥»©«³Ì«á¥Ñ ABK ©ó 2018-4-28 20:41 ½s¿è

¦^´_ 6# ­ã´£³¡ªL


  ÁÂÁ­ã³ö¤j !       ¤F¸Ñ¤F!
¦³¿ìªkÁקK ¦b¤w¸g°±¤î¬ö¿ý¤F¡A ¤S¥h«ö¤@¦¸"°±¤îÁä"®É ¤£·|¶]¥X¿ù»~°T®§¶Ü?
¦ý¬O¦A¥h«ö"°õ¦æ¬ö¿ý" ©M "²M°£¬ö¿ý¸ê®Æ"Áä ÁÙ¬O¥i¥HÄ~Äò¥¿±`¹B§@ !

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2018-4-27 19:20 ½s¿è

¦^´_ 5# ABK


¨º¬O¥Î¶Ã¼Æ§@¬°´ú¸Õ¥Î, DDE¤½¦¡±o¦U¤H»Ý¨D¦Û¦æ¥h¼g~~~
¥D­n¬O¸Ñ¨M[¤é½L][©]½L]ªº°ÝÃD!

TOP

¦^´_ 4# ­ã´£³¡ªL


ÁÂÁ­ã³ö¤j !      ¥u¯à»¡Åå¹Ä¡Aª©­±²M²n¦³¤O¡A¬Ý°_¨Ó«ÜµÎªA!   

¥i§_½Ð±Ð­ã³ö¤j ¸ê®Æ¬O¦p¦ó§ì¨úªº¡A ¤½¦¡©Mµ{¦¡¸Ì³£¨S¦³¬Ý¨ì¥ô¦ó¸ê®Æ·½ªº©I¥s¡A¤]¤£»Ý­n¶}¨÷°Óªº³nÅé¼Æ­È´N·|¶i¨Ó¡C

¤S³o¨Ç¼Æ­È¬Ý°_¨Ó©Ç©Çªº¡A¨Ò¦p¥x«ü ¡B¼¯¥x©M¥[Åvªº­È ¡A ÁÙ¬O»¡ A2:Q5¨º¤@°Ï¬O°²¸ê®Æ ¥Î¨Ó´ú¸Õ¬ö¿ýªºµ{¦¡?

2018-04-27_­ã³ö¤j.jpg (264.99 KB)

2018-04-27_­ã³ö¤j.jpg

TOP

´ú¬Ý¬Ý:
20120531a02(DDE¨C1¤À°O¿ý)-1.rar (20.31 KB)

TOP

¥»©«³Ì«á¥Ñ ABK ©ó 2018-4-26 23:09 ½s¿è

¦^´_ 2# jackyq

§Ú¥é»s¤Fpcboy¤j µo°Ýªº¤å½g: "DDE¨C¤ÀÄÁ°O¿ýªº¸ê®Æ±Æ§Ç°ÝÃD"  [ http://forum.twbts.com/thread-20603-1-1.html ] ¸Ì­±ªºµ{¦¡½X¡C

±N¸ó¹j¤éªºCode ¼g¤J, ·Q°µ¦¨¥i¥H¶]¥x«ü"¤é½L"©M"¤È«á½L"¨C¤ÀÄÁªº¬ö¿ý,
°±¤î®É¶¡¨ºÃä¨S¼g¦n¡A «ö¶s±Ò°Ê"¦Û°Ê°O¿ý"«á , ¨S¦³¶]°_¨Ó !   ¤@ª½¥d¦b¦¬½L®É¶¡¡C

-- A1®æ¨ºÃä¥i¥H¿ï¾Ü"¤é½L"©Î"©]½L" --

1¤ÀÄÁ¬ö¿ý- ´ú¸ÕÀÉ-3.rar (80.11 KB)

TOP

If Now >= (Date + 0 + TimeValue("15:00:00")) And _
   Now <= (Date + 1 + TimeValue("05:00:00")) Then
   
   ...............
End If

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD