しなやか暮らし研究所パソコン処理 Excelの自動化セルの操作

メニューを消す

セルの操作

プログラムコーディングの中で必ず必要になる事の一つがセルの操作です。
このセルの操作では処理で必要になるデータを補完するセルの位置を指定しなければなりません。
手作業でExcelを使い計算処理を指定している時に、あるセルを選択すると、式の中にB5とかF10などと表示されます。これはそれそれB列5行、F列10行を表していますが、これと同じように、列名と行番号の組み合わせを文字型の値としてダブルクォーテーションで囲って記述する事がVBAの中でも可能です。
この他、VBAではループ処理の中でセルの位置を1列づつ移動したり、行の位置を順々に変えるために、I行、F列とセルの位置を整数で扱い(ダブルクォーテーションなしに記述することが出来ます。
さらにセルの位置が事前に決まらないあるセルを基準に1行上、1列前を表すために

R[-N]やC[-N]

という記述も出来ます。

一つのセルの指定

Cells(行番号,列番号).???           Cells(3,4).???
Range("セル名").???                Cells("D3").???

セルの範囲の指定

Range("セル名:セル名").???         Range("B5:J10").???
Range(Cells(行番号1, 列番号1), Cells(行番号2, 列番号2)).???
                                   Range(Cells(5, 2), Cells(10, 10)).???

セル領域のクリア

Range(Cells(1,2),Cells(3,4)).Clear

セルのコピー

Sheets(1).Range("B3:G7").Copy Sheets(2).Range("B3")

Sheets(1).Select
Range("B3:G7").Select
Selection.Copy
Sheets(2).Range("B3:G7").Paste
Application.CutCopyMode = False

セルの式指定
A1形式とR1C1形式

Range("D5").Select
ActiveCell.Formula = "=SUM(C1:C4)"

Range("C5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

Cells(68, 10).Select
ActiveCell.FormulaR1C1 = "=R[-6]C-R[-4]C-R[-2]C"

アクティブセルの位置記憶

InputRow = ActiveCell.Row
InputColumn = ActiveCell.Column

指定セルへのカーソル移動

Cells(InputRow, InputColumn).Select

セルの結合

Range("B3:C4").Select
With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
End With

セルの結合解除

Range(Cells(1, 1), Cells(3, 108)).Select
Range("A2").Activate
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
End With

セルの文字をセンター配置

Range("B3:C4").Select
With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With

選択されたセルに値を代入する

Sub Sample1()
    Dim i As Integer
    Dim LoopArea As Range
     
    Set LoopArea = Selection
    For i = 1 To LoopArea.Count
        LoopArea.Cells(i) = "AA"
    Next
End Sub

選択されたセル範囲を読み出す

Sub Sample1()
    Dim RowCnt, ColCnt, StartRow, StartColumn As Integer
    Dim Max_Row, Max_Column　As Integer
    Dim LoopArea As Range
    Dim SelectArea As String
     
    SelectArea = Selection.Address
     
    RowCnt = Selection.Row
    ColCnt = Selection.Column
    Set LoopArea = Selection
     
    StartRow = LoopArea.Cells(1).Row
    StartColumn = LoopArea.Cells(1).Column
    Max_Row = LoopArea.Cells(LoopArea.Count).Row
    Max_Column = LoopArea.Cells(LoopArea.Count).Column
End Sub

実行結果は以下の通り。

SelectArea  : "$B$3:$F$10"

    RowCnt      :  3

    ColCnt      :  2

    StartRow    :  3

    StartColumn :  2

    Max_Row     : 10

    Max_Column  :  6

LoopArea.Count は選択されているセル数が得られます。

セルの書式指定

Range("R26") = Date
Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

------ 単位の設定 ------

Columns("I").Select
Selection.NumberFormatLocal = "#,##0" + "㎡P"

セルのカラー表示

With Range("F" & I).Interior
            .ColorIndex = 36
End With

2 3 4