べんりあつめ。

絶妙バランスを目指したい!絶対領域ブログ!

全角英語や数字、それに特定の記号を半角変換

2018/04/08

全角英語や数字、それに特定の記号を半角変換

繰り返し処理で、スマートに書きたいけど、そんな技術ないから、とりあえず、同じモジュール内で、利用することを前提に、Subの外に、Dimで変数定義して、あまり歓迎されないけど、Callで呼び出す。
速度的にどうかと思うが、回せる分は、これで。

スポンサーリンク

----- べんりあつめ。-----

Dim han
Sub syori()
'ここに、必要なコードを入力
Call zenhan
'ここに、必要なコードを入力
End Sub
Sub zenhan()
han = Replace(han, "A", "A")
han = Replace(han, "B", "B")
han = Replace(han, "C", "C")
han = Replace(han, "D", "D")
han = Replace(han, "E", "E")
han = Replace(han, "F", "F")
han = Replace(han, "G", "G")
han = Replace(han, "H", "H")
han = Replace(han, "I", "I")
han = Replace(han, "J", "J")
han = Replace(han, "K", "K")
han = Replace(han, "L", "L")
han = Replace(han, "M", "M")
han = Replace(han, "N", "N")
han = Replace(han, "O", "O")
han = Replace(han, "P", "P")
han = Replace(han, "Q", "Q")
han = Replace(han, "R", "R")
han = Replace(han, "S", "S")
han = Replace(han, "T", "T")
han = Replace(han, "U", "U")
han = Replace(han, "V", "V")
han = Replace(han, "W", "W")
han = Replace(han, "X", "X")
han = Replace(han, "Y", "Y")
han = Replace(han, "Z", "Z")
han = Replace(han, "a", "a")
han = Replace(han, "b", "b")
han = Replace(han, "c", "c")
han = Replace(han, "d", "d")
han = Replace(han, "e", "e")
han = Replace(han, "f", "f")
han = Replace(han, "g", "g")
han = Replace(han, "h", "h")
han = Replace(han, "i", "i")
han = Replace(han, "j", "j")
han = Replace(han, "k", "k")
han = Replace(han, "l", "l")
han = Replace(han, "m", "m")
han = Replace(han, "n", "n")
han = Replace(han, "o", "o")
han = Replace(han, "p", "p")
han = Replace(han, "q", "q")
han = Replace(han, "r", "r")
han = Replace(han, "s", "s")
han = Replace(han, "t", "t")
han = Replace(han, "u", "u")
han = Replace(han, "v", "v")
han = Replace(han, "w", "w")
han = Replace(han, "x", "x")
han = Replace(han, "y", "y")
han = Replace(han, "z", "z")
han = Replace(han, "1", "1")
han = Replace(han, "2", "2")
han = Replace(han, "3", "3")
han = Replace(han, "4", "4")
han = Replace(han, "5", "5")
han = Replace(han, "6", "6")
han = Replace(han, "7", "7")
han = Replace(han, "8", "8")
han = Replace(han, "9", "9")
han = Replace(han, "0", "0")
han = Replace(han, "!", "!")
han = Replace(han, "#", "#")
han = Replace(han, "$", "$")
han = Replace(han, "%", "%")
han = Replace(han, "&", "&")
han = Replace(han, "/", "/")
han = Replace(han, "@", "@")
han = Replace(han, " ", " ")
End Sub

スポンサーリンク

スマホのみ下に表示