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

[µo°Ý] ½Ð±ÐÃö©ó Application.OnTime ªº°ÝÃD...

[µo°Ý] ½Ð±ÐÃö©ó Application.OnTime ªº°ÝÃD...

§Ú´Nª½±µ¶Kµ{¦¡½X¤F


Sub workbook_open()

Call update_acrd_time

End Sub

Sub update_acrd_time()

Application.OnTime TimeValue("17:37:30"), "update_data"
Application.OnTime TimeValue("17:19:00"), "update_data2"

End Sub

Sub update_data()

With Data_show
.[A1] = .[B1].Value
End With

End Sub

Sub update_data2()

With Data_show
.[A2] = .[B2].Value
End With

End Sub


¤£ª¾¹D¬°¤°»ò³o¼Ë¶]¨C¦¸³£·|¥X²{ :
µLªk°õ¦æ¥¨¶°,¸Ó¥¨¶°¥i¯àµLªk¦b¦¹¬¡­¶Ã¯¤¤¨Ï¥Î,©Î¤w°±¥Î¸Ó¥¨¶°
¥i¬O§Ú³æ¿W¶] update_data ©Î update_data2 ³£¨S°ÝÃD = =?
Application.OnTime ³o¼Ëªº¥Îªk¤]¨S¿ù
·Ó Microsoft ªº»¡©ú¥´ªº
http://msdn.microsoft.com/en-us/library/office/ff196165(v=office.15).aspx


ÁٽЦU¦ì¤j¤jÀ°¦£¤F
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD