'大文字や小文字への変換
Debug.Print StrConv("a", vbUpperCase) '大文字へ変換
Debug.Print StrConv("A", vbLowerCase) '小文字へ変換
Dim A
A = "abc-def" '全角と半角の小文字
'全角の小文字のみを大文字に変換
For i = 1 To Len(A)
If Mid(A, i, 1) Like "[a-z]" Then
Mid(A, i, 1) = StrConv(Mid(A, i, 1), vbUpperCase)
End If
Next
Debug.Print A
'半角の小文字のみを大文字に変換
For i = 1 To Len(A)
If Mid(A, i, 1) Like "[a-z]" Then
Mid(A, i, 1) = StrConv(Mid(A, i, 1), vbUpperCase)
End If
Next
Debug.Print A
Dim A
A = "ABC-DEF" '全角と半角の大文字
'全角の大文字のみを小文字に変換
For i = 1 To Len(A)
If Mid(A, i, 1) Like "[A-Z]" Then
Mid(A, i, 1) = StrConv(Mid(A, i, 1), vbLowerCase)
End If
Next
Debug.Print A
'半角の大文字のみを小文字に変換
For i = 1 To Len(A)
If Mid(A, i, 1) Like "[A-Z]" Then
Mid(A, i, 1) = StrConv(Mid(A, i, 1), vbLowerCase)
End If
Next
Debug.Print A
'大文字と小文字を区別しないで比較
A = StrConv("ABC", vbUpperCase)
B = StrConv("abc", vbUpperCase)
Debug.Print A = B
'全角と半角、大文字と小文字を区別しないで比較
A = StrConv(StrConv("ABC", vbWide), vbUpperCase)
B = StrConv(StrConv("abc", vbWide), vbUpperCase)
Debug.Print A = B
'全角と半角、大文字と小文字を区別しないで比較
Debug.Print StrComp("ABC", "abc", vbTextCompare) = 0
'大文字と小文字を区別しないで検索
A = StrConv("ABC", vbUpperCase)
B = StrConv("a", vbUpperCase)
Debug.Print InStr(A, B) > 0
'全角と半角、大文字と小文字を区別しないで検索
A = StrConv(StrConv("ABC", vbWide), vbUpperCase)
B = StrConv(StrConv("a", vbWide), vbUpperCase)
Debug.Print InStr(A, B) > 0
'全角と半角、大文字と小文字を区別しないで検索
Debug.Print InStr(1, "ABC", "a", vbTextCompare) > 0
'大文字の判定
A = "A" '大文字
Debug.Print A <> StrConv(A, vbLowerCase)
'小文字の判定
A = "a" '小文字
Debug.Print A <> StrConv(A, vbUpperCase)