数字（1～50）を丸付き数字に変換するVBA

最終更新日：2022-11-15

数字（1～50）を丸付き数字に変換するVBA

数値には丸付き数字があります。
ただし1～50までしかありません。

①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳
㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟
㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿

3段に分けたのには理由があります。
㉑以降はUNICODEになり⑳までとは文字コードが全く別になり、さらに㊱からもコードが分かれています。

丸付き数字の文字コード

丸付き数字のUNICODE

①	9312	㉑	12881	㊱	12977
②	9313	㉒	12882	㊲	12978
③	9314	㉓	12883	㊳	12979
④	9315	㉔	12884	㊴	12980
⑤	9316	㉕	12885	㊵	12981
⑥	9317	㉖	12886	㊶	12982
⑦	9318	㉗	12887	㊷	12983
⑧	9319	㉘	12888	㊸	12984
⑨	9320	㉙	12889	㊹	12985
⑩	9321	㉚	12890	㊺	12986
⑪	9322	㉛	12891	㊻	12987
⑫	9323	㉜	12892	㊼	12988
⑬	9324	㉝	12893	㊽	12989
⑭	9325	㉞	12894	㊾	12990
⑮	9326	㉟	12895	㊿	12991
⑯	9327
⑰	9328
⑱	9329
⑲	9330
⑳	9331

①～⑳ ・・・ 9111 + 数値 → 丸付き数字の文字コード
㉑～㉟・・・ 12860 + 数値 → 丸付き数字の文字コード
㊱～㊿・・・ 12941 + 数値 → 丸付き数字の文字コード
丸付き数字はこれら3つに分かれています。
この文字コードを使って1～50の数値を丸付き数字に変換するVBAと数式を以下で紹介します。
必要になる事はあまり無いと思いますが、何かの時に参考になればと思います。

丸付き数字に変換するVBAとシート数式

1～50以外の数値の場合は元の数値を返すようにしています。

VBAコード


  
    
      Function CircledNumber(ByRef num As Long) As String

      　　CircledNumber = num

　　If num < 1 Or num > 50 Then Exit Function

　　

　　Dim i As Long

　　Select Case num

　　　　Case Is <= 20: i = 9311

　　　　Case Is <= 35: i = 12860

　　　　Case Else: i = 12941

　　End Select

      　　CircledNumber = ChrW(i + num)

End Function

シート数式

=IF(OR(セル<1,セル>50),D1,
UNICHAR(セル+IFS(セル<=20,9311,セル<=35,12860,TRUE,12941)))

同じテーマ「マクロVBA技術解説」の記事

LSetとユーザー定義型のコピー（100桁の足し算）
省略可能なVariant引数の参照不可をラップ関数で利用
 ブックのいろいろな開き方（GetObject,参照設定,アドイン）
入力規則への貼り付けを禁止する
 Select Caseでの短絡評価（ショートサーキット）の使い方
 RangeオブジェクトのFor EachとAreasについて
 画像が行列削除についてこない場合の対処
 新関数SORTBYをVBAで利用するラップ関数を作成
 LAMBDA以降の新関数はVBAで使えるか
数字（1～50）を丸付き数字に変換するVBA
文字列のプロパティ名でオブジェクトを操作する方法

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.並べ替え（Sort）｜VBA入門
8.Excelショートカットキー一覧｜Excelリファレンス
9.エクセルVBAでのシート指定方法｜VBA技術解説
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門

ホーム
マクロVBA応用編
マクロVBA技術解説
数字（1～50）を丸付き数字に変換するVBA

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA技術解説
数字（1～50）を丸付き数字に変換するVBA