Worksheet.Range プロパティ (Excel)
セルまたはセル範囲を表す Range オブジェクトを返します。
構文
式。範囲 (セル 1、 セル 2)
式Worksheet オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Cell1 | 必須 | バリアント型 | 1 つの引数を使用する場合の範囲参照である String 。 2 つの引数を使用する場合は、範囲参照または Range オブジェクトである String のいずれか。 |
Cell2 | 省略可能 | バリアント型 | 範囲参照または Range オブジェクトである String。 Cell2 は、 プロパティによって返される範囲のもう 1 つの四肢を定義します。 |
注釈
Cell1 および Cell2 は、マクロの言語で A1 スタイルの参照にすることができます。 範囲参照には、範囲演算子 (コロン)、積集合演算子 (スペース)、または和集合演算子 (コンマ) を含めることができます。 また、ドル記号を含めることもできます。これは無視されます。 ローカル定義名には、範囲参照を指定できます。 名前を使用する場合、その名前はコード記述時の言語で表されたものと見なされます。
Cell1 および Cell2 には、単一のセル、列、行、またはその他のセル範囲を含む Range オブジェクトを指定できます。
多くの場合、 Cell1 と Cell2 は、返される範囲の左上隅と右下隅の単一セルです。
オブジェクト修飾子を指定せずにこのプロパティを使用すると、ActiveSheet.Range のショートカットとなります。つまり、アクティブ シートから範囲を取得します。アクティブ シートがワークシートでない場合、このプロパティは失敗します。
Range オブジェクトに対して使用すると、このプロパティは Range オブジェクト基準にした相対的な範囲を返します。 たとえば、選択範囲がセル C3 の場合は、 Selection.Range("B1")
Selection プロパティによって返される Range オブジェクトを基準とするため、セル D3 が返されます。 一方、 ActiveSheet.Range("B1")
というコードでは、常にセル B1 が取得されます。
例
次の使用例は、シート 1 のセル A1 の値を 3.14159 に設定します。
Worksheets("Sheet1").Range("A1").Value = 3.14159
次の使用例は、シート 1 のセル A1 に数式を作成します。
Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"
次の使用例は、作業中のブックの Sheet1 のセル 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 のフォント スタイルを斜体に設定します。 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 のサポートおよびフィードバックを参照してください。