[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エクセル テロップ表示』(MOMO)
エクセルで 自動的にテロップを表示するVBAを教えて下さい。
例) 〇〇を更新しました(12:00)←できれば自動的に時間を算出
※〇〇を更新しました 以外にも表示したい文言は沢山あります
宜しくお願い致します。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
Bのファイル(エクセル)に 表示したいメッセージを記入して保存すると
Aのファイル(エクセル)の D1セルに テロップが流れるようにしたいです。
テロップとは、メッセージボックスではなく 右から左に流れるイメージです。
そのファイルをみんなで共有しています。
(MOMO) 2019/03/20(水) 10:24
おはようございます ^^ 回答ではありません。。。何かの足しにでも。。。 新規ブックにてお試しをm(_ _)m
他のBOOKを開かずに参照する方法などは。お詳しい方の 回答をお待ちくださいねぇ。テロップにしなくても良いような気が しないでもありませんね。。。。。( ̄▽ ̄;)。。。。(#^.^#)
止める時はA10に何か入力して下さいね。 Option Explicit Sub main() Dim i As Long Dim j As Long Dim buf As Variant Dim tmp As String With Worksheets("Sheet1") .Range("A:A").SpecialCells(2).Clear buf = "お知らせ! 本日の晩餐お献立はカレーライスです。" While .Range("A10") = Empty .Cells(1).Clear tmp = "" For i = 1 To Len(buf) .Cells(1) = tmp For j = 1 To 3000 DoEvents Next tmp = tmp & Mid(buf, i, 1) Next DoEvents For i = 1 To 20000 DoEvents Next Wend End With End Sub (隠居じーさん) 2019/03/20(水) 11:10
Sub test() Dim ip As Long Dim cw As String Dim iEnd As Single
cw = Range("A1") & "(" & Format(Now(), "HH:NN") & ") " Do iEnd = Timer + 0.2 ip = ip Mod Len(cw) + 1 Range("A3") = Mid(cw & cw, ip, Len(cw)) While Timer < iEnd DoEvents Wend Loop End Sub (???) 2019/03/20(水) 13:14
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.