LoginSignup
2

More than 1 year has passed since last update.

posted at

updated at

Excel VBAで簡単なテロップを作ってみた

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

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
What you can do with signing up
2