動画でExcel 丸の中に入った数字の連番
動画版「マクロ講座」です。
今回は ①②③のような 丸の中に入った数字の連番を 作成したいと思います。
連番といっても数字ではありません。
実際は文字列なので、通常の連番を入力するようには行きません。この解説は、3行マクロ講座45回をさらに深く解説したものになると同時に、丸文字の①から㊿までの連番をマクロで入力するという内容になります。
使うのVBA関数は、Chr関数、Asc関数です。
3行マクロ講座の動画45回で紹介したコード
以下はアルファベットを連続入力します。
Sub アルファベット入力()
Dim mojinum As Integer
For mojinum = 1 To 26
Cells(mojinum, 2).Value = Chr(mojinum + 64)
Next mojinum
End Sub
以下は今回の51回で紹介した丸付数字を①から⑳まで入力します。範囲は、A1:A20です。
Sub 丸文字Asc20迄入力()
Dim i As Long
For i = 1 To 20
Cells(i, 1).Value = Chr(Asc("①") + i - 1)
Next i
End Sub