How to format cells via VBScript code?

MDesigner · #1 (**permalink**) 02-06-04, 13:17

I'm trying desperately to find out how to change the formatting of Excel cells via VBScript code... set the alignment, font color, things like that.

I've spent a good hour on Google and MSDN library, no luck. Help!

Smitty · #2 (**permalink**) 02-06-04, 22:18

Try the Macro Recorder!

You'll be amazed what that'll produce...

I.E.

Code:

Sub FormatMe()

    Cells.Select ' Bad Smitty - Don't Select unless you have to...

        With Selection
            .NumberFormat = "$#,##0_);[Red]($#,##0)"
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .ShrinkToFit = False
            .MergeCells = False
            .RowHeight = 17.5
            .ColumnWidth = 12.5
        End With

End Sub

Hope that helps,

Smitty

Smitty · #3 (**permalink**) 02-06-04, 22:20

With a bit of editing of course...

Smitty

MDesigner · #4 (**permalink**) 02-06-04, 22:25

Thanks!

I actually found another solution which is easier.. just define styles in the Excel sheet, and then do this to set them:

Worksheets("blah").Range("A10").Style = "ThisStyle"

Internet Services

Web Development

Digital Marketing

Consumer Tech