Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Detect UPPERCASE in cell value?
Fellow programmers... below is some code I tried to create to detect
if the contents of the ActiveCell.Value was all UPPERCASE. The spreadsheet is importing data and if a cell's value is all updercase it means something specific with the data that being imported. Any ideas as to how to make a TRUE & FALSE statement based on the characters being all uppdercase? Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" _ (ByVal cChar As Byte) As Long Sub Button22221_Click() If IsCharUpper(ActiveCell.Value) = True Then MsgBox "It is bitch.", vbOKOnly, "-Test-" End If If IsCharUpper(ActiveCell.Value) = False Then MsgBox "It's not uppercase.", vbOKOnly, "-Test 2-" End If End Sub Thanks in advance! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
If Cell Contains specific UPPERCASE text | Excel Worksheet Functions | |||
Change cell range to Uppercase | Excel Programming | |||
How to start every word in a cell uppercase? | Excel Discussion (Misc queries) | |||
Format cell to uppercase using code | Excel Programming | |||
VBA Auto Cell Formatting Uppercase | Excel Programming |