Selection プロパティ

Application オブジェクトでは、アクティブ ウィンドウで現在選択されているオブジェクトを返します。

Window オブジェクトでは、指定されたウィンドウで現在選択されているオブジェクトを返します。

解説

Selection プロパティで返されるオブジェクトの種類は、何を選択するかによって異なります。たとえば、セルを選択しているときはRange オブジェクトが返されます。何も選択していないときは Nothing が返されます。このプロパティは、オブジェクト修飾子を指定せずに、Application.Selection と指定しても同じ動作を表します。

オブジェクトを返すプロパティです。指定されたオブジェクトの塗りつぶし属性（ Interior オブジェクト) を返します。値の取得のみ可能です。

ColorIndex プロパティ

次に示すオブジェクトに応じて、輪郭線、フォント、罫線、内部の塗りつぶしなどに適用する色を設定します。色は、現在のカラー パレットのインデックス、または定数で表します。使用できる定数は、XlColorIndex クラスの xlColorIndexAutomatic または xlColorIndexNone です。値の取得および設定が可能です。バリアント型 (Variant) の値を使用します。

オブジェクト	内容
Border	輪郭の色。
Borders	罫線の四辺の色です。すべての四辺の罫線が同じ色でない場合、Null 値を返します。
Font	文字の色です。自動に設定する場合は、xlColorIndexAutomatic を指定します。
Interior	内部を塗りつぶす色です。xlColorIndexNone を指定すると、塗りつぶしは行われません。xlColorIndexAutomatic を指定すると、自動になります (描画オブジェクトのみ)。

解説

ColorIndex プロパティでは、ブックのカラー パレットのインデックス番号で色を指定します。現在のカラー パレットを返すには、Colors プロパティを使ってください。

次の図には、標準のカラー パレットのカラー インデックス番号が示されています。

Pattern プロパティ

Interior オブジェクトの場合、内部のパターンを設定します。値の取得および設定が可能です。長整数型 (Long) の値を使用します。

使用できる定数は、次に示す XlPattern クラスのいずれかです。

xlPatternAutomatic xlPatternChecker xlPatternCrissCross xlPatternDown xlPatternGray16 xlPatternGray25 xlPatternGray50 xlPatternGray75 xlPatternGray8 xlPatternGrid

xlPatternHorizontal xlPatternLightDown xlPatternLightHorizontal xlPatternLightUp xlPatternLightVertical xlPatternNone xlPatternSemiGray75 xlPatternSolid xlPatternUp xlPatternVertical

PatternColorIndex プロパティ

オブジェクト内部の塗りつぶし属性のパターンの色を、現在のカラー パレットのインデックス番号または定数で表します。使用できる定数は、XlColorIndex クラスの xlColorIndexAutomatic または xlColorIndexNone です。値の取得および設定が可能です。長整数型 (Long) の値を使用します。

解説

このプロパティに xlColorIndexAutomatic を設定しておくと、セルの網かけのパターンや描画オブジェクトの塗りつぶし属性のパターンの色を自動に決定します。また、xlColorIndexNone に設定しておくと、塗りつぶし属性のパターンの色を決定しません。これは Interior オブジェクトの Pattern プロパティに xlPatternNone を設定するのと同じです。

解説

次の図には、標準のカラー パレットのインデックス番号が示されています。

Underline プロパティ

フォントに付いている下線の種類を設定します。使用できる定数は、XlUnderlineStyle クラスの xlUnderlineStyleNone、xlUnderlineStyleSingle、xlUnderlineStyleDouble、xlUnderlineStyleSingleAccounting、xlUnderlineStyleDoubleAccounting のいずれかです。値の取得および設定が可能です。長整数型 (Long) の値を使用します。

実際にFontに色をつけるマクロを組む場合は、必要なことだけを記述すればOKです。

Font プロパティ

オブジェクトを返すプロパティです。指定されたオブジェクトに設定されているフォント (Font オブジェクト) を返します。値の取得のみ可能です。

Color プロパティ

次に示すオブジェクトに応じて適用する色を設定します。色は、RGB 関数によって作成された値です。値の取得および設定が可能です。長整数型 (Long) の値を使用します。

オブジェクト	色
Border	罫線または輪郭の色。
Borders	指定したセル範囲の周囲の罫線の色。線のすべての色が同じではないときは、0 (ゼロ) を返します。
Font	フォントの色。
Interior	影付きのセルの影の色、または描画オブジェクトの塗りつぶしの色。

Name プロパティ

コントロールまたはオブジェクトの名前を設定します。あるいは、Font オブジェクトと関連付けるフォントの名前を設定します。

セルの幅と高さを変える

Application オブジェクトでは、アクティブ シートのすべての列を表す Range オブジェクトを返します。アクティブ シートがワークシートではない場合は、Columns プロパティは失敗します。値の取得のみ可能です。

Range オブジェクトでは、指定されたセル範囲の列を表す Range オブジェクトを返します。値の取得のみ可能です。

Worksheet オブジェクトでは、指定されたワークシートのすべての列を表す Range オブジェクトを返します。値の取得のみ可能です。

コレクションのメンバを取得する方法については、「コレクションからオブジェクトを取得する」を参照してください。

解説

このプロパティでは、オブジェクト修飾子を指定せずに、ActiveSheet.Columns と指定しても同じ動作を表します。

複数のセル範囲を含む Range オブジェクトに対して Columns プロパティを使用すると、選択範囲の中で最初に選択した領域の列が返されます。たとえば、Range オブジェクトで A1:B2 および C3:D4 の 2 つのセル範囲が含まれているとき、Selection.Columns.Count を実行すると 4 ではなく 2 が返されます。複数のセル範囲を選択している可能性があるときは、このプロパティを使用する前に Areas.Count を実行し、範囲が複数選択であるかどうかを確認します。複数選択の場合は、使用例の 3 番目のようにセル範囲の領域ごとにループします。

Columns プロパティの使用例

この使用例は、シート 1 の列 1 (列 A) のフォントを太字に設定します。

Worksheets("Sheet1").Columns(1).Font.Bold = True

この使用例は、"myRange" という名前のセル範囲にある、列 1 のすべてのセルの値を 0 に設定します。

Range("myRange").Columns(1).Value = 0

この使用例は、シート 1 で選択されているセル範囲の列数を表示します。複数の領域が選択されている場合は、領域ごとにループします。

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "選択されているのは " & _
        Selection.Columns.Count & " 列です。"
Else
    For i = 1 To areaCount
        MsgBox "領域" & i & " で選択されているのは" & _
            Selection.Areas(i).Columns.Count & " 列です。"
    Next i
End If

指定された対象セル範囲内のすべての列の幅を設定します。値の取得および設定が可能です。バリアント型 (Variant) の値を使用します。

解説

列幅の単位は、標準スタイルの 1 文字分の幅に相当します。プロポーショナル フォントでは、数字の 0 の幅が列幅の単位になります。

列幅をポイント単位で取得するには、Width プロパティを使ってください。

対象セル範囲内のすべての列が同じ幅のときは、その値を返します。対象セル範囲内の各列の幅が異なるときは、Null 値を返します。

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

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14　　　　Cells(行、列）です。

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

Worksheets("Sheet1").Cells(1).ClearContents　　　　Cells(1)はA1を表しています。

この使用例は、シート 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

単一のセルに数字を入力する場合

Range("B2").Value = 1

範囲を選択し数字を入力する場合

Range("B4:D5").Value = 2

複数の範囲を選択し数字を入力する場合

Range("B7:C8,D9:E10").Value = 3

Range("B7:C8","D9:E10").Value = 3
このように記入すると範囲は違ったものになります。

hani = "B12" & ":" & "C13"　として範囲を選択し数字を入力する場合

Range(hani).Value = 4

Cellsの使用して数字を入力する場合

Range(Cells(15, 2), Cells(16, 3)).Value = 5

a = 19として数字を入力する場合

Range("B" & a).Value = 6

範囲指定の応用１

b = 22
Range("B21", "C" & b).Value = 7

範囲指定の応用２

c = 24
d = 26
Range("B" & c, "C" & d - 1).Value = 8

Sub rangetest() Range("B2").Value = 1 Range("B4:D5").Value = 2 Range("B7:C8,D9:E10").Value = 3 Range("B7:C8", "D9:E10").Interior.ColorIndex = 4 hani = "B12" & ":" & "C13" Range(hani).Value = 4 Range(Cells(15, 2), Cells(16, 3)).Value = 5 a = 19 Range("B" & a).Value = 6 b = 22 Range("B21", "C" & b).Value = 7 c = 24 d = 26 Range("B" & c, "C" & d - 1).Value = 8 End Sub

2 つ以上のセル範囲の集合を返します。

構文

expression.Union(Arg1, Arg2, ...)

expression   省略可能です。対象となる Application オブジェクトを表すオブジェクト式を指定します。

Arg1, Arg2, ...   必ず指定します。集合させるセル範囲 (Range オブジェクト) を指定します。複数の Range オブジェクトを指定する必要があります。

次に Range プロパティを使った A1 形式の参照例を示します。5秒ごとにセル範囲を参照していきます。