Worksheet.Range プロパティ (Excel)

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

構文

Range (Cell1, Cell2)

Worksheet オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Cell1 必須 Variant 1 つの 引数を使用する場合の範囲参照である文字列。 2 つの引数 を使用する場合は、範囲参照である String または Range オブジェクトのどちらかです。
Cell2 省略可能 Variant 範囲参照 である String または Range オブジェクトのいずれか。 Cell2 は、プロパティによって返される範囲の別の極値を定義します。

備考

Cell1Cell2 は、マクロの言語で A1 スタイルの参照を指定できます。 範囲参照には、範囲演算子 (コロン)、交差演算子 (スペース)、または共用体演算子 (コンマ) を含めることができます。 また、ドル記号を含め、無視できます。 ローカル定義名には範囲参照を指定できます。 名前を使用する場合、その名前はコード記述時の言語で表されたものと見なされます。

Cell1 および Cell2 には、1 つのセル、列、行、または他のセル範囲を含む Range オブジェクトを指定できます。

多くの 場合、セル 1セル 2 は、返される範囲の左上隅と右下隅にある 1 つのセルです。

オブジェクト修飾子を指定せずにこのプロパティを使用すると、ActiveSheet.Range のショートカットとなります。つまり、アクティブ シートから範囲を取得します。アクティブ シートがワークシートでない場合、このプロパティは失敗します。

Range オブジェクトに対して使用すると、このプロパティは Range オブジェクト基準にした相対的な範囲を返します。 たとえば、選択範囲がセル C3 の場合、Selection プロパティによって返される Range オブジェクトを基準にしたセル D3 Selection.Range("B1") が返 されます。 一方、 ActiveSheet.Range("B1") というコードでは、常にセル B1 が取得されます。

次の使用例は、シート 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 "There are " & numBlanks & " empty cells in this range"

次の使用例は、アクティブなブックのシート 1 のセル A1:C5 のフォント スタイルを italic に設定します。 Range プロパティの構文 2 を使用します。

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

この例では 、Worksheet.Range プロパティ、 Application.Union メソッド、Application.Intersect メソッド を比較 します。

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
 Range("A1, A10").Select                          'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
 Range("A1:A5 A5:A10").Select                     'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。