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

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

¦^´_ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD