アラビア数字(0123)を漢数字(零壱弐参)に変換する関数です。 壱千兆 未満の正の整数を変換します。 ※コード中の\(バックスラッシュ)は、¥ です。 Function ArabicToKanji(ByVal ArabicNum As Variant) As String If IsNull(ArabicNum) Then Exit Function Dim TempExc As String Dim Num(15) As String, i As Integer, n As Integer Dim V... > このページを見る