VBA 대문자인지 체크하기 또는 소문자인지 체크하기

가끔 엑셀에서 자료를 입력할 때 반드시 대문자 이어야 하거나

대문자만 입력해야 하는 경우가 있습니다.

이럴 때 VBA에서 직접 FOR문을 통해 강제로 대문자로 바꾸어 줄 수는 있지만

사용자에게 알려주어야 할 때도 있어서 이런 글을 올리게 되었습니다.

​

---

코드는 간단 합니다.

체크해야 할 문자를 Ucase 함수로 씌워 Check 하면 됩니다.

Check해야 할 Letter를 Uppercase하여 원래의 letter와 비교하여 일치 한다면 Uppercase 인것이고.

Check해야 할 Letter를 Lowercase하여 원래의 letter와 비교하여 일치 한다면 Lowercase 일테니까요.

Sub test2()     Dim str1 As String     str1 = "Dss"     If str1 = UCase(str1) Then         MsgBox str1 & "은(는) 대문자 입니다.", , "악마성"     Else         MsgBox str1 & "은(는) 대문자가 아닙니다.", , "악마성"     End if End Sub

If str1 = UCase(str1) Then str1 은 : "Dss" Ucase(str1)은 : "DSS" 대문자화 시킨 Ucase(str1)은 "DSS" 이므로 체크할 대상이 대문자가 아니면 같을 수 가 없는 것이죠.

+ 추가

소문자인지 체크할 때도 마찬가지로 사용을 하면 됩니다.

소문자화 시켜주는 함수인 Lcase를 이용하면 됩니다.

Sub test2()     Dim str1 As String     str1 = "Dss"     If str1 = LCase(str1) Then         MsgBox str1 & "은(는) 소문자 입니다.", , "악마성"     Else         MsgBox str1 & "은(는) 소문자가 아닙니다.", , "악마성"     End If End Sub

​

​

​

참고자료.

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/ucase-function

 

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/lcase-function

​

#vba

#vba대문자체크

#vba대문자인지?

#vba소문자인지?

#vba소문자인지체크

#vba소문자체크