How to check for a bold text formating through (in) a formula?

[Dmitry Kopnichev]

Hello experts!
How to check for a bold text formatting through (in) a formula?

[Bob Phillips]

A simple UDF will do it

Function IsBold(rng As Range) As Boolean
Application.Volatile
IsBold = rng.Font.Bold
End Function

and use like

=IF(ISBold(A1),...)

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Dmitry Kopnichev" <[email protected]> wrote in message
news:[email protected]...
> Hello experts!
> How to check for a bold text formatting through (in) a formula?
>
>
>

[Dmitry Kopnichev]

Thanks Bob.
I opened Visual Basic Editor, clicked menu View, Code, and pasted the
Function IsBold(rng As Range) As Boolean
Application.Volatile
IsBold = rng.Font.Bold
End Function
Then clicked save.
The formula =ISBold(A1) gives #NAME? , where A1 is bold text. What is wrong?
"Bob Phillips" <[email protected]> сообщил/сообщила в
новостях следующее: news:[email protected]...
> A simple UDF will do it
>
> Function IsBold(rng As Range) As Boolean
> Application.Volatile
> IsBold = rng.Font.Bold
> End Function
>
> and use like
>
> =IF(ISBold(A1),...)
>
> --
>
> HTH
>
> Bob Phillips
>
> (remove nothere from the email address if mailing direct)
>
> "Dmitry Kopnichev" <[email protected]> wrote in message
> news:[email protected]...
> > Hello experts!
> > How to check for a bold text formatting through (in) a formula?
> >
> >
> >
>
>

[Dmitry Kopnichev]

Thanks. I know now.
"Dmitry Kopnichev" <[email protected]> сообщил/сообщила в новостях следующее:
news:%[email protected]...
> Thanks Bob.
> I opened Visual Basic Editor, clicked menu View, Code, and pasted the
> Function IsBold(rng As Range) As Boolean
> Application.Volatile
> IsBold = rng.Font.Bold
> End Function
> Then clicked save.
> The formula =ISBold(A1) gives #NAME? , where A1 is bold text. What is
wrong?
> "Bob Phillips" <[email protected]> сообщил/сообщила в
> новостях следующее: news:[email protected]...
> > A simple UDF will do it
> >
> > Function IsBold(rng As Range) As Boolean
> > Application.Volatile
> > IsBold = rng.Font.Bold
> > End Function
> >
> > and use like
> >
> > =IF(ISBold(A1),...)
> >
> > --
> >
> > HTH
> >
> > Bob Phillips
> >
> > (remove nothere from the email address if mailing direct)
> >
> > "Dmitry Kopnichev" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hello experts!
> > > How to check for a bold text formatting through (in) a formula?
> > >
> > >
> > >
> >
> >
>
>
>

[JMay]

Glad you got your answer.
Please Share - what was the problem before
you solved the it?


"Dmitry Kopnichev" <[email protected]> wrote in message
news:[email protected]...
> Thanks. I know now.
> "Dmitry Kopnichev" <[email protected]> сообщил/сообщила в новостях следующее:
> news:%[email protected]...
>> Thanks Bob.
>> I opened Visual Basic Editor, clicked menu View, Code, and pasted the
>> Function IsBold(rng As Range) As Boolean
>> Application.Volatile
>> IsBold = rng.Font.Bold
>> End Function
>> Then clicked save.
>> The formula =ISBold(A1) gives #NAME? , where A1 is bold text. What is
> wrong?
>> "Bob Phillips" <[email protected]> сообщил/сообщила в
>> новостях следующее: news:[email protected]...
>> > A simple UDF will do it
>> >
>> > Function IsBold(rng As Range) As Boolean
>> > Application.Volatile
>> > IsBold = rng.Font.Bold
>> > End Function
>> >
>> > and use like
>> >
>> > =IF(ISBold(A1),...)
>> >
>> > --
>> >
>> > HTH
>> >
>> > Bob Phillips
>> >
>> > (remove nothere from the email address if mailing direct)
>> >
>> > "Dmitry Kopnichev" <[email protected]> wrote in message
>> > news:[email protected]...
>> > > Hello experts!
>> > > How to check for a bold text formatting through (in) a formula?
>> > >
>> > >
>> > >
>> >
>> >
>>
>>
>>
>
>

[Dave Peterson]

One typical problem with UDFs is that they weren't placed in a General
module--sometimes, they're placed under a worksheet or under ThisWorkbook and
then the Name error is returned.


JMay wrote:
>
> Glad you got your answer.
> Please Share - what was the problem before
> you solved the it?
>
> "Dmitry Kopnichev" <[email protected]> wrote in message
> news:[email protected]...
> > Thanks. I know now.
> > "Dmitry Kopnichev" <[email protected]> сообщил/сообщила в новостях следующее:
> > news:%[email protected]...
> >> Thanks Bob.
> >> I opened Visual Basic Editor, clicked menu View, Code, and pasted the
> >> Function IsBold(rng As Range) As Boolean
> >> Application.Volatile
> >> IsBold = rng.Font.Bold
> >> End Function
> >> Then clicked save.
> >> The formula =ISBold(A1) gives #NAME? , where A1 is bold text. What is
> > wrong?
> >> "Bob Phillips" <[email protected]> сообщил/сообщила в
> >> новостях следующее: news:[email protected]...
> >> > A simple UDF will do it
> >> >
> >> > Function IsBold(rng As Range) As Boolean
> >> > Application.Volatile
> >> > IsBold = rng.Font.Bold
> >> > End Function
> >> >
> >> > and use like
> >> >
> >> > =IF(ISBold(A1),...)
> >> >
> >> > --
> >> >
> >> > HTH
> >> >
> >> > Bob Phillips
> >> >
> >> > (remove nothere from the email address if mailing direct)
> >> >
> >> > "Dmitry Kopnichev" <[email protected]> wrote in message
> >> > news:[email protected]...
> >> > > Hello experts!
> >> > > How to check for a bold text formatting through (in) a formula?
> >> > >
> >> > >
> >> > >
> >> >
> >> >
> >>
> >>
> >>
> >
> >

--

Dave Peterson

[Dmitry Kopnichev]

Yes, Dave Peterson is right.
"Dave Peterson" <[email protected]> ???????/???????? ? ????????
?????????: news:[email protected]...
> One typical problem with UDFs is that they weren't placed in a General
> module--sometimes, they're placed under a worksheet or under ThisWorkbook
and
> then the Name error is returned.
>
>
> JMay wrote:
> >
> > Glad you got your answer.
> > Please Share - what was the problem before
> > you solved the it?
> >
> > "Dmitry Kopnichev" <[email protected]> wrote in message
> > news:[email protected]...
> > > Thanks. I know now.
> > > "Dmitry Kopnichev" <[email protected]> сообщил/сообщила в новостях
следующее:
> > > news:%[email protected]...
> > >> Thanks Bob.
> > >> I opened Visual Basic Editor, clicked menu View, Code, and pasted the
> > >> Function IsBold(rng As Range) As Boolean
> > >> Application.Volatile
> > >> IsBold = rng.Font.Bold
> > >> End Function
> > >> Then clicked save.
> > >> The formula =ISBold(A1) gives #NAME? , where A1 is bold text. What is
> > > wrong?
> > >> "Bob Phillips" <[email protected]> сообщил/сообщила в
> > >> новостях следующее: news:[email protected]...
> > >> > A simple UDF will do it
> > >> >
> > >> > Function IsBold(rng As Range) As Boolean
> > >> > Application.Volatile
> > >> > IsBold = rng.Font.Bold
> > >> > End Function
> > >> >
> > >> > and use like
> > >> >
> > >> > =IF(ISBold(A1),...)
> > >> >
> > >> > --
> > >> >
> > >> > HTH
> > >> >
> > >> > Bob Phillips
> > >> >
> > >> > (remove nothere from the email address if mailing direct)
> > >> >
> > >> > "Dmitry Kopnichev" <[email protected]> wrote in message
> > >> > news:[email protected]...
> > >> > > Hello experts!
> > >> > > How to check for a bold text formatting through (in) a formula?
> > >> > >
> > >> > >
> > >> > >
> > >> >
> > >> >
> > >>
> > >>
> > >>
> > >
> > >
>
> --
>
> Dave Peterson