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

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

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

½Ð°Ý¦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

¦^´_ 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¤ÀÄÁ"
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


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

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


³o¼Ë¶Ü?

TOP

¦^´_ 3# laieven


  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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


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

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD