I need to know when the input data contains the prefixed single quote to
force the data to be treated like text.

I am showing SQL table data that contains scripting commands. The presence
of a single tick indicates that this script command is a comment. I want to
process through my script commands and turn the font to green when the script
command being displayed in a cell is a comment.

How do I detect the presence of a prefixed single quote in a cell from VBA?
Left$(cell.value, 1) = "'" is never true because excel strips this
character from the value (although it is still shown in the formula bar)
Neither does the cell.formula show the prefixed single quote (this seems
like it should though)

Is my only option to process the SQL-recordset field to look for the single
quote? I'm hoping that excel's object model has some way to detect the
forcing of a cells value to text.

--
Regards,
John

Sub apostest()
MsgBox (Range("A1").PrefixCharacter)
End Sub

--
Gary''s Student - gsnu200736


"John Keith" wrote:

> I need to know when the input data contains the prefixed single quote to
> force the data to be treated like text.
>
> I am showing SQL table data that contains scripting commands. The presence
> of a single tick indicates that this script command is a comment. I want to
> process through my script commands and turn the font to green when the script
> command being displayed in a cell is a comment.
>
> How do I detect the presence of a prefixed single quote in a cell from VBA?
> Left$(cell.value, 1) = "'" is never true because excel strips this
> character from the value (although it is still shown in the formula bar)
> Neither does the cell.formula show the prefixed single quote (this seems
> like it should though)
>
> Is my only option to process the SQL-recordset field to look for the single
> quote? I'm hoping that excel's object model has some way to detect the
> forcing of a cells value to text.
>
> --
> Regards,
> John

Exactly what I needed, Gary would be proud.

Thanks!

--
Regards,
John


"Gary''s Student" wrote:

> Sub apostest()
> MsgBox (Range("A1").PrefixCharacter)
> End Sub
>
> --
> Gary''s Student - gsnu200736
>
>
> "John Keith" wrote:
>
> > I need to know when the input data contains the prefixed single quote to
> > force the data to be treated like text.
> >
> > I am showing SQL table data that contains scripting commands. The presence
> > of a single tick indicates that this script command is a comment. I want to
> > process through my script commands and turn the font to green when the script
> > command being displayed in a cell is a comment.
> >
> > How do I detect the presence of a prefixed single quote in a cell from VBA?
> > Left$(cell.value, 1) = "'" is never true because excel strips this
> > character from the value (although it is still shown in the formula bar)
> > Neither does the cell.formula show the prefixed single quote (this seems
> > like it should though)
> >
> > Is my only option to process the SQL-recordset field to look for the single
> > quote? I'm hoping that excel's object model has some way to detect the
> > forcing of a cells value to text.
> >
> > --
> > Regards,
> > John

> "Gary''s Student" wrote:
>
>> Sub apostest()
>> MsgBox (Range("A1").PrefixCharacter)
>> End Sub
>
> Exactly what I needed, Gary would be proud.

Well, Gary might be proud except, perhaps, for those extraneous parentheses
around the MsgBox argument.<g>

Rick