Point :小文字を大文字に・大文字を小文字に変換したい。
Sub Test()
Dim strMoji
strMoji = "abcd"
MsgBox "『" & strMoji & "』を大文字に変換します。"
strMoji = StrConv(strMoji, vbUpperCase)
'大文字に変換
MsgBox "『" & strMoji & "』"
MsgBox "今度は、『" & strMoji & "』を小文字に変換します。"
strMoji = StrConv(strMoji, vbLowerCase)
'小文字に変換
MsgBox "『" & strMoji & "』"
End Sub
|