共用方式為


Worksheet.Cells 屬性 (Excel)

會傳回 Range 物件,代表工作表上的所有儲存格 (不只是目前使用的儲存格) 。

語法

expression.Cells

表達 代表 Worksheet 物件的 變數。

註解

因為 Range 的預設成員會將帶參數的呼叫轉傳到 Item 屬性,您可以緊接著在 Cells 關鍵字後面指定列索引及欄索引,而不是明確呼叫 Item

使用此屬性時,如果不指定物件辨識符號,則會傳回代表現用工作表中所有儲存格的 Range 物件。

範例

本範例會將使用中活頁簿 Sheet1 上儲存格 C5 的字型大小設定為 14 點。

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

本範例會清除使用中活頁簿 Sheet1 上第一個儲存格中的公式。

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

本範例會將 Sheet1 上每個儲存格的字型和字型大小設定為 8 點 Arial。

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

本範例會在您按兩下資料範圍中的任何儲存格時,切換遞增和遞減順序的排序。 資料是根據按兩下的儲存格的欄來排序。

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

本範例會查看使用中工作表的 C 欄,並針對每個具有批註的儲存格,將註解文字放入資料行 D,並從欄 C 刪除批註。

Public Sub SplitCommentsOnActiveSheet()
   'Set up your variables
   Dim cmt As Comment
   Dim rowIndex As Integer
   
   'Go through all the cells in Column C, and check to see if the cell has a comment.
   For rowIndex = 1 To WorksheetFunction.CountA(Columns(3))
      Set cmt = Cells(rowIndex, 3).Comment
      If Not cmt Is Nothing Then
      
         'If there is a comment, paste the comment text into column D and delete the original comment.
         Cells(rowIndex, 4) = Cells(rowIndex, 3).Comment.Text
         Cells(rowIndex, 3).Comment.Delete
      End If
   Next
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應