Worksheet.Range プロパティ (Excel)
セルまたはセル の 範囲を表す 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 のサポートおよびフィードバックを参照してください。