19/02/15 01:53:45.99 6R3QhjK00.net
最後と言いながらもう一度
これってまだまだコンパクトにできるパターンだな
Function kanacaps(s1) As String
t = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")
For i = 1 To Len(s1)
c = Asc(Mid(s1, i))
If 166 < c And c < 176 Then Mid(s1, i) = t(c - 167)
Next
kanacaps = s1
End Function