半形字轉全形字

Function chstr(istr) ' 半形轉全形
Dim strtmp
strtmp = Replace(istr, "(", "（")
strtmp = Replace(strtmp, ")", "）")
strtmp = Replace(strtmp, "[", "〔")
strtmp = Replace(strtmp, "]", "〕")
strtmp = Replace(strtmp, "{", "｛")
strtmp = Replace(strtmp, "}", "｝")
strtmp = Replace(strtmp, ".", "。")
strtmp = Replace(strtmp, ",", "，")
strtmp = Replace(strtmp, ";", "；")
strtmp = Replace(strtmp, ":", "：")
strtmp = Replace(strtmp, "-", "—")
strtmp = Replace(strtmp, "?", "？")
strtmp = Replace(strtmp, "!", "！")
strtmp = Replace(strtmp, "@", "＠")
strtmp = Replace(strtmp, "#", "＃")
strtmp = Replace(strtmp, "$", "＄")
strtmp = Replace(strtmp, "%", "％")
strtmp = Replace(strtmp, "&", "＆")
strtmp = Replace(strtmp, "|", "｜")
strtmp = Replace(strtmp, "", "＼")
strtmp = Replace(strtmp, "/", "／")
strtmp = Replace(strtmp, "+", "＋")
strtmp = Replace(strtmp, "=", "＝")
strtmp = Replace(strtmp, "*", "＊")
strtmp = Replace(strtmp, "0", "０")
strtmp = Replace(strtmp, "1", "１")
strtmp = Replace(strtmp, "2", "２")
strtmp = Replace(strtmp, "3", "３")
strtmp = Replace(strtmp, "4", "４")
strtmp = Replace(strtmp, "5", "５")
strtmp = Replace(strtmp, "6", "６")
strtmp = Replace(strtmp, "7", "７")
strtmp = Replace(strtmp, "8", "８")
strtmp = Replace(strtmp, "9", "９")
strtmp = Replace(strtmp, "a", "ａ")
strtmp = Replace(strtmp, "b", "ｂ")
strtmp = Replace(strtmp, "c", "ｃ")
strtmp = Replace(strtmp, "d", "ｄ")
strtmp = Replace(strtmp, "e", "ｅ")
strtmp = Replace(strtmp, "f", "ｆ")
strtmp = Replace(strtmp, "g", "ｇ")
strtmp = Replace(strtmp, "h", "ｈ")
strtmp = Replace(strtmp, "i", "ｉ")
strtmp = Replace(strtmp, "j", "ｊ")
strtmp = Replace(strtmp, "k", "ｋ")
strtmp = Replace(strtmp, "l", "ｌ")
strtmp = Replace(strtmp, "m", "ｍ")
strtmp = Replace(strtmp, "n", "ｎ")
strtmp = Replace(strtmp, "o", "ｏ")
strtmp = Replace(strtmp, "p", "ｐ")
strtmp = Replace(strtmp, "q", "ｑ")
strtmp = Replace(strtmp, "r", "ｒ")
strtmp = Replace(strtmp, "s", "ｓ")
strtmp = Replace(strtmp, "t", "ｔ")
strtmp = Replace(strtmp, "u", "ｕ")
strtmp = Replace(strtmp, "v", "ｖ")
strtmp = Replace(strtmp, "w", "ｗ")
strtmp = Replace(strtmp, "x", "ｘ")
strtmp = Replace(strtmp, "y", "ｙ")
strtmp = Replace(strtmp, "z", "ｚ")
strtmp = Replace(strtmp, "A", "Ａ")
strtmp = Replace(strtmp, "B", "Ｂ")
strtmp = Replace(strtmp, "C", "Ｃ")
strtmp = Replace(strtmp, "D", "Ｄ")
strtmp = Replace(strtmp, "E", "Ｅ")
strtmp = Replace(strtmp, "F", "Ｆ")
strtmp = Replace(strtmp, "G", "Ｇ")
strtmp = Replace(strtmp, "H", "Ｈ")
strtmp = Replace(strtmp, "I", "Ｉ")
strtmp = Replace(strtmp, "J", "Ｊ")
strtmp = Replace(strtmp, "K", "Ｋ")
strtmp = Replace(strtmp, "L", "Ｌ")
strtmp = Replace(strtmp, "M", "Ｍ")
strtmp = Replace(strtmp, "N", "Ｎ")
strtmp = Replace(strtmp, "O", "Ｏ")
strtmp = Replace(strtmp, "P", "Ｐ")
strtmp = Replace(strtmp, "Q", "Ｑ")
strtmp = Replace(strtmp, "R", "Ｒ")
strtmp = Replace(strtmp, "S", "Ｓ")
strtmp = Replace(strtmp, "T", "Ｔ")
strtmp = Replace(strtmp, "U", "Ｕ")
strtmp = Replace(strtmp, "V", "Ｖ")
strtmp = Replace(strtmp, "W", "Ｗ")
strtmp = Replace(strtmp, "X", "Ｘ")
strtmp = Replace(strtmp, "Y", "Ｙ")
strtmp = Replace(strtmp, "Z", "Ｚ")
strtmp = Replace(strtmp, " ", "　")
chstr = strtmp
End Function

引用通告地址: 點擊獲取引用地址