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

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

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" <kopn@bk.ruDelete> wrote in message
news:ugy0E$ZIGHA.2896@TK2MSFTNGP09.phx.gbl...
> Hello experts!
> How to check for a bold text formatting through (in) a formula?
>
>
>

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" <bob.phillips@notheretiscali.co.uk> сообщил/сообщила в
новостях следующее: news:OiXSqPaIGHA.916@TK2MSFTNGP10.phx.gbl...
> 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" <kopn@bk.ruDelete> wrote in message
> news:ugy0E$ZIGHA.2896@TK2MSFTNGP09.phx.gbl...
> > Hello experts!
> > How to check for a bold text formatting through (in) a formula?
> >
> >
> >
>
>

Thanks. I know now.
"Dmitry Kopnichev" <kopn@bk.ruDelete> сообщил/сообщила в новостях следующее:
news:%23aZlhjaIGHA.2472@TK2MSFTNGP10.phx.gbl...
> 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" <bob.phillips@notheretiscali.co.uk> сообщил/сообщила в
> новостях следующее: news:OiXSqPaIGHA.916@TK2MSFTNGP10.phx.gbl...
> > 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" <kopn@bk.ruDelete> wrote in message
> > news:ugy0E$ZIGHA.2896@TK2MSFTNGP09.phx.gbl...
> > > Hello experts!
> > > How to check for a bold text formatting through (in) a formula?
> > >
> > >
> > >
> >
> >
>
>
>

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


"Dmitry Kopnichev" <kopn@bk.ruDelete> wrote in message
news:eP$zImaIGHA.3856@TK2MSFTNGP12.phx.gbl...
> Thanks. I know now.
> "Dmitry Kopnichev" <kopn@bk.ruDelete> сообщил/сообщила в новостях следующее:
> news:%23aZlhjaIGHA.2472@TK2MSFTNGP10.phx.gbl...
>> 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" <bob.phillips@notheretiscali.co.uk> сообщил/сообщила в
>> новостях следующее: news:OiXSqPaIGHA.916@TK2MSFTNGP10.phx.gbl...
>> > 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" <kopn@bk.ruDelete> wrote in message
>> > news:ugy0E$ZIGHA.2896@TK2MSFTNGP09.phx.gbl...
>> > > Hello experts!
>> > > How to check for a bold text formatting through (in) a formula?
>> > >
>> > >
>> > >
>> >
>> >
>>
>>
>>
>
>

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" <kopn@bk.ruDelete> wrote in message
> news:eP$zImaIGHA.3856@TK2MSFTNGP12.phx.gbl...
> > Thanks. I know now.
> > "Dmitry Kopnichev" <kopn@bk.ruDelete> сообщил/сообщила в новостях следующее:
> > news:%23aZlhjaIGHA.2472@TK2MSFTNGP10.phx.gbl...
> >> 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" <bob.phillips@notheretiscali.co.uk> сообщил/сообщила в
> >> новостях следующее: news:OiXSqPaIGHA.916@TK2MSFTNGP10.phx.gbl...
> >> > 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" <kopn@bk.ruDelete> wrote in message
> >> > news:ugy0E$ZIGHA.2896@TK2MSFTNGP09.phx.gbl...
> >> > > Hello experts!
> >> > > How to check for a bold text formatting through (in) a formula?
> >> > >
> >> > >
> >> > >
> >> >
> >> >
> >>
> >>
> >>
> >
> >

--

Dave Peterson