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

[µo°Ý] Excel ¼½©ñ¥|­Ó¤À­¶

[µo°Ý] Excel ¼½©ñ¥|­Ó¤À­¶

¦U¦ì¥ý¶i¦n

¦³¤@°ÝÃD·Q½Ð±Ð
¤p§Ì¦³¥|­Ó¤À­¶³£¦b¦P¤@­ÓÀÉ®×
·Q¨Ï¥Î¥¨¶°Åý¥|­Ó¤À­¶³£¯à¤À§O¥X²{
´N¹³PPTÀɤ@¼Ë½ü¼½

¤p§Ì¥Î¤F
Application.Wait waitTime
°µ©µ¿ð5¬í«á¦A¨ä¥¦¤À­¶
¦ý·|¥d¦í....
¥Î¤F
Application.OnTime Now + TimeValue("00:00:05"), "§Úªº¤À­¶"
¤@¼Ë·|¥d¦í
½Ð°Ý¦³§Oªº»yªk©ÎªÌ¤p§Ì¨ºÃä¼g¿ù¤F¶Ü?

¦^´_ 1# fantersy


    ¦U¦ì¥ý¶i¦n!!
¤p§Ì¥Î¤U¦C»yªk¼g¥X...
¬O¥i¥H°õ¦æ....
½Ð°Ý¦³§ó¦nªº¼gªk¶Ü??
¥t¥~¥i¥H³]©w¼öÁä¶}©l¸òÃö³¬¶Ü?

Sub ½ü¼½()
For X = 1 To 5

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5 + X
newSecond1 = Second(Now()) + 10 + X
newSecond2 = Second(Now()) + 15 + X
newSecond3 = Second(Now()) + 20 + X
waitTime = TimeSerial(newHour, newMinute, newSecond)
waitTime1 = TimeSerial(newHour, newMinute, newSecond1)
waitTime2 = TimeSerial(newHour, newMinute, newSecond2)
waitTime3 = TimeSerial(newHour, newMinute, newSecond3)

Sheets("¥Í²£¤é³øªí-²k¿ü½u").Select
ActiveWindow.ScrollColumn = 1
Application.Wait waitTime

Sheets("¥Í²£¤é³øªí-²Õ¥ß¤@½u").Select
ActiveWindow.ScrollColumn = 1

Application.Wait waitTime1

Sheets("¥Í²£¤é³øªí-²Õ¥ß¤G½u").Select
ActiveWindow.ScrollColumn = 1

Application.Wait waitTime2

Sheets("¥Í²£¤é³øªí-´ú¸Õ½u").Select
ActiveWindow.ScrollColumn = 1
Application.Wait waitTime3

Next


End Sub

TOP

¦^´_ 2# fantersy
¥H¤U©ñ¦bThisWorkbook , ¶}Àɮ׮ɩw¸q¦n¼öÁä
  1. Private Sub Workbook_Open()
  2.     Application.OnKey "^+a", "AutoPlay"     'Ctrl + Shift + a  ¶}©l
  3.     Application.OnKey "^+s", "StopPlay"     'Ctrl + Shift + s  °±¤î
  4. End Sub
½Æ»s¥N½X
¥H¤U©ñ¦b¤@¯ë¼Ò²Õ
  1. Private inPlay As Boolean
  2. Private nextTime As Date
  3. Private index As Long
  4. Sub AutoPlay()
  5.     StopPlay    'stop previous schedule
  6.    
  7.     inPlay = True
  8.     index = 1
  9.     LoopDisplaySheet
  10. End Sub
  11. Sub StopPlay()
  12.     If inPlay Then
  13.         Application.OnTime nextTime, "LoopDisplaySheet", , False    '¨ú®ø¤w¦s¦b±Æµ{
  14.         inPlay = False
  15.     End If
  16. End Sub
  17. Sub LoopDisplaySheet()
  18.     Application.Goto Sheets(index).Range("A1"), True
  19.    
  20.     If index = Sheets.Count Then
  21.         Exit Sub
  22.     Else
  23.         nextTime = Now + TimeValue("00:00:01")
  24.         index = index + 1
  25.         Application.OnTime nextTime, "LoopDisplaySheet"
  26.     End If
  27. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 3# stillfish00

¦n¼F®`ªº¼gªk!!
ÁÂÁ¤j¤jªºÀ°¦£~¯uªº¨ü±Ð¤F
¾Ç¨ì¤£¤Ö~·P®¦!!

TOP

¦^´_ 3# stillfish00


    stillfish00 ¤j¤j§A¦n!!
¤p§Ì­è´ú¸Õ¤F¤@¤U!!
1.©Ò¦³¤À­¶³£¯à½ü©ñ¤@¦¸, ½Ð°Ý¯à«ü©w¬Y¨Ç¤À­¶¶Ü?
2.½ü©ñ¤@¦¸«á§Y°±¤î¡A½Ð°Ý¯à¤@ª½½ü©ñ¨ì¤U¼öÁä°±¤î«á¤~°±ªº°Ê§@¶Ü?

©êºp!!³Â·Ð¤j¤j¸Ñ´b

TOP

¦^´_ 5# fantersy
  1. Private nextTime As Date
  2. Private index As Long
  3. Sub AutoPlay()
  4.     StopPlay    'stop previous schedule
  5.    
  6.     index = 0
  7.     LoopDisplaySheet
  8. End Sub
  9. Sub StopPlay()
  10.     On Error Resume Next
  11.     Application.OnTime nextTime, "LoopDisplaySheet", , False    '¨ú®ø¤w¦s¦b±Æµ{
  12. End Sub
  13. Sub LoopDisplaySheet()
  14.     Dim arSheets
  15.     arSheets = Array("¤u§@ªí1", "¤u§@ªí2", "¤u§@ªí3")
  16.    
  17.     Application.Goto Sheets(arSheets(index)).Range("A1"), True
  18.    
  19.     If index = UBound(arSheets) Then
  20.         index = 0
  21.     Else
  22.         index = index + 1
  23.     End If
  24.         
  25.     nextTime = Now + TimeValue("00:00:01")
  26.     Application.OnTime nextTime, "LoopDisplaySheet"
  27. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_  fantersy
stillfish00 µoªí©ó 2016-6-14 17:20


ÁÂÁ¤j¤jªºÀ°¦£

¯uªº«Ü¨ü¥Î!!·P®¦!!

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD