Cell Format Include a Footnote

[rompetelo]

Hi team,

I was wondering if there was a way to format a cell in excel so that it has a footnote. The objective is to mantain the value of the cell dynamic (i'ts being picked up with a formula).

Any ideas?

For example it would be
A1 5
A2 3
A3 =A1+A2

Display 8[FONT=&quot]1[/FONT]

Thank you

Daniel

 

[Yongle]

Yes - using Custom Format

Right click on cell
... Format Cells
... Number Format
... Custom Format
... Select (or create) the format for the number element and append "footnote" inside quote marks

eg
General"footnote"
0"footnote"

using your example both of these should do the job
General"1"
0"1"

Link to short video https://www.youtube.com/watch?v=yDytjTrRxA8

 

[rompetelo]

Thanks a lot for the quick reply and for having a look at it.

Sorry I don't think I was very clear - I would need my footnote text to be superscript to the value in the cell.

Let me know if you have any idea.

Thank you

Daniel

 

[Yongle]

Sorry I don't think I was very clear

agreed

I would need my footnote text to be superscript to the value in the cell

Superscript option is not available within custom format but see workaround
https://excel.tips.net/T001946_Superscripts_in_Custom_Formats.html

 

[rompetelo]

Thanks a lot for sending over that link - I've checked it however it doesnt seem to work for what I am after given that the cell I am trying to modify is a formula and this only changes the cell content.

Do you know any other way?

Thanks a lot for taking the time to look into this!

 

[Yongle]

You could place a shape over the cell (so the user sees the shape not the cell)
- then use VBA to update the text in the shape and apply superscipt and colour red to the last character with code like this

With ActiveSheet.Shapes("Name of Shape").TextFrame
   .Characters.Text = [A3] & " 1"
   .Characters(.Characters.Count, 1).Font.Superscript = True
   .Characters(.Characters.Count, 1).Font.Color = vbRed
End With

 

[Yongle]

or use a small shape containing only one character, and place the shape (with no line and no fill) somewhere over the cell so that the cell contents are still visible

    With ActiveSheet.Shapes("Rectangle 2").TextFrame.Characters
        .Text = "1"
        .Font.Superscript = True
        .Font.Color = vbRed
    End With

 

[RoryA]

Thanks a lot for sending over that link - I've checked it however it doesnt seem to work for what I am after given that the cell I am trying to modify is a formula and this only changes the cell content.

I don't understand this comment. The format applies to the returned value so in your example it would show the formula result with a superscript 1 after it.

 

[rompetelo]

You are absolutely right - I tried again and it now works! Thank you

 

[rompetelo]

Thanks a lot you have saved me a lot of time!