プログラミングのメモ

プログラミングの学び直し備忘録

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