【VBA】セルに対する処理

VBA

セルに対する処理

値へ変換する

指定したセルの範囲（A1:B3）を値のみに変換する

Sub ChangeToValue()

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

End Sub

文字色の変更

指定したセルの文字色を変更する

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

最終行数の取得

使用済みセルの最終行数を取得する

Sub test()

    Dim numOfLastRow

    Call getNumOfLastRow(numOfLastRow)

    MsgBox (numOfLastRow)

End Sub

Function getNumOfLastRow(numOfLastRow)

    Dim r As Range
    Set r = ActiveSheet.usedRange

    Dim usedRange As Range
    Set usedRange = Rows(r.Row + r.Rows.Count - 1)
    numOfLastRow = usedRange.Row

End Function

VBA

Posted by junichi