縦書き数値、どうしてますか？

====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流ＰＧ 番外編 今日の一品 No.019 ] 　 2000/03/31 金曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流ＰＧ 番外編 今日の一品 は 隠し味として、 
軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------
縦書き数値、どうしてますか？

下記の質問メールいただきました。*番外編No.17に対して
----------------
>>    oApp.Selection.TypeText Text:=縦書用数値変換(Me![地積])
> 縦書用数値変換ってなんですか？

えっと、契約書が縦書きで、数値を漢数字にしなければならなく、
変換しています。
＊Ａｃｃｅｓｓ ---> Ｗｏｒｄ の処理には関係無いです
  混乱してしまった方、、、すみません。

例）番地１７３２ を 壱七参弐 
　　(実際の業務では、千とか百とか付けないと行けないので、
　　　担当者が書きなおしてるけど、、、)

下記が変換ルーチンです（ムダが多いけど、、）
Function 縦書用数値変換(MOJI) As String

    Dim RET As String
    Dim loop_sw As Boolean
    Dim mcnt As Integer
    Dim wmoji As String
    Dim i As Integer
    
    Const SUJI = "１２３４５６７８９０"
    Const KANJI = "壱弐参四五六七八九〇"
      
    RET = StrConv(MOJI & "", vbWide)
    
    Rem ハイフンの調整
    loop_sw = True
    While loop_sw = True
        mcnt = InStr(1, RET, "−")
        If mcnt = 0 Then
            loop_sw = False
        Else
            Mid(RET, mcnt, 1) = "ー"
        End If
    Wend
    
    Rem 数字の調整
    For mcnt = 1 To Len(RET)
        wmoji = Mid(RET, mcnt, 1)
        For i = 1 To 10
            If wmoji = Mid(SUJI, i, 1) Then
                Mid(RET, mcnt, 1) = Mid(KANJI, i, 1)
                Exit For
            End If
        Next i
    Next mcnt
    
    縦書用数値変換 = Trim(RET)

End Function

年賀状ソフトの数値-->漢数字変換ルーチン、、はどうやっているんだろう？
奥が深そう、、。
アルゴリズムに弱いやっぱ、三流だなぁ、、
と声が聞こえてきたところで、このへんで、、
今日も逃げ出す、、、最近サブ関数組めなくなった Ｋｅｎ３ でした。

質問や要望、クレームを送る(三流君に連絡する 連絡方法)

質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)

感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 あなたのお名前（ニックネーム）:さん 返信は？: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい ここに 感想や質問・要望・苦情など 三流君へ送るメッセージを 気軽に書いてください (感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[三流君連絡先]に連絡してください。

番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)