1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. 数字を漢数字に変換する

数字を漢数字に変換する:Excel VBA入門

半角数字を漢数字に変換する 　　　　　topへ

• セルに入力された文字列の中にある数字を漢数字に変換します。
• 【コード例A】
  • 半角数字を漢数字に変換して表示します。
  • 文字列の最初の文字から順番に半角数字か否かをLike演算子で判定します。
    半角数字であったら数字と同じ漢数字に置き換えます。
  • (注)下記コードの　 Like "[0-9]"　の0,9は半角の文字です。
    

    Sub kansuji1() 　　Dim c As Range 　　Dim i As Integer, j As Integer 　　Dim ansData As Variant 　　Dim kan As Variant 　　kan = Array("〇", "一", "二", "三", "四", "五","六", "七", "八", "九") 　　For Each c In Selection 　　　　ansData = "" 　　　　For i = 1 To Len(c.Value) 　　　　　　If Mid(c.Value, i, 1) Like "[0-9]" Then 　　　　　　　　For j = 0 To 9 　　　　　　　　　　If Mid(c.Value, i, 1) = j Then 　　　　　　　　　　　　ansData = ansData & Replace(Mid(c.Value, i, 1), j, kan(j)) 　　　　　　　　　　End If 　　　　　　　　Next j 　　　　　　Else 　　　　　　　　ansData = ansData & Mid(c.Value, i, 1) 　　　　　　End If 　　　　Next i 　　　　c.Offset(0, 1).Value = ansData 　　Next c End Sub

  • 実行後の例
    

半角数字と全角数字を漢数字に変換する　　　　　topへ

• 全角の数字やハイフンが含まれていて、縦書きである時の例です。
  • 半角数字または全角数字を漢数字に変換して表示します。
  • 全角数字のチェックを　If StrConv(Mid(c.Value, i, 1), vbNarrow) = j Then 　としています。
  • 縦書きのためハイフンは「｜」に置き換えています。
  • (注)下記コードの　 Like "[0-9]"　の0,9は半角の文字です。Like "[０-９]"の０，９は全角文字です。
    

    Sub kansuji2() 　　Dim c As Range 　　Dim i As Integer, j As Integer 　　Dim ansData As Variant 　　Dim kan As Variant 　　　　kan = Array("〇", "一", "二", "三", "四", "五", "六", "七", "八", "九") 　　　　For Each c In Selection 　　　　　　ansData = "" 　　　　　　For i = 1 To Len(c.Value) 　　　　　　　　If Mid(c.Value, i, 1) Like "-" Or Mid(c.Value, i, 1) Like "ー" Then 　　　　　　　　　　ansData = ansData & "|" 　　　　　　　　ElseIf Mid(c.Value, i, 1) Like "[0-9]" Or Mid(c.Value, i, 1) Like "[０-９]" Then 　　　　　　　　　　For j = 0 To 9 　　　　　　　　　　　　If StrConv(Mid(c.Value, i, 1), vbNarrow) = j Then 　　　　　　　　　　　　　　ansData = ansData & Replace(StrConv(Mid(c.Value, i, 1), vbNarrow), j, kan(j)) 　　　　　　　　　　　　End If 　　　　　　　　　　Next j 　　　　　　　　Else 　　　　　　　　　　ansData = ansData & Mid(c.Value, i, 1) 　　　　　　　　End If 　　　　　　Next i 　　　　　　c.Offset(0, 1).Value = ansData 　　　　Next c End Sub

  • 実行後の例
    

スポンサードリンク

PageViewCounter
　
　Since2006/2/27