Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Test Excel cell formula/number
- Thread starter jozino01
- Start date
SkipVought
Programmer
Hi,
with CellObject
if .Formula = .value then
msgbox "NOT a fornula"
else
msgbox "IS a fornula"
end if
end with
Skip,
Skip@TheOfficeExperts.com
with CellObject
if .Formula = .value then
msgbox "NOT a fornula"
else
msgbox "IS a fornula"
end if
end with
Skip,
Skip@TheOfficeExperts.com
- Thread starter
- #3
Nice, Skip. I was gonna suggest:
but I think yours is a bit better.
VBAjedi![[swords]](/data/assets/smilies/swords.gif "[swords] [swords]")
Code:
Select Case Left(CellObject.Formula, 1)
Case "=", "+", "-"
' Is a formula - do whatever here
Case Else
' Not a formula
End SelectVBAjedi
- Status
Similar threads
- Locked
- Helpful tip
- Locked
- Solved
- Locked
- Question
- Locked
- Question
