算用数字を漢数字に変換 : Excel(エクセル)

 (Excel2007でソフト作成)

Excel Tipsメニューに戻る

スポンサーリンク






漢数字に変換するExcel関数はないので、一文字ずつチェックし算用数字なら漢数字に入れ替えます。

■実行手順
1)2行目~4行目の住所をループで変数に代入します。
2)住所の長さ分(LEN関数)をループします。
3)MID関数で1文字取り出します。
4)算用数字かチェックします。(半角と全角でチェックしています)
5)算用数字ならば、漢数字にします。
6)文字数分ループし終えると、下の行に表示します。

Excelシート画面

■実行シート
上の住所の3行が変換前、下の3行が変換後の住所です。
漢数字変換シート

スポンサーリンク


Excel VBA実行コード

Sub ボタン1_Click()
    Dim i As Integer
    Dim j As Integer
    Dim s1 As String
    Dim s2 As String
    Dim s3 As String
    
    For i = 1 To 3
        s1 = Cells(1 + i, 2)
        s3 = ""
        For j = 1 To Len(s1)
            s2 = Mid(s1, j, 1)
            Select Case s2
                Case "1", "1"
                    s2 = "一"
                    
                Case "2", "2"
                    s2 = "二"
                    
                Case "3", "3"
                    s2 = "三"
                    
                Case "4", "4"
                    s2 = "四"
                    
                Case "5", "5"
                    s2 = "五"
                    
                Case "6", "6"
                    s2 = "六"
                    
                Case "7", "7"
                    s2 = "七"
                    
                Case "8", "8"
                    s2 = "八"
                    
                Case "9", "9"
                    s2 = "九"
                    
                Case "0", "0"
                    s2 = "〇"
                
            End Select
            s3 = s3 & s2
        Next
        Cells(8 + i, 2) = s3
    Next
        
    End Sub

スポンサーリンク







Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved