19/02/15 01:37:27.77 6R3QhjK00.net
>>135
あんまり綺麗じゃないけど
Function kanacaps(s1) As String
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If "ｧ" <= c And c <= "ｯ" Then
Select Case c
Case "ｧ" To "ｫ"
s = 10
Case "ｬ" To "ｮ"
s = 40
Case Else
s = 19
End Select
Mid(s1, i) = Ch r(As c(c) + s)
End If
Next
kanacaps = s1
End Function