In VBA, check if first letter is capitalized (urgent)

[Laavista]

In VBA, I need to check if the first letter of a character string in capitalized.
(I do NOT want to change its case, though)

e.g.,
var1 = "task"
Is the t capitalized?

I found the string function "exact()" and the information on it indicated that the string funciton is case-sensitive, so it can be used to test if the ltter cases are identical to the proper-case version of the string. Their example was checking cell A1.
=EXACT(A1,Proper(A1))

I tried:
If exact(var1,PROPER(var1)) ' this did not work

tried:
dim checkfirstchar as string
Checkfirstchar = exact(A1,Proper(A1)) " (function not defined)

Tried
dim checkfirstchar as string
If Checkfirstchar(exact(A1,Proper(A1))) then " (function not defined)
msgbox "if true, then capitalized)
end if

Your help would be so appreciated. I need this info urgently.

 

[Trebor76]

Hi Laavista,

Here's one way:

Sub UpperCaseCheck()

    Dim intASCII As Integer
    
    intASCII = Asc(Left(Range("A1").Value, 1))
    
    Select Case intASCII
        Case 65 To 90 'ASCII Code for A to Z
            MsgBox "First alpha character is capitalised"
        Case Else
            MsgBox "First alpha character is not capitalised"
    End Select

End Sub

HTH

Robert

 

[jim may]

Sub testCap()
Dim var1 As String
var1 = "task"
If Left(var1, 1) = LCase(Left(var1, 1)) Then
MsgBox "var1 is in lowercase"
End If
End Sub

 

[xenou]

In VBA maybe something like:

x = "something"
If UCase(Left(x,1)) = Left(x,1) Then
    Msgbox "Capital Letter"
Else
    Msgbox "Lowercase Letter"
End if

Treated as a function:

Function IsFirstLetterCapital(byVal Arg as String) As Boolean
    If Left(arg,1) = UCase(Left(arg,1)) Then
        IsFirstLetterCapital = True
    Else
        IsFirstLetterCapital = False
End If

Edit: aw shucks. Only third place tonight ...

 

[JoeMo]

In VBA, I need to check if the first letter of a character string in capitalized.
(I do NOT want to change its case, though)

e.g.,
var1 = "task"
Is the t capitalized?

I found the string function "exact()" and the information on it indicated that the string funciton is case-sensitive, so it can be used to test if the ltter cases are identical to the proper-case version of the string. Their example was checking cell A1.
=EXACT(A1,Proper(A1))

I tried:
If exact(var1,PROPER(var1)) ' this did not work

tried:
dim checkfirstchar as string
Checkfirstchar = exact(A1,Proper(A1)) " (function not defined)

Tried
dim checkfirstchar as string
If Checkfirstchar(exact(A1,Proper(A1))) then " (function not defined)
msgbox "if true, then capitalized)
end if

Your help would be so appreciated. I need this info urgently.

Here's some simple code that you can adapt:

Sub test()
var1 = "task"
If UCase(Left(var1, 1)) = Left(var1, 1) Then
 MsgBox "First letter capitalized"
Else
MsgBox "First letter not capitalized"
End If

End Sub

The key is to compare UCase of the first letter of the string to the first letter of the string.

 

[Laavista]

You all are AMAZING.

Thank you so much for taking the time to respond so quickly!! I will test these options.

Thanks again!!!

 

[hiker95]

Laavista,


Try:

Option Explicit
Sub CheckFirstChar()
' hiker95, 06/29/2010, http://www.mrexcel.com/forum/showthread.php?t=477948
Dim MyString As String

MyString = "this is a test"
If Asc(Left(MyString, 1)) > 64 And Asc(Left(MyString, 1)) < 91 Then
  MsgBox "The first letter of '" & MyString & "' is capitalized."
Else
  MsgBox "The first letter of '" & MyString & "' is NOT capitalized."
End If

End Sub

 

[Scott Huish]

Function IsFirstLetterCapital(r As String) As Boolean
IsFirstLetterCapital = (Left(r, 1) = UCase(Left(r, 1)))
End Function

 

[Laavista]

solved

I want to thank each of you. I actually tried all the suggestions, and they all worked.

THANK YOU for taking the time to respond to this question. I was able to complete my project because of you.

THANKS.