hatena の Microsoft Access 掲示板



[7252] hatena チップ 数字を漢数字に変換 Name:tokinaito Date:2017/08/02(水) 09:17 [ 返信 ]
hatena様hatena チップには大変お世話になっております。

ところで同窓会の計画をしているのですが、住所地番がすべて

数字で記されていて、苦慮しています。

そこで下記のような関数をhatena様チップで発見しました。

ところがこれを使おうとすると、Num2Kanjiの部分がSUB又は

Functionが定義されていませんと出ます。

宜敷ご教示お願いします。

Public Function CnvKanjiNum(Ad) As String
Dim i As Long
Dim Pos As Long
Dim Num As Long

If IsNull(Ad) Then Exit Function
Pos = 1
For i = 1 To Len(Ad)
If Mid(Ad, i, 1) Like "#" Then
CnvKanjiNum = CnvKanjiNum & Mid(Ad, Pos, i - Pos)
Num = Val(Mid(StrConv(Ad, vbNarrow), i))
CnvKanjiNum = CnvKanjiNum & Num2Kanji(Num)
i = i + Len(CStr(Num))
Pos = i
End If
Next
CnvKanjiNum = CnvKanjiNum & Mid(Ad, Pos, i - Pos)
End Function

[7253] RE:hatena チップ 数字を漢数字に変換 Name:hatena Date:2017/08/02(水) 09:44
文字列中に含まれる数値を漢数字に変換する関数 - hatena chips
を参考にしたのですね。
そこに、下記の説明がありますが、これはやってますか。


> 事前に、下記の「数値→漢数字変換関数」を標準モジュールにコピーしておいてください。
> 数値←→漢数字変換関数 - hatena chips

[7255] 解決RE:hatena チップ 数字を漢数字に変換 Name:tokinaito Date:2017/08/02(水) 10:30
すみません。有り難うございます。

重宝させて頂きます。


  



無料レンタル掲示板・日記・ブログ Progoo