|
D-HTMLの機能を利用する例もついでに
載せておきます。
参考)
http://scripting.cocolog-nifty.com/blog/2007/10/vbamsgbox_7811.html
# 一部、Yukiさんのコードをお借りしてます。
---
Option Explicit
'ブックモジュール
Private obj As Object
Private timerID As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean)
obj.parentWindow.clearInterval timerID
End Sub
Private Sub Workbook_Open()
Set obj = CreateObject("htmlfile")
Set obj.parentWindow.opener = Me
timerID = obj.parentWindow.setInterval("opener.func", 1000, "VBScript")
End Sub
Sub func()
Worksheets(1).Range("A1").Value = Format(Now(), "gge年m月d日 h時m分s秒")
End Sub
|
|