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

ワークシートのすべてのセル (現在使用されているセルだけでなく) を表す**Range** オブジェクトを返します。Returns a Range object that represents all the cells on the worksheet (not just the cells that are currently in use).

構文Syntax

.セルexpression.Cells

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

注釈Remarks

Item プロパティは Range オブジェクトに対する既定のプロパティであるため、Cells キーワードの後に続けて行および列のインデックスをすぐに指定できます。Because the Item property is the default property for the Range object, you can specify the row and column index immediately after the Cells keyword. 詳細については、このトピックの Item プロパティおよび使用例を参照してください。For more information, see the Item property and the examples for this topic.

このプロパティでオブジェクト修飾子を指定しないコードを使用すると、アクティブ シートのすべてのセルを表す Range オブジェクトが返されます。Using this property without an object qualifier returns a Range object that represents all the cells on the active worksheet.

Example

次の使用例は、シート 1 のセル C5 のフォント サイズを 14 ポイントに設定します。This example sets the font size for cell C5 on Sheet1 to 14 points.

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

次の使用例は、シート 1 のセル 1 の数式をクリアします。This example clears the formula in cell one on Sheet1.

Worksheets("Sheet1").Cells(1).ClearContents

次の使用例は、シート1のすべてのセルのフォントとフォントサイズを8ポイントの Arial に設定します。This example sets the font and font size for every cell on Sheet1 to 8-point Arial.

With Worksheets("Sheet1").Cells.Font 
    .Name = "Arial" 
    .Size = 8 
End With

この例では、データ範囲内のセルをダブルクリックすると、降順の並べ替えと昇順の並び替えが切り替えられます。This example toggles a sort between ascending and descending order when you double-click any cell in the data range. データは、ダブルクリックされたセルの列に基づいて並べ替えられます。The data is sorted based on the column of the cell that is double-clicked.

Option Explicit
Public blnToggle As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LastColumn As Long, keyColumn As Long, LastRow As Long
    Dim SortRange As Range
    LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    keyColumn = Target.Column
    
    If keyColumn <= LastColumn Then
    
        Application.ScreenUpdating = False
        Cancel = True
        LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
        Set SortRange = Target.CurrentRegion
        
        blnToggle = Not blnToggle
        If blnToggle = True Then
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
        Else
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
        End If
    
        Set SortRange = Nothing
        Application.ScreenUpdating = True
        
    End If
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.