Worksheet プロパティ (Excel)Worksheet.Range property (Excel)

セルまたはセル範囲を表す**range** オブジェクトを返します。Returns a Range object that represents a cell or a range of cells.


範囲(Cell1Cell2)expression.Range (Cell1, Cell2)

Worksheet オブジェクトを表す変数を取得します。expression A variable that represents a Worksheet object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
Cell1Cell1 必須Required バリアント型Variant 1つの引数が使用された場合に、範囲参照である文字列A String that is a range reference when one argument is used. 2つの引数が使用されている場合に、範囲参照またはrangeオブジェクトのいずれかを指定する文字列Either a String that is a range reference or a Range object when two arguments are used.
Cell2Cell2 省略可能Optional VariantVariant 範囲参照またはrangeオブジェクトのいずれかの文字列Either a String that is a range reference or a Range object. _Cell2_は、プロパティによって返される範囲の別の extremity を定義します。Cell2 defines another extremity of the range returned by the property.


_Cell1_および_Cell2_は、マクロの言語で A1 形式の参照にすることができます。Cell1 and Cell2 can be A1-style references in the language of the macro. 範囲参照には、範囲演算子 (コロン)、共通部分演算子 (スペース)、またはユニオン演算子 (コンマ) を含めることができます。The range references can include the range operator (a colon), intersection operator (a space), or union operator (a comma). また、ドル記号を含めることもできます。ドル記号は無視されます。They can also include dollar signs, which are ignored. ローカルに定義された名前は、範囲参照にすることができます。A local defined name can be a range reference. 名前を使用する場合、その名前はコード記述時の言語で表されたものと見なされます。If you use a name, the name is assumed to be in the language of the macro.

_Cell1_および_Cell2_には、1つのセル、列、行、またはその他のセル範囲を含むrangeオブジェクトを指定できます。Cell1 and Cell2 can be Range objects that contain a single cell, column, row, or any other range of cells.

多くの場合、 _Cell1_と_Cell2_は、返される範囲の左上隅と右下隅にある単一のセルです。Often, Cell1 and Cell2 are single cells in the upper-left and lower-right corners of the range returned.

オブジェクト修飾子を指定せずにこのプロパティを使用すると、ActiveSheet.Range のショートカットとなります。つまり、アクティブ シートから範囲を取得します。アクティブ シートがワークシートでない場合、このプロパティは失敗します。When used without an object qualifier, this property is a shortcut for ActiveSheet.Range (it returns a range from the active sheet; if the active sheet isn't a worksheet, the property fails).

Range オブジェクトに対して使用すると、このプロパティは Range オブジェクト基準にした相対的な範囲を返します。When applied to a Range object, the property is relative to the Range object. たとえば、選択範囲がセル C3 の場合はSelection.Range("B1")selectionプロパティによって返されるRangeオブジェクトを基準にして、セル D3 が返されます。For example, if the selection is cell C3, Selection.Range("B1") returns cell D3 because it is relative to the Range object returned by the Selection property. 一方、 ActiveSheet.Range("B1") というコードでは、常にセル B1 が取得されます。On the other hand, the code ActiveSheet.Range("B1") always returns cell B1.


次の使用例は、シート 1 のセル A1 の値を 3.14159 に設定します。This example sets the value of cell A1 on Sheet1 to 3.14159.

Worksheets("Sheet1").Range("A1").Value = 3.14159

次の使用例は、シート 1 のセル A1 に数式を作成します。This example creates a formula in cell A1 on Sheet1.

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

次の使用例は、作業中のブックのシート1のセル範囲 A1: D10 をループします。This example loops on cells A1:D10 on Sheet1 of the active workbook. セルの値が 0.001 未満の場合は、値をゼロ (0) に置き換えます。If one of the cells has a value less than 0.001, the code replaces that value with 0 (zero).

For Each c in Worksheets("Sheet1").Range("A1:D10") 
 If c.Value < .001 Then 
 c.Value = 0 
 End If 
Next c

次の使用例は、TestRange という名前の範囲をループし、範囲内の空のセルの数を表示します。This example loops on the range named TestRange and displays the number of empty cells in the range.

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 のフォントスタイルを斜体に設定します。This example sets the font style in cells A1:C5 on Sheet1 of the active workbook to italic. Range プロパティの構文 2 を使用します。The example uses Syntax 2 of the Range property.

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

次の使用例は、 Worksheetプロパティ、 Union メソッド、および**Intersect** メソッドを比較します。This example compares the Worksheet.Range property, the Application.Union method, and the Application.Intersect method.

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.

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.