研究者のためのコンピュータフォーラム

  • 研究者同士のコンピュータに関する情報交換の場です。
  • 新しいテーマで話を始める場合、質問をする場合は「新しいトピックを作る」から書き込みをしてください。
  • 質問に対して解答できる方は是非、書き込んで下さい。
  • このフォーラムにふさわしくないと管理人が判断した投稿は予告なく削除します。

新しいトピックを作る　|　トピック一覧　|　研究留学ネットに戻る

このスレッドをはてなブックマークに追加このスレッドをはてなブックマークに追加

カウントダウンタイマー トピック削除
No.189-TOPIC - 2006/04/07 (金) 14:25:10 - B2
パワーポイント（マック）で使用可能なカウントダウンタイマーの作り方をご存じの方はいませんでしょうか？

たとえば，新年になるまでの日にちと時間を表示するようなもので，xx days xx h xx min xx sec　といったものを自動で表示出来るようなものです。

学会等で，時間を計るためのようなものの作り方はネット上で見つかるのですが，ある特定時間までのカウントダウンの方法はなかなか見つかりません。

もしご存じの方がいらっしゃいましたら，お教え下さい。
よろしくお願いします。
　
- このトピックにメッセージを投稿する -



全2件 ( 1 〜 2 )　 前 | 次 　1/ 1. /1

マクロ 削除/引用
No.189-2 - 2006/05/05 (金) 02:02:27 - SE
マクロで以下のようなコードでできると思います。VBA は初めて書いたので知っている方からすると突っ込みどころ満載だと思いますが・・・。

Option Explicit
Private Declare Sub Sleep Lib "KERNEL32.dll" _
(ByVal dwMilliseconds As Long)

Private Sub NewYear_Change()

End Sub

Private Sub START_Click()
Const set_date = "2007/01/01"
Dim i As Integer

NewYear.Text = "新年まで・・"
DoEvents
Sleep 1000

For i = 1 To 10 Step 1
NewYear.Text = DateDiff("s", Date, set_date) - i & " 秒"
DoEvents
Sleep 1000
Next i

NewYear.Text = "終了"
End Sub

カウントダウンタイマー 削除/引用
No.189-1 - 2006/04/07 (金) 14:25:10 - B2
パワーポイント（マック）で使用可能なカウントダウンタイマーの作り方をご存じの方はいませんでしょうか？

たとえば，新年になるまでの日にちと時間を表示するようなもので，xx days xx h xx min xx sec　といったものを自動で表示出来るようなものです。

学会等で，時間を計るためのようなものの作り方はネット上で見つかるのですが，ある特定時間までのカウントダウンの方法はなかなか見つかりません。

もしご存じの方がいらっしゃいましたら，お教え下さい。
よろしくお願いします。
全2件 ( 1 〜 2 )　 前 | 次 　1/ 1. /1

パスワードを入力してチェックした記事を チェックした記事を

このトピックにメッセージを投稿する
名前 
メール  　アドレス非公開
   タイトル 
本文      
設定  クッキーを保存（次回の入力の手間を省けます）
上に上げない（トピックの一覧で一番上に移動させません）
解決（問題が解決した際にチェックしてください）
暗証  半角英数字8-12文字の暗証番号を入れると、あとで削除、修正ができます。
送信 
〔使い方〕
  • 「アドレス非公開」をチェックすれば、自分のメールアドレスを公開しないで他の方からメールを受け取れます。
  • 問題が解決した際には、解決ボタンをチェックして解決した旨のコメントをつけてください。これは、初めにトピックを作った人と管理人のみが可能です。
  • 半角カタカナ、機種依存文字(全角ローマ数字、○の中の数字等)は文字化けの原因となりますので使わないでください。