電光掲示板のように文字が流れて行く、これがExcelでできるんです。
マクロを使いますが「難しいから無理だ」とあきらめないでください。指定の場所にコピペで貼り付けるだけで、どなたでも簡単にできるよう解説しております。
共有ファイルなどの表紙に設定してみてはいかがですか？
シート１の設定
セルB1に、スクロール表示させたい文字列を入力します。
次にセルB3に下の数式をコピペし、文字列がすべて表示されるところまでこの数式セルをコピーします。
↓セルB3へコピペ用数式
=MID($B$1,IF(COLUMN()+$A$1＜=LEN($B$1),COLUMN()+$A$1,COLUMN()+$A$1-LEN($B$1)),1)
セルP3まで数式をコピーしたら文字列がすべて表示されました。
マクロの設定
マクロを敬遠している方も、ここはコピペだけですから安心してやってみてください。
いつものExcel画面から [Alt][11] キーを同時に押すとマクロの編集画面に切替ります。画面左側の Sheet1 上をダブルクリックすると、下図のようにグレーだった画面が白い編集画面に切替ります。
この編集画面に下のコピペ用マクロを貼り付けて完成です。
↓コピペ用マクロ（PrivateからEnd Subまですべてコピペ）
Private Declare Function GetAsyncKeyState Lib “User32.dll” (ByVal vKey As Long) As Long
Private Sub Worksheet_Activate()
Do
If GetAsyncKeyState(vbKeyEscape) Then Exit Do
For C = 1 To Len(Range(“B1”))
Application.Wait Now + TimeValue(“00:00:01”)
Range(“A1”) = C
Next C
Loop
End Sub
使い方
Excel画面に戻って（編集画面は右上の✕で終了するか、ウィンドウでExcelを選択）
Sheet1以外のシートからSheet1に戻った時、または保存しておいたこのBookを開いた時にスクロールが開始します。
ぜひお試し下さい！
