数値を漢数字に変換するプログラム Function KanSuuK(num) Kingaku=0 '0=漢数字 1=金額漢数字 If Kingaku=0 Then saKeta=Array("","万","億","兆","京","垓","𥝱","穣","溝","澗","正","載","極","恒河沙","阿僧祇","那由他","不可思議","無量大数") Else saKeta=Array("","萬","億","兆","京","垓","𥝱","穣","溝","澗","正","載","極","恒河沙","阿僧祇","那由他","不可思議","無量大数") End If If IsNumeric…