[µo°Ý] Ãö©ó Application.OnTime ªº¨Ï¥Î...

saleen

§Ú´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 ¤u§@ªí1
.[A1] = .[B1].Value
End With
End Sub

Sub update_data2()
With ¤u§@ªí1
.[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
¥D­n¬O·Q¦b¯S©wªº®É¶¡¥h¬ö¿ý¸ê®Æ
¦pªG¦³§ó¦nªº¼gªk¤]½Ð¤j¤j­Ì´£ÂI¤p©f
·PÁÂ !!

owen06

¦^´_ 3# saleen


  ³o¼Ë¤~¬O¥¿½Tªº«ü¥O¡G  
  With Sheets("¤u§@ªí1")

saleen

§ï¦¨

Sub update_data()
With Sheets("¤u§@ªí1")
.[A1] = .[B1].Value
End With
End Sub

ÁÙ¬O¤@¼Ë , ³æ¿W°õ¦æ³o¬q³£¨S°ÝÃD , ©ñ¶i¾ã¬q¤@°_°õ¦æ´N¥X¿ù
±Ï©R°Úªü!!!!

bobomi

¤èªk¦³2
´£¨Ñªk1

§â
Sub update_data()
Sub update_data2()
¥á¨ì module ¸Ì­±´N¸Ñ¨M¤F

saleen

¦^´_ 5# bobomi


    bobo ©n¦A¦¸±Ï¤F¤p©f
¤Ó·PÁ¤F
¤£¹L¬°¤°»ò·|³o¼Ë©O ??

bobomi

¦]¬°module¤Uªº¨ç¼Æ¹w³]¬°¤½¶}