2019-04-07から1日間の記事一覧
Sub eGov用() ' ' 選択範囲の漢数字を英数字に置換 ' Dim a_漢数字(0 To 11) As String a_漢数字(0) = "" a_漢数字(1) = "一" a_漢数字(2) = "二" a_漢数字(3) = "三" a_漢数字(4) = "四" a_漢数字(5) = "五" a_漢数字(6) = "六" a_漢数字(7) = "七" a_漢数…
Sub eGov用() ' ' 選択範囲の漢数字を英数字に置換 ' Dim a_漢数字(0 To 11) As String a_漢数字(0) = "" a_漢数字(1) = "一" a_漢数字(2) = "二" a_漢数字(3) = "三" a_漢数字(4) = "四" a_漢数字(5) = "五" a_漢数字(6) = "六" a_漢数字(7) = "七" a_漢数…