Checking whether a field is bold

isbold=true/false
*************************************
to be written in code for module
*************************************
You could use a UserDefined Function:

Option Explicit

Function isBold(rng As Range) As Variant

application.volatile

If rng(1).Font.Bold Then

isBold = True

ElseIf IsNull(rng(1).Font.Bold) Then

isBold = "Mixed"

Else

isBold = False

End If

End Function

Then you can use it in a worksheet cell like:

=isbold(a1)

or in your sample:

=if(isbold(a1)=true,a1+a2,a1-a2)

But be aware that changing the boldness of a cell is not something that causes

excel to recalculate. Hit alt-ctrl-F9 to force it recalc (before you trust the

results).

If you're new to macros, you may want to read David McRitchie's intro at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

Short course:

Open your workbook.

Hit alt-f11 to get to the VBE (where macros/UDF's live)

hit ctrl-R to view the project explorer

Find your workbook.

should look like: VBAProject (yourfilename.xls)

right click on the project name

Insert, then Module

You should see the code window pop up on the right hand side

Paste the code in there.

Now go back to excel.

and type your formula into a test cell.

"Craig & Co." wrote:

--

Dave Peterson


8/23/2005 11:54:23 AM Checking whether a field is bold.

Hi,

Looking for a command to do the following

=IF (TEXT(A1) IS BOLD,,)

Any ideas?

Trying to put together a Line of Credit calculator, where my pay days are

bolded, so

to work out a pay day compared to an interest day I need the function to

tell me if it's bold.

I believe I have already worked out the function if both the interest day

and pay day fall on the same day, just

need to work out if the date is bold or not.

Thank you in advance.

Craig.


8/23/2005 1:30:49 PM Re: Checking whether a field is bold.

That's exactly what I needed.

Will now use 'UserDefined' Functions for other things too.

Thank you for this valuable insight into the workings of Excel.

Cheers

Craig.

"Dave Peterson" wrote in message

news:430A8AC8.43422FBB@verizonXSPAM.net...

causes

trust the

are

day
********************************
http://www.s-anand.net/blog/user-defined-functions-to-get-cell-formatting/

http://www.mrexcel.com/forum/showthread.php?t=67450
*********************************
Function BgColour(r As Range) As Integer
Application.Volatile
BgColor = r.Interior.ColorIndex
End Function
Function isBold(r As Range) As Boolean
Application.Volatile
isBold = r.Font.Bold
End Function