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

[µo°Ý] µ{§Ç°±¤îµo°Ý

[µo°Ý] µ{§Ç°±¤îµo°Ý

½Ð±Ð¤j¤j¥H¤U¨â­Ó°ÝÃD
°Ý1,    §Ú·Q¼g¤@­Ó°±¤îµ{§Ç,°±¤î a123µ{§Ç,©Ò¦³¶µ¥¼°õ¦æªºµ{§Ç,½Ð±Ðµ{¦¡½X­n¦p¦ó¼g?
°Ý2,   ¦³¨S¦³¿ìªk¥ý§PÂ_,µ{§Ç¬O§_¦³±Æ¤J®Éµ{, ½T©w¨S¦³¦b°õ¦æ      Application.OnTime TimeValue("08:43:00"), "µ{§Ç1"      ªº¤èªk?

sub  a123()¡@
Application.OnTime TimeValue("08:43:00"), "µ{§Ç1"
Application.OnTime TimeValue("09:45:00"), "µ{§Ç2"
Application.OnTime TimeValue("15:45:00"), "µ{§Ç3"
end sub

¦^´_ 1# blue2263


    ¤£ª¾¹D³o­Ó¬O¤£¬O§A­nªº¡A¬Ý¤£¤ÓÀ´§Aªº·N«ä¡A°±¤îµ{§Ç?ª¾¹D°±¤îªº¦ì¤l?ª¾¹D¦³¨S¦³°õ¦æµ{§Ç?

¥[¤Jµ{§Ç¤¤´N¥i¥H§Y®ÉÅã¥Ü¦bExcel¥ª¤U¨¤µo²{µ{§Çª¬ºA¡C
  1. Application.StatusBar = "Åã¥Ü¤å¦r" 'String
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 2# faye59

ÁÂÁÂF¤j¸Ñµª

µ{§Ç¥[¤JÅã¥Ü¤å¦r,ÁöµM¥i¥Hª¾¹D°õ¦æµ{§Ç¦b¨º¤@­Ó
¦ý¬O¦]¬°±Æ©w®Éµ{ªºµ{§Ç¦³¥i¯à¬O¦P¤@­Ó,¥Bµ{§Ç¤Ó¦h,¤]·|¤£¦n§PÂ_

°w¹ï§Úªº°ÝÃD§Ú¦b¼g¸Ô²Ó¤@ÂI
°Ý1:   8:30°õ¦æ( a123µ{§Ç),§Ú¦b8:50·Q°±¤î¹w©w9:45 & 15:45 °õ¦æªºµ{§Ç ,½Ð±Ðµ{¦¡½X­n¦p¦ó¼g?
°Ý2:  °Ý1ªº°ÝÃD¸Ñ¨M«á,¤v¥i¸Ñ¨M§Úªº°ÝÃD,§Ú¥u¬O·Q¤F¸Ñ,¦³¨S¦³¤èªkª¾¹D,±Æ©wµ{§Ç¬O§_¤v¨ú®ø°õ¦æ

TOP

¦^´_ 3# blue2263

°ÝÃD1
¥Dµ{¦¡°õ¦æ¤¤¡A®e³\¦A°õ¦æ¨ä¥¦¥¨¶°¡A ¥i¨Ï¥Î«ö¶s«ü©w¥H¤Uµ{¦¡¡A
  1. Sub Stop()
  2. ¡@¡@Application.EnableCancelKey = xlInterrupt
  3. End Sub
½Æ»s¥N½X
©Î¬O³]©w¤@­ÓÅܼơA
½á¤©­Èªº®É­Ô°õ¦æEnd¥Dµ{¦¡¡C
©Î³]©wSelect Case«ü©w¶}±Ò­þ¨ÇOnTime¡C

OnTime¤¤¨¾¤î«öEsc¤¤Â_µ{¦¡¡A¦b¶}ÀY¥[¤J
  1. Application.EnableCancelKey = xlDisabled
½Æ»s¥N½X
°ÝÃD2
µ{§Ç¦³³]©w¦nªº¸Ü¤£À³¸Ó·|¥¼°õ¦æ¦Û°Ê¤¤Â_¡C
¦pªG¨S³]©w¦n²Ä¤@­ÓOnTime¤]³£¤£·|°õ¦æ¡C
¦pªG§AOnTimeªº©I¥sª«¥ó¬OExcel¥~­n¯S§Oª`·NWindown¬ÛÃö¨t²Î¡C
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 4# faye59

F¤j±z¦n
§Ú°õ¦æ(°±¤î°õ¦æ)µ{§Ç,¨ÌµLªk°±¤î(¨C¤À°j°é)µ{§Ç
¤£¦n·N«ä§Ú¬Oªì¾ÇªÌ,¥i§_½ÐF¤j¤j¸Ô¸Ñ

Sub ¨C¤À°j°é()
     xTime = TimeSerial(Hour(Time), Minute(Time) + 1, 0)
     Application.OnTime xTime, "¨C¤À°õ¦æ"
     With ThisWorkbook.Worksheets("¤u§@ªí1")
         .Cells(1, 1) = .Cells(1, 1) + 1
     End With
End Sub

Sub °±¤î°õ¦æ()
    Application.EnableCancelKey = xlInterrupt
End Sub

TOP

¦^´_ 5# blue2263


    ¥i¥Hªþ¤W±zªºÀɮ׬ݬݶÜ?
¤]¤ñ¸û¤è«K®³¹ê»Ú®×¨Ò¨Ó´ú¸Õ¤Î°£¿ù¡C
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 6# faye59

°±¤î°õ¦æ´ú¸Õ.rar (13.39 KB)

F¤j¤j±z¦n,¤£¦n·N«ä,¦A³Â·Ð§A¤F,ÁÂÁÂ!!

TOP

Public xTime  '³]¬°¦@¥ÎÅܼÆ, ©ñ¦b°O¾Ð¤¤¥i¨Ñ¨ä¥¦µ{§Ç¦s¨ú

Sub ¨C¤À°j°é()
xTime = TimeSerial(Hour(Time), Minute(Time) + 1, 0)
Application.OnTime xTime, "¨C¤À°j°é"
With ThisWorkbook.Worksheets("¤u§@ªí1")
    .Cells(1, 1) = .Cells(1, 1) + 1
End With
End Sub

Sub °±¤î°õ¦æ()
On Error Resume Next  '(²¤¹L¿ù»~) ­Y¹w­q°õ¦æªºµ{¦¡¤w¤£¦s¦b, ¤£µo¥Í¿ù»~
Application.OnTime xTime, "¨C¤À°j°é", Schedule:=False  '¨ú®ø¹w­q°õ¦æµ{§Ç
On Error GoTo 0
End Sub


¦pªG¹w­q°õ¦æªºµ{§Ç¦³«Ü¦h­Ó, «h [¹w­q®É¶¡] ÅÜ¼Æ ¶·¥Î¨ä¥LÅܼƩΪ«¥ó¦s®Ä, ¦A³v¤@¨ú®ø

TOP

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

¤F¸Ñ¤F,ÁÂÁ­ã¤j¸Ñµª!!

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD