Analyze Formatting?

[Macropheliac]

Hello,
This may be impossible, but I thought I'd ask.
Is it possible to return the formatting of a cell in text or code?

 

[PA HS Teacher]

I've not had the time to play around with this, but I thought it looked really useful, so I book marked it.

http://www.mrexcel.com/board2/viewtopic.php?t=21312

(and I'm running Excel 2000 at home, so I've been shy about trying it)

 

[Juan Pablo González]

What format ? the number format ?

MsgBox Range("A1").NumberFormat

the background color ?

MsgBox Range("A1").Interior.ColorIndex

font ?

MsgBox Range("A1").Font.Name

 

[Macropheliac]

Thanks Juan.

This is exactly what I needed.

Thanks to you, as well, PA HS Teacher.
I find this link very helpful.

Once again, thanks to you both.

 

[malik641]

I was going to suggest this:

Sub GetFormat()
Dim msg As String

msg = vbNullString

    With Selection
        msg = "Number Format = " & .NumberFormat & vbCrLf
        msg = msg & "Horizontal Alignment = " & .HorizontalAlignment & vbCrLf
        msg = msg & "Vertical Alignment = " & .VerticalAlignment & vbCrLf
        msg = msg & "Wrap Text = " & .WrapText & vbCrLf
        msg = msg & "Orientation = " & .Orientation = 0 & vbCrLf
        msg = msg & "Add Indent = " & .AddIndent & vbCrLf
        msg = msg & "Indent Level = " & .IndentLevel & vbCrLf
        msg = msg & "Shrink to fit = " & .ShrinkToFit & vbCrLf
        msg = msg & "Reading Order = " & .ReadingOrder & vbCrLf
        msg = msg & "Merge Cells = " & .MergeCells
    End With
    
    MsgBox msg
End Sub

But after seeing PA HS Teacher's response I'm very surprised there was code to do all of that!

Good stuff PA HS Teacher!