'アクティブセルにセルの表示形式を表示します。
Sub 表示形式を表示()
ActiveCell.Value = ActiveCell.NumberFormatLocal
End Sub
'アクティブセルに「#,##0」の表示形式を設定します。
Sub 表示形式を設定()
ActiveCell.NumberFormatLocal = "#,##0;-#,##0"
End Sub
'アクティブセルを赤色で塗りつぶします
Sub アクティブセルを塗りつぶす()
ActiveCell.Interior.ColorIndex = 3
End Sub
'アクティブセルを斜線チェッカーボードパターンの赤色で塗りつぶします
Sub アクティブセルをパターンで塗りつぶす()
With ActiveCell.Interior
.ColorIndex = 3
.Pattern = xlPatternChecker
End With
End Sub
'保護ロックがかかっていない場所だけを青色で塗りつぶす例です
Sub 特定の場所を塗りつぶす()
Dim C As Range
For Each C In ActiveSheet.UsedRange
If C.Locked = False Then C.Interior.ColorIndex = 5
Next C
End Sub