Worksheet.Range プロパティ (Excel)

[アーティクル]
04/11/2022

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

構文

式。Range (Cell1, Cell2)

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

パラメーター

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

備考

Cell1 と Cell2 は、マクロの言語で 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 のサポートおよびフィードバックを参照してください。