プロパティ

いろいろなプロパティ

EntireColumn セル範囲の列全体を参照する。

Sub columnpro()
ActiveSheet.Range("b4:d7").Select
MsgBox Selection.Column & "列目"
MsgBox Selection.Row & "行目"
ActiveCell.EntireColumn.Select
'ActiveSheet.Range("b4:d7").Select
'ActiveCell.EntireRow.Select
End Sub

EntireRow セル範囲の行全体を参照する。

Sub columnpro()
ActiveSheet.Range("b4:d7").Select
MsgBox Selection.Column & "列目"
MsgBox Selection.Row & "行目"
'ActiveCell.EntireColumn.Select
ActiveSheet.Range("b4:d7").Select
ActiveCell.EntireRow.Select
End Sub

Column 指定された範囲のうち、一番若い列番号を返します。A列なら１、D列なら４のように、数値で値を返します。

Sub columnpro()
ActiveSheet.Range("b4:d7").Select
MsgBox Selection.Column & "列目"
MsgBox Selection.Row & "行目"
End Sub

Row 指定された範囲のうち、一番若い行番号を返します。数値で値を返します。

Sub columnpro()
ActiveSheet.Range("b4:d7").Select
MsgBox Selection.Column & "列目"
MsgBox Selection.Row & "行目"
End Sub

Range

セルまたはセル範囲を表すRange オブジェクトを返します。

使用例

次の使用例は、シート 1 のセル A1 の値を 3.14159 に設定します。

Worksheets("Sheet1").Range("A1").Value = 3.14159

次の使用例は、シート 1 のセル A1 に数式を作成します。

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

次の使用例は、シート 1 のセル範囲 A1:D10 に対してループを行います。セルの値が 0.001 未満の場合は、値をゼロ (0) に置き換えます。

For Each c in Worksheets("Sheet1").Range("A1:D10")
    If c.Value < .001 Then
        c.Value = 0
    End If
Next c

次の使用例は、"TestRange" という名前の範囲に対してループを行い、範囲内の空のセル数を表示します。

numBlanks = 0
For Each c In Range("TestRange")
    If c.Value = "" Then
        numBlanks = numBlanks + 1
    End If
Next c
MsgBox "空のセル数は、" & numBlanks & " 個ありました。

次の使用例は、シート 1 のセル範囲 A1:C5 のフォントスタイルを斜体に設定します。Range プロパティの構文 2 を使用します。

Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
    Font.Italic = True

Cells

Application オブジェクトでは、アクティブシートがワークシートのとき、そのワークシートにあるすべてのセル (Range オブジェクト) を返します。アクティブシートがワークシートでないとき、このプロパティは失敗します。値の取得のみ可能です。

Range オブジェクトでは、指定した範囲のセル (Range オブジェクト) を返します。つまり、何も行いません。値の取得のみ可能です。

Worksheet オブジェクトでは、すべてのワークシートのセル (Range オブジェクト) を返します。値の取得のみ可能です。

Cells プロパティの使用例

この使用例は、シート 1 のセル C5 のフォントサイズを 14 ポイントに設定します。

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

この使用例は、シート 1 のセル 1 の数式をクリアします。

Worksheets("Sheet1").Cells(1).ClearContents

この使用例は、シート 1 のすべてのセルのフォントを 8 ポイントの Arial に設定します。

With Worksheets("Sheet1").Cells.Font
    .Name = "Arial"
    .Size = 8
End With

この使用例は、シート 1 のセル範囲 A1: J4 に対してループを行い、セルの値が 0.001 未満の場合は、値を 0 (ゼロ) に置き換えます。

For rwIndex = 1 to 4
    For colIndex = 1 to 10
        With Worksheets("Sheet1").Cells(rwIndex, colIndex)
            If .Value < .001 Then .Value = 0
        End With
    Next colIndex
Next rwIndex

この使用例は、シート 1 のセル範囲 A1:C5 の書式を斜体に設定します。

Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

この使用例は、myRange という名前の列を調べてセルの値が 1 つ上のセルの値と同じ場合は、重複するデータを持つセルの参照を表示します。

Set r = Range("myRange")
For n = 1 To r.Rows.Count
    If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
        MsgBox r.Cells(n + 1, 1).Address & "とデータが重複します。" 
    End If
Next n

ActiveCell アクティブウィンドウまたは指定されたウィンドウでのアクティブセル (Range オブジェクト) を返します。ウィンドウに表示されているシートがワークシートでないときは、このプロパティは失敗します。値の取得のみ可能です。

次の使用例は、アクティブセルのフォントの設定を変更します。

Worksheets("Sheet1").Activate
With ActiveCell.Font
    .Bold = True
    .Italic = True
End With