VBA:小さい仮名（拗音・促音）を大きい仮名にする関数

05 Jun,2011 (Sun) 20:20

Function UpperSutegana(strOrg) As String
  Const cstLower = "ｧｨｩｪｫｯｬｭｮ"
  Const cstUpper = "ｱｲｳｴｵﾂﾔﾕﾖ"
  Dim strRet As String
  Dim intLoop As Integer
  Dim strChar As String
  Dim intChar As Integer
  strRet = ""
  For intLoop = 1 To Len(strOrg)
    strChar = Mid(strOrg, intLoop, 1)
    intChar = InStr(1, cstLower, strChar, vbBinaryCompare)
    If intChar > 0 Then
      strRet = strRet & Mid(cstUpper, intChar, 1)
    Else
      strRet = strRet & strChar
    End If
   Next intLoop
  UpperSutegana = strRet
End Function

🗂　 コード・コマンド

🏷 VBA