[[20220129202555]]　『連番の丸付数字』（事務員）　ページの最後に飛ぶ

『連番の丸付数字』（事務員）

連番で丸付数字を入力したいのですが？しかも
マクロで表現したいです。コードを見つけたのですが”３６”以降が
うまく変換できません。ご教授ねがいます。

Sub 選択セルに丸数字を連番で出力する()

   Dim i As Variant
i = InputBox("開始する番号を入力してください。(省略時は1からスタートします)")
If i = "" Then i = 1

If IsNumeric(i) = False Then

    MsgBox ("開始番号は数値で入力してください。")
    Exit Sub
End If
    Dim セル As Range
   For Each セル In Selection
      セル.Value = 丸数字(i)
     i = i + 1
 Next
End Sub

Function 丸数字(ByVal n As Long) As String

    Select Case n
    Case 1 To 20
        丸数字 = Chr(Asc("?@") + n - 1)
    Case 21 To 50
                丸数字 = ChrW(12881 + n - 21)
    Case 0
        丸数字 = ChrW(9450)
    Case Else
        丸数字 = "(" & n & ")"
    End Select
End Function

宜しくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 丸付き数字36のUNICODEは12977です
（どん） 2022/01/29(土) 21:02

Function 丸数字(ByVal n As Long) As String

    Select Case n
        Case 0
            丸数字 = ChrW(9450)
        Case 1 To 20
            丸数字 = ChrW(9311 + n)
        Case 21 To 35
            丸数字 = ChrW(12860 + n)
        Case 36 To 50
            丸数字 = ChrW(12941 + n)
        Case Else
            丸数字 = "(" & n & ")"
    End Select
End Function
（*） 2022/01/29(土) 21:15

（*）様　

ありがとうございました。
（事務員） 2022/01/30(日) 09:52

コメント返信：

[ 一覧(最新更新順) ]

[[20220129202555]] 『連番の丸付数字』（事務員） ページの最後に飛ぶ

[[20220129202555]]　『連番の丸付数字』（事務員）　ページの最後に飛ぶ