ExcelVBAでテロップを表示したい。

質問

ExcelVBAでテロップを表示したい。
ExcelVBAを独学でゼロから学んでる超初心者です。
worksheet上に右側から現れて左側に消えて行くというごくシンプルなテロップを作成したいのですが
ExcelVBAでテロップ作成することは出来ますか？
出来るのであれば、コードを教えて頂けるととてもありがたいです。
わがままな質問で申し訳ありません。宜しくお願い致します。

回答No.2

hana-hana3 · ベストアンサー

先の物では先頭部分の表示に問題があったので修正します。
それとともに表示時間を柔軟に調節出来るようにしました。
後の欠点としては、全角半角文字の区別をしていないので、表示にズレがでてしまう問題が残っています。

------------------------------------------------------------------------

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub sample2()

Dim i As Integer, j As Long, k As Integer
Dim tmp As String
Dim mes As String
Dim word As Integer
Dim loops As Integer
Dim CEL As String

mes = "ExcelVBAでテロップを表示したい。ExcelVBAを独学でゼロから学んでる超初心者です。" & _
"worksheet上に右側から現れて左側に消えて行くというごくシンプルなテロップを作成したいのですが" & _
"ExcelVBAでテロップ作成することは出来ますか？" & _
"出来るのであれば、コードを教えて頂けるととてもありがたいです。" & _
"わがままな質問で申し訳ありません。宜しくお願い致します。"

word = 30
loops = 3
CEL = "A1"
mes = String(word, "　") & mes

For k = 1 To loops
For i = 1 To Len(mes)
DoEvents
Sleep (250)
tmp = Mid(mes, i, word)
Range(CEL) = tmp
Next
Range(CEL).ClearContents
Next

End Sub

お礼

回答ありがとうございます。
少し調整は必要みたいですけど、私的には全然問題なく使えます。
わがままな質問に付き合って頂き感謝致します。ありがとうございました。

回答No.1

hana-hana3

おもしろそうなので作って見ました。
本来はタイマーを使って表示のタイミングを調節した方が良かったのですが、安直にループ文を使ってタイミング調整をしているので、パソコンによって表示速度が変わるでしょう。
あえて解説はしませんので、ご自身でコードの探求を行ってください。

Sub sample()

Dim i As Integer, j As Long, k As Integer
Dim tmp As String
Dim mes As String
Dim word As Integer
Dim loops As Integer
Dim CEL As String

mes = "ExcelVBAでテロップを表示したい。ExcelVBAを独学でゼロから学んでる超初心者です。" & _
"worksheet上に右側から現れて左側に消えて行くというごくシンプルなテロップを作成したいのですが" & _
"ExcelVBAでテロップ作成することは出来ますか？" & _
"出来るのであれば、コードを教えて頂けるととてもありがたいです。" & _
"わがままな質問で申し訳ありません。宜しくお願い致します。"

word = 30
loops = 5
CEL = "A1"

For k = 1 To loops
For i = 1 To Len(mes)
For j = 0 To 5000000: Next
tmp = Mid(mes, i, word)
Range(CEL) = tmp
Next
Range(CEL).ClearContents
Next

End Sub

補足

ありがとうございます。表示速度調整は何とか出来そうです。
真に我がままをいって申し訳ありませんが、表示している間は他の作業が一切出来ない
のですが、解決方法はありますか。