Add & format totals : Range Format « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Range Format

Add & format totals

 
Sub RigidFormattingProcedure() 
    ActiveSheet.Range("N7:N15").Formula = "=SUM(RC[-12]:RC[-1])" 
    ActiveSheet.Range("N7:N15").Font.Bold = True 
    ActiveSheet.Range("B16:N16").Formula = "=SUM(R[-9]C:R[-1]C)" 
    ActiveSheet.Range("B16:N16").Font.Bold = True 
End Sub
    ' Format data range 
Sub RigidFormattingProcedure() 
    ActiveSheet.Range("B7:N16").NumberFormat = "#,##0" 
End Sub








Related examples in the same category

1.Format current region
2.The Font property
3.Use the Range and Cells properties of the Worksheet object to return a Range object.
4.Sets to True the Bold property of the Font object contained in the Range object
5.The Interior property:changes the Color property of the Interior object contained in the Range object:
6.Specify colors with VBA's RGB function.
7.Formatting Range: HorizontalAlignment, VerticalAlignment, MergeCells
8.Formatting Range: Font
9.Changes font to bold
10.Changes color of numbers < 100
11.Set the color for whole range
12.Change range border style
13.Change range border color
14.Providing Dynamic Scaling to Your Worksheets
15.Strolling Through the Color Palette
16.Line style: xlContinuous
17.Line style: xlDash
18.Line style: xlDashDot
19.Line style: xlDashDotDot
20.Line style: xlDot
21.Line style: xlDouble
22.Line style: xlLineStyleNone
23.Line style: xlSlantDashDot
24.Using the Interior Object to Alter the Background of a Range
25.Set the underline, color and font name
26.Make column headings bold
27.Format date on report
28.Widen first column to display text
29.Make text in first column bold