19/02/15 02:00:19.18 6R3QhjK00.net
1回しか使わない変数を消した
これ以上の短縮は無理かな？
Function kanacaps(s1) As String
For i = 1 To Len(s1)
c = Asc(Mid(s1, i)) - 167
If 0 <= c And c < 9 Then Mid(s1, i) = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")(c)
Next
kanacaps = s1
End Function