Bold part of formula results
 

Windows XP Professional
Office 2000

I have a formula that produces a sentence based on the value of a cell:

=IF(H18=0,CONCATENATE("Shpt Volume Increased ",TEXT(H18,".0%"),"
Y-O-Y"),CONCATENATE("Shpt Volume Decreased ",(TEXT(-H18,".0%"))," Y-O-Y"))


I want the word "Increased" or the word "Decreased" to be bold in the
resultant cell. Does anyone know the correct way to achieve this?

Thanks in advance for any help you may provide!

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

Hi
this is not possible with formulas

--
Regards
Frank Kabel
Frankfurt, Germany

Rita Palazzi wrote:
Windows XP Professional
Office 2000

I have a formula that produces a sentence based on the value of a
cell:
=IF(H18=0,CONCATENATE("Shpt Volume Increased ",TEXT(H18,".0%"),"
Y-O-Y"),CONCATENATE("Shpt Volume Decreased ",(TEXT(-H18,".0%")),"
Y-O-Y"))

I want the word "Increased" or the word "Decreased" to be bold in the
resultant cell. Does anyone know the correct way to achieve this?

Thanks in advance for any help you may provide!

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

Try putting "Shpt Volume Increased" and "Shpt Volume Decreased" in separate
cells, say A1, A2, bold the Increased and Decreased words and then refer to
them in your formula: =IF(H18=0,CONCATENATE($A$1,TEXT(H18,".0%"),"
Y-O-Y"),CONCATENATE($A$2,(TEXT(-H18,".0%"))," Y-O-Y"))


"Rita Palazzi" wrote:

Windows XP Professional
Office 2000

I have a formula that produces a sentence based on the value of a cell:

=IF(H18=0,CONCATENATE("Shpt Volume Increased ",TEXT(H18,".0%"),"
Y-O-Y"),CONCATENATE("Shpt Volume Decreased ",(TEXT(-H18,".0%"))," Y-O-Y"))


I want the word "Increased" or the word "Decreased" to be bold in the
resultant cell. Does anyone know the correct way to achieve this?

Thanks in advance for any help you may provide!

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

You can't format part of a formula result.

Perhaps you could use conditional formatting instead. For example, if
the formula is in cell D5:

Select cell D5
Choose FormatConditional Formatting
From the first dropdown, choose Formula Is
In the formula box, type: =ISNUMBER(SEARCH("increase",D5))
Click the Format button
On the Font tab, select a font colour and style, e.g. Green, Bold
Click OK, click Add
For the second condition, use the formula:
=ISNUMBER(SEARCH("decrease",D5))
and use a different font colour.


Rita Palazzi wrote:
Windows XP Professional
Office 2000

I have a formula that produces a sentence based on the value of a cell:

=IF(H18=0,CONCATENATE("Shpt Volume Increased ",TEXT(H18,".0%"),"
Y-O-Y"),CONCATENATE("Shpt Volume Decreased ",(TEXT(-H18,".0%"))," Y-O-Y"))


I want the word "Increased" or the word "Decreased" to be bold in the
resultant cell. Does anyone know the correct way to achieve this?

Thanks in advance for any help you may provide!

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html

On Wed, 15 Dec 2004 07:55:41 -0600, Rita Palazzi wrote:

Windows XP Professional
Office 2000

I have a formula that produces a sentence based on the value of a cell:

=IF(H18=0,CONCATENATE("Shpt Volume Increased ",TEXT(H18,".0%"),"
Y-O-Y"),CONCATENATE("Shpt Volume Decreased ",(TEXT(-H18,".0%"))," Y-O-Y"))


I want the word "Increased" or the word "Decreased" to be bold in the
resultant cell. Does anyone know the correct way to achieve this?

Thanks in advance for any help you may provide!

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

You need to use VBA to accomplish this.

Depending on your setup, you would probable execute this formula in a VB
worksheet change module. The output from the VB macro would be a string which
would go into the cell. When there is just a string in a cell, and not a
formula, a portion of that string can be bolded.

Here is an example that might get you started. To enter it, right-click on the
worksheet tab, then paste the code below into the window that opens. If you
enter something in H18, you will see the result, with the one word bolded, in
H1.

========================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Chg As Range
Dim res As String 'Result will be stored here

Set c = [H1] 'This is where the result will be
Set Chg = [H18] 'Cell to be tested

If Intersect(Target, Chg) Is Nothing Then Exit Sub

res = "Shpt Volume "
Select Case Chg
Case Is 0
res = res & "Increased "
Case Is < 0
res = res & "Decreased "
Case Else
res = res & "Unchanged "
End Select

res = res & Application.WorksheetFunction.Text(Chg, ".0%;.0%;;") & " Y-O-Y"

With c
.Value = res
.Characters(13, 9).Font.Bold = True
End With
===========================

--ron