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