½Ð°ÝApplication.OnTime Now + TimeValue("00:00:01"),ªº°ÝÃD

laieven

½Ð°Ý¦U¦ì

§Ú¼g¤F¤@­Ó±q¬ö¿ýDDE¸ê®ÆªºVBA~~¤@¶}©l¼g¦bModule¤¤

µ{¦¡½X¦p¤U

Sub ©e¶R©e½æ1¤ÀÄÁ()
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
    Range("A1045786").End(xlUp).Offset(1, 0).Value = Range("A2")
    Range("B1045786").End(xlUp).Offset(1, 0).Value = Range("B2")
    Range("C1045786").End(xlUp).Offset(1, 0).Value = Range("C2")
    Range("E1045786").End(xlUp).Offset(1, 0).Value = Range("E2")

Application.OnTime Now + TimeValue("00:00:01"), "©e¶R©e½æ1¤ÀÄÁ"


§Ú·Q½Ð°Ý¡ã­Y§Ú·Q§â§Úªº³o¬qµ{¦¡½X~~¼g¨ìthisworkbook~~¨º§Ú¸Ó«ç»ò§ï©O?
¦A½Ð°Ý~~­Y§Ú·Q§â³o¬qµ{¦¡½X§ï¨ì¤u§@ªí1(©e¶R©e½æ)~~¤S¸Ó«ç»ò§ï©O

­Ó¤Hı±o°ÝÃDÀ³¸Ó¥X¦bApplication.OnTime Now + TimeValue("00:00:01"), "©e¶R©e½æ1¤ÀÄÁ"³o¤@¦æ
¦]¬°§Úª½±µ§âµ{¦¡½X½Æ»s¨ì¬ÛÃöªº¦ì¸m~~¨C¬í»¼°jªº°Ê§@¬OµLªk°õ¦æªº!!¦ô­p°ÝÃDÀ³¸Ó´N¬O¥X²{¦b¤W­z¨º¤@¦æªº¸ô®|¦³°ÝÃD
§Ú¹Á¸Õ¤F´X¦¸~~~µL©`©³¤l©|²L~~¤@ª½µLªk¹F¦¨!!
ÁٽЦU¦ì¥ý¶i¤£§[¨ó§U«ü±Ð
·PÁ¤F

laieven

¦^´_ 4# GBKEE


    ¶¶§Q½Õ¾ã¦n~~·PÁª©¥D¼ö¤ß¨ó§U!

GBKEE

¦^´_ 3# laieven

¤U¸ü (96.3 KB)

2015-6-25 14:27

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Worksheet
   
4.     For Each E In Sheets
   
5.         MsgBox "¤u§@ªí(""" & E.Name & """) ªº¼Ò²Õ¦WºÙ [" & E.CodeName & "]"
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

laieven

¦^´_ 2# GBKEE


    ¤F¸Ñ£{ ~~·PÁÂ!!
¨º¦A½Ð°Ý~~¼g¦b¤u§@ªí1~~¥i¼g¦¨

Application.OnTime Now + TimeValue("00:00:01"), "sheet1.©e¶R©e½æ1¤ÀÄÁ"


³o¼Ë¶Ü?

GBKEE

¦^´_ 1# laieven
"µ{§Ç©Ò¦bªº¼Ò²Õ.µ{§Ç¦WºÙ"
Application.OnTime Now + TimeValue("00:00:01"), "thisworkbook.©e¶R©e½æ1¤ÀÄÁ"
Application.OnTime Now + TimeValue("00:00:01"), "¤u§@ªí1.©e¶R©e½æ1¤ÀÄÁ"