Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22489 / 76734 ←次へ | 前へ→

【59625】Re:現在時刻をリアルタイムに表示させたい
発言  熊谷隆史  - 08/12/26(金) 12:57 -

引用なし
パスワード
   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

3 hits

【59609】現在時刻をリアルタイムに表示させたい K.K 08/12/25(木) 1:04 質問
【59611】Re:現在時刻をリアルタイムに表示させたい マクロマン 08/12/25(木) 10:19 発言
【59613】Re:現在時刻をリアルタイムに表示させたい Yuki 08/12/25(木) 11:05 発言
【59614】Re:現在時刻をリアルタイムに表示させたい \n 08/12/25(木) 11:21 発言
【59616】Re:現在時刻をリアルタイムに表示させたい でれすけ 08/12/25(木) 17:08 発言
【59691】Re:現在時刻をリアルタイムに表示させたい ぱくぱく名無しさん 09/1/2(金) 19:38 発言
【59625】Re:現在時刻をリアルタイムに表示させたい 熊谷隆史 08/12/26(金) 12:57 発言

22489 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free