Providing Dynamic Scaling to Your Worksheets : Range Format « Excel « VBA / Excel / Access / Word






Providing Dynamic Scaling to Your Worksheets

 
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = Me.Range("ScaleFactor").Address Then 
        ScaleData 
    End If 
End Sub 
Private Sub ScaleData() 
    If Me.Range("ScaleFactor").Value = "Normal" Then 
        Me.Range("ScaleRange").NumberFormat = "#,##0" 
    Else 
        Me.Range("ScaleRange").NumberFormat = "#," 
    End If 
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.Strolling Through the Color Palette
15.Line style: xlContinuous
16.Line style: xlDash
17.Line style: xlDashDot
18.Line style: xlDashDotDot
19.Line style: xlDot
20.Line style: xlDouble
21.Line style: xlLineStyleNone
22.Line style: xlSlantDashDot
23.Using the Interior Object to Alter the Background of a Range
24.Set the underline, color and font name
25.Make column headings bold
26.Add & format totals
27.Format date on report
28.Widen first column to display text
29.Make text in first column bold