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

[µo°Ý] VBA®É¶¡°ÝÃD

[µo°Ý] VBA®É¶¡°ÝÃD

½Ð°Ý¦U¦ì
§Ú·Q¥ÎVBA¼g¤@­Óµ{¦¡
¦]¬°¬O­n½u¤W§ó·s¸ê®Æ
·Q­n¨C¤­¤ÀÄÁ°õ¦æ¤@¦¸§ó·sµ{¦¡
§ó·sµ{¦¡§Ú¼g¦n¤F
¥i¬O«ç»ò­pºâ¤­¤ÀÄÁ°õ¦æ¤@¦¸¤£ª¾¹D«ç»ò¼g
¥i¥H½Ðª¾¹Dªº¤HÀ°§Ú¸Ñµª¤@¤U¶Ü?

¦^´_ 6# shadowming
§A¦Û¦æ¸Õ¸Õ¬Ý°Ú

TOP

¦^´_ 4# GBKEE

½Ð°Ý¤@¤U
¦]¬°§Ú¬O©ñ¦bªí³æ
·íªí³æ¤@°õ¦æ´N¶}©lºâ®É¶¡
¨C¤­¤ÀÄÁ§ó·s¤@¦¸
¬O³o¼Ë¼g¶Ü?

Sub Update()
.....(µ{¦¡¤º®e)
Application.OnTime Now + TimeValue("00:05"), Update()
End Sub

Private Sub UserForm_Activate()
Call Update()
end Sub

³o¼Ë·|¤£·|¥u°õ¦æ§ó·s¤@¦¸´N°±¤F?

TOP

¥ÎApplication.OnTime Now + TimeValue("00:05:00")

TOP

¦^´_ 3# shadowming
¥Î Time ©Î Now ¬Ò¥i
§ó·sµ{¦¡-> ¼g¦b¤@¯ë¼Ò²Õ(Module)
  1. Sub §ó·sµ{¦¡()
  2. '
  3. '
  4.     'Application.OnTime Time + TimeValue("00:05"), "§ó·sµ{¦¡"
  5.     Application.OnTime Now + TimeValue("00:05"), "§ó·sµ{¦¡"
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# oobird
ª©¥D
§Ú¦³¬Ý¹L¤F
¥i¬OÁÙ¤£·|
VB§Úª¾¹D¥ÎTIMER
¥i¬OVBA§ÚÁÙ¬O¤£¤Ó·|¥Î
¥i¥H³Â·Ð±zÀ°§Ú¸Ñµª¤@¤U¦n¶Ü?

TOP

±`°Q½×ªº°ÝÃD¡A·j´M¤@¤U¥ý¡C

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD