19/02/15 01:46:51.97 6R3QhjK00.net
しつこいけど、これで最後
Function kanacaps(s1) As String
t = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If "ｧ" <= c And c <= "ｯ" Then Mid(s1, i) = t(As c(c) - 167)
Next
kanacaps = s1
End Function