マクロで連番動画

マクロ講座 動画編 52回
マクロ講座

動画でExcel 番号入力

マクロで㉑から㊿までの連続番号入力、(1)から(100)までの連続番号入力、

動画版「マクロ講座」です。
今回は51回からの続きとなります。
日本では、①などの連番や(1)をよく使います。
Excelでもそれらが使えると便利です。
マクロならカンタンに入力できます。
51回からは、その連番をマクロでどのように作るかという方法を解説しています。
その後半として、マクロ講座52回では、?から?までの連続番号入力と、 Sub かっこつき数値Asc入力()(1)から(100)までの連続番号入力入力や、墨付き括弧の連番入力【1】から【100】などのマクロを解説します。

マクロで㉑から㊿までの連続番号入力、(1)から(100)までの連続番号入力、

動画で紹介したコード

51回の動画で紹介した丸付数字を①から⑳まで入力までのコードです。

Sub 丸文字Asc20迄入力()
    Dim i As Long
    For i = 1 To 20
        Cells(i, 1).Value = Chr(Asc("①") + i - 1)
    Next i
End Sub

ローマ数字で連番

Sub ローマ数字Asc入力()
    Dim i As Long
    For i = 1 To 10
        Cells(i, 2).Value = Chr(Asc("Ⅰ") + i - 1)
    Next i
End Sub

Sub ローマ数字Asc入力2()
    Dim i As Long
    For i = 0 To 9
        Cells(1 + i, 3).Value = Chr(Asc("Ⅰ") + i)
    Next i
End Sub

52回の動画で紹介した丸付数字をマクロで㉑から㉟までのコード、㊿までの連続番号コードです。

Sub 丸文字Asc21to35入力()
    Dim i As Long
    For i = 1 To 15
        Cells(i, 2).Value = ChrW(12881 + i - 1)
    Next i
End Sub
Sub 丸文字Asc36to50入力()
    Dim i As Long
    For i = 1 To 15
        Cells(i, 3).Value = ChrW(12977 + i - 1)
    Next i
End Sub