#Excel で簡単なテロップ
VBAで簡単なテロップを作ってみた
Module1
Sub telop()
Sheet1.Range("E7").Value = ""
For J = 0 To 200000
DoEvents
Next J
Sheet1.Range("E7").Font.Color = 0
S = " "
R = "Excelでテロップ"
T = S & R & S
For i = 1 To Len(T)
Sheet1.Range("E7").Value = Mid(T, i, 10)
For J = 0 To 10000
DoEvents
Next J
Next i
Sheet1.Range("E7").Font.Bold = True
R = "流れる文字にして"
T = S & R & S
For i = 1 To Len(T)
Range("E7").Value = Mid(T, i, 10)
For J = 0 To 10000
DoEvents
Next J
Next i
Sheet1.Range("E7").Font.Bold = False
Sheet1.Range("E7").Font.Color = -16776961
R = "赤文字に変えてからの、、、"
T = S & R & S
For i = 1 To Len(T)
Sheet1.Range("E7").Value = Mid(T, i, 10)
For J = 0 To 10000
DoEvents
Next J
Next i
Sheet1.Range("E7").Font.Color = 0
Sheet1.Range("E7").Value = ""
For J = 0 To 20000
DoEvents
Next J
Sheet1.Range("E7").Value = "おわり!"
For J = 0 To 20000
DoEvents
Next J
End Sub