VBA:Excel VBA :Tips:セルの書式設定
表示形式
数値:小数点 2桁
'******************************************** ' [セルの書式設定][保護] ' ロック 設定/解除 ' https://www.officepro.jp/excelvba/cell_numberformat/index2.html '******************************************** Private Sub btn_保護_Click() '//############################################ Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("TEST") '//############################################ Dim rng As Range Set rng = ws.Range("A1", "D3") rng.Select '------------------------ ' 削除 '------------------------ rng.Locked = False '------------------------ ' 確認 '------------------------ Dim vItem As Variant For Each vItem In rng Debug.Print vItem.Locked 'https://www.moug.net/tech/exvba/0050094.html Debug.Print vItem.Address(RowAbsolute:=False, ColumnAbsolute:=False) '相対参照 Next '------------------------ ' 設定 '------------------------ rng.Locked = True '//############################################ Set rng = Nothing Set ws = Nothing '//############################################ End Sub
配置
フォント
罫線
'******************************************** ' [セルの書式設定][罫線] ' '******************************************** Private Sub btn_セルの書式設定_罫線_Click() '//############################################ Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("TEST") '//############################################ Dim rng As Range Set rng = ws.Range("A2", "D3") rng.Select '------------------------ ' 罫線 '------------------------ ws.Cells.Borders.LineStyle = False rng.Borders.LineStyle = True rng.Borders.LineStyle = False '//############################################ Set rng = Nothing Set ws = Nothing '//############################################ End Sub
塗りつぶし
保護
ロック
'******************************************** ' [セルの書式設定][保護] ' ロック 設定/解除 '******************************************** Private Sub btn_保護_Click() '//############################################ Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("TEST") '//############################################ Dim rng As Range Set rng = ws.Range("A1", "D5") rng.Select '------------------------ ' 削除 '------------------------ rng.Locked = False '------------------------ ' 確認 '------------------------ Dim vItem As Variant For Each vItem In rng Debug.Print vItem.Locked 'https://www.moug.net/tech/exvba/0050094.html Debug.Print vItem.Address(RowAbsolute:=False, ColumnAbsolute:=False) '相対参照 Next '------------------------ ' 設定 '------------------------ rng.Locked = True '//############################################ Set rng = Nothing Set ws = Nothing '//############################################ End Sub