2

入力された数値を漢数字に変換するスクリプトを作成しました。

前提条件:Excelがインストールされていること

Set xlsApp = CreateObject("Excel.Application")
If xlsApp Is Nothing Then
  Err.Raise 1, "", "Excelの起動に失敗しました"
Else
  xlsApp.Application.Visible = false
  On Error Resume Next
    ' 入力値123に対して第二引数が1の場合「百二十三」第二引数が2の場合「壱百弐拾参」第二引数が3の場合「一二三」
    output = xlsApp.Evaluate("NUMBERSTRING(" & !入力数値! & "," & 1 & ")")
  On Error Goto 0
  SetUMSVariable $出力漢数字$, output
  xlsApp.Quit
  Set xlsApp = Nothing
End If

入力値数値「123」に対して「百二十三」といった変換が出来ます。

この質問は解決済みのためクローズされています。
ベストアンサーとして選択しました