セルの書式編-エクセルのＶＢＡ集

---

セルの書式編

セルの表示形式を取得するには？

'アクティブセルにセルの表示形式を表示します。
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

ページトップ

---