アクティブ セルを操作するWorking with the Active Cell

ActiveCell プロパティは、アクティブ セルを表す Range オブジェクトを返します。The ActiveCell property returns a Range object that represents the cell that is active. 次の例のように、アクティブ セルには、範囲オブジェクトの任意のプロパティまたはメソッドを適用することができます。You can apply any of the properties or methods of a Range object to the active cell, as in the following example. 1 つ以上のワークシート セルを選択できますが、セクション内のセルで ActiveCell に指定できるのは 1 つだけです。While one or more worksheet cells may be selected, only one of the cells in the selection can be the ActiveCell.

Sub SetValue() 
 Worksheets("Sheet1").Activate 
 ActiveCell.Value = 35 
End Sub

メモ: アクティブ セルを操作できるのは、そのセルを含むワークシートがアクティブになっているときだけです。Note You can work with the active cell only when the worksheet that it is on is the active sheet.

アクティブ セルを移動するMoving the Active Cell

Range.Activate メソッドを使って、どのセルをアクティブ セルにするかを指定できます。You can use the Range .Activate method to designate which cell is the active cell. 次の使用例は、セル B5 をアクティブにして、書式を太字に設定します。For example, the following procedure makes B5 the active cell and then formats it as bold.

Sub SetActive_MakeBold() 
 Worksheets("Sheet1").Activate 
 Worksheets("Sheet1").Range("B5").Activate 
 ActiveCell.Font.Bold = True 
End Sub

メモ セル範囲を選択する場合は、Select メソッドを使います。Note To select a range of cells, use the Select method. セル範囲内の単一のセルをアクティブにするには、 Activate メソッドを使います。To make a single cell the active cell, use the Activate method.

**Offset ** プロパティを使って、他のセルをアクティブ セルにできます。You can use the Offset property to move the active cell. 次の使用例は、選択範囲内のアクティブ セルに文字列を挿入し、選択範囲を変更せずに、右隣のセルをアクティブ セルにします。The following procedure inserts text into the active cell in the selected range and then moves the active cell one cell to the right without changing the selection.

Sub MoveActive() 
 Worksheets("Sheet1").Activate 
 Range("A1:D10").Select 
 ActiveCell.Value = "Monthly Totals" 
 ActiveCell.Offset(0, 1).Activate 
End Sub

アクティブ セルの周囲のセルを選択するSelecting the Cells Surrounding the Active Cell

CurrentRegion プロパティは、空白の行と列で囲まれたセル範囲、つまりセルの「島」を返します。The CurrentRegion property returns a range or 'island' of cells bounded by blank rows and columns. 次の使用例では、アクティブ セルに隣接するデータを含むセルも含まれるように、選択範囲が拡大されています。In the following example, the selection is expanded to include the cells that contain data immediately adjoining the active cell. さらに、これらのセル範囲の書式が、通貨スタイルに設定されています。This range is then formatted with the Currency style.

Sub Region() 
 Worksheets("Sheet1").Activate 
 ActiveCell.CurrentRegion.Select 
 Selection.Style = "Currency" 
End Sub

サポートとフィードバック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.