ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Bold part of formula results (https://www.excelbanter.com/excel-discussion-misc-queries/1921-bold-part-formula-results.html)

 Rita Palazzi December 15th 04 01:55 PM

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?

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

 Frank Kabel December 15th 04 01:58 PM

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?

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

 Gary Rowe December 15th 04 02:21 PM

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
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?

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

 Debra Dalgleish December 15th 04 07:02 PM

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
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?

Rita Palazzi
Senior Engineer / Global Trade Services
FecEx Express

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

 Ron Rosenfeld December 16th 04 07:51 PM

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?

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

 All times are GMT +1. The time now is 05:48 AM.