【VBA】セルに対する処理

Excel,VBA

VBAのセルに対する処理です。

記載内容 ①値へ変換
②文字色の変更

①値へ変換する

指定したセルの範囲(A1:B3)を 値のみ に変換します。

Sub ChangeToValue()

    With Worksheets("Sheet1").Range("A1:B3")
        .Value = .Value
    End With

End Sub

②文字色を変更する

指定したセルの文字色を変更します。
A1が黒、B1が赤 に変更されます。

Sub FontColor()

    ' 自動(黒)に変更する
    Cells(1, 1).Select
    With Selection.Font
        .ColorIndex = xlAutomatic
    End With

    ' 赤に変更する
    Cells(1, 2).Select
    With Selection.Font
        .ColorIndex = 3
    End With

End Sub

Excel,VBA

Posted by junichi