19/02/15 01:43:51.10 6R3QhjK00.net
もっとシンプルなのができた
Function kanacaps(s1) As String
t = "ｱｲｳｴｵﾔﾕﾖﾂ"
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If "ｧ" <= c And c <= "ｯ" Then
Mid(s1, i) = Mid(t, A sc(c) - 166, 1)
End If
Next
kanacaps = s1
End Function
19/02/15 01:43:51.10 6R3QhjK00.net
もっとシンプルなのができた
Function kanacaps(s1) As String
t = "ｱｲｳｴｵﾔﾕﾖﾂ"
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If "ｧ" <= c And c <= "ｯ" Then
Mid(s1, i) = Mid(t, A sc(c) - 166, 1)
End If
Next
kanacaps = s1
End Function