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

[µo°Ý] vba«ö¶sªº°ÝÃD

[µo°Ý] vba«ö¶sªº°ÝÃD

¥»©«³Ì«á¥Ñ jerrystock ©ó 2012-5-30 11:39 ½s¿è

½Ð°Ý ¦p¦ó¦b8:45:00¦Û°Ê«ö¤U CommandButton1_Click
                ¦b13:45:00¦Û°Ê«ö¤U CommandButton2_Click
­Y«ö¤U«ö¶sCommandButton1_Click  ExeSelf¥¨¶°¬°¤°»ò¤£·|°õ¦æ ³£¥²¶·¥t¥~¤â°Ê¥h°õ¦æ ExeSelf¥¨¶°
ÁÂÁÂ
  1. Private Sub CommandButton1_Click()

  2.     j = 2
  3.     cumVol = 0
  4.     O = Sheet1.Range("E2")
  5.     H = -99999
  6.     l = 99999

  7.     dTime = TimeValue("13:45:00") '
  8. Application.OnTime dTime, "ExeSelf"
  9. Sheet4.CommandButton1.Enabled = False
  10. Sheet4.CommandButton2.Enabled = True
  11. End Sub

  12. Private Sub CommandButton2_Click()
  13. Sheet4.CommandButton1.Enabled = True
  14. Sheet4.CommandButton2.Enabled = False
  15. Call EndExeSelf
  16. End Sub
½Æ»s¥N½X

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-5-25 21:04 ½s¿è

¦^´_ 1# jerrystock
    dTime = TimeValue("13:45:00")          '  13:45:00 ¬O¤U¤È¤@ÂI¥|¤Q¤­¤À¡A§A¦b³o®É¬q¤§«e«ç»ò«ö³£µL®Ä°Ú¡I
Application.OnTime dTime, "ExeSelf"   ' ªí¥Ü±q§A«ö¶s«á¶}©l°_ºâ 13¤p®É¤S45¤À«á¤~°õ¦æ ExeSelf¡A
§Aª½±µ¥h°õ¦æ ExeSelf¡A ·íµM¥¦·|¥h°õ¦æ (¦]¬°§A¨Ã¤£³z¹L Application.OnTime dTime, "ExeSelf" °õ¦æ)

TOP

ÁÂÁÂc_c_lai¤j¤j«ü¾É
­ì¨Ó¬O³o¼Ë§Ú¥H¬°¬O¥¨¶°µ²§ô®É¶¡
¦pªG­n«ö¶s«ö¤U¥h°¨¤W°õ¦æ´N³] dTime = TimeValue("00:00:00") ³o¼Ë¹ï¶Ü?
¤µ¤Ñ½L¤¤8:45¤À±Ò°Ê¥¨¶°  dTime = TimeValue("10:00:00") ³]©w10ÂI µ²ªG10ÂI«á´N¤£¦A¬ö¿ý¤F
©Ò¥H§Ú¥H¬°¬Oµ²§ô®É¶¡ªº³]©w ¤£¹L¬°¤°»ò·|¦b10ÂI°±¤î¬ö¿ý©O ?
ÁÙ¦³¥i¥H¤£¥Î«ö«ö¶s  ¶}±Òexcel´Nª½±µ¬ö¿ý  ®É¶¡¨ì«á´N¦Û¤v°±¤î©O?

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-5-27 14:43 ½s¿è

¦^´_ 3# jerrystock
§A¥i¥H¥h°Ñ¦Ò
¦p¦ó§ï¦¨K´ÎÅã¥Ü?
Page 2 ³Ì«áªº #15 µ{¦¡»¡©ú
©ÎªÌ¬O
½Ð°Ý°ª¤â­n±N¥H¤UDDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í

TOP

ÁÂÁÂc_c_lai¤j¤j °ÝÃD¤w¸Ñ¨M
§Úı±oÁÙ¬O¤â°Ê¦n¤F  ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD