[[20190320100217]]　『エクセル　テロップ表示』（MOMO）　ページの最後に飛ぶ

『エクセル　テロップ表示』（MOMO）

エクセルで　自動的にテロップを表示するＶＢＡを教えて下さい。

例）　〇〇を更新しました（12:00）←できれば自動的に時間を算出

※〇〇を更新しました　以外にも表示したい文言は沢山あります

宜しくお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

Msgbox Range("A1") & "(" & Format(Now(), "hh:nn") & ")"
（ななし） 2019/03/20(水) 10:19

ありがとうございます

Ｂのファイル（エクセル）に　表示したいメッセージを記入して保存すると
Ａのファイル（エクセル）の　Ｄ１セルに　テロップが流れるようにしたいです。
テロップとは、メッセージボックスではなく　右から左に流れるイメージです。
そのファイルをみんなで共有しています。
（MOMO） 2019/03/20(水) 10:24

 おはようございます　＾＾
 回答ではありません。。。何かの足しにでも。。。
 新規ブックにてお試しをm(_ _)m

 他のＢＯＯＫを開かずに参照する方法などは。お詳しい方の
 回答をお待ちくださいねぇ。テロップにしなくても良いような気が
 しないでもありませんね。。。。。(￣▽￣；)。。。。(#^.^#)

 止める時はＡ10に何か入力して下さいね。
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

参考になりませんか？
[[20050810101945]]『電光掲示板みたいな・・・』（あんあん）
（通りすがり） 2019/03/20(水) 12:55

とりあえず、A1セルに書いた文字列に現在時分を追加し、同じシートのA3セルに出力する例なぞ。0時またぎの対策は入れてません。
別ブックに勝手に代入するのはどうかと思いますし、ステータスバーに出力しても十分ではないでしょうか？

 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

コメント返信：

[ 一覧(最新更新順) ]

[[20190320100217]] 『エクセル テロップ表示』（MOMO） ページの最後に飛ぶ

[[20190320100217]]　『エクセル　テロップ表示』（MOMO）　ページの最後に飛ぶ