Propriedade Worksheet.Cells (Excel)

Retorna um objeto Range que representa todas as células na planilha (não apenas as células que estão em uso no momento).

Sintaxe

expressão.Células

Expressão Uma variável que representa um objeto Worksheet .

Comentários

Como o membro padrão do Intervalo encaminha chamadas com parâmetros para a propriedade Item, você pode especificar o índice de linha e de coluna logo após a palavra-chave Células em vez de uma chamada explícita para Item.

A utilização desta propriedade sem um qualificador de objeto retorna um objeto Range, que representa todas as células da planilha ativa.

Exemplo

Este exemplo define o tamanho da fonte da célula C5 na Planilha1 da pasta de trabalho ativa como 14 pontos.

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

Este exemplo limpa a fórmula na célula um na Planilha1 da pasta de trabalho ativa.

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

Este exemplo define o tamanho da fonte e da fonte para cada célula no Sheet1 como Arial de 8 pontos.

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

Este exemplo alterna uma classificação entre a ordem crescente e decrescente quando você clica duas vezes em qualquer célula do intervalo de dados. Os dados são classificados com base na coluna da célula em que você clicou duas vezes.

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

Este exemplo examina a coluna C da planilha ativa e, para cada célula que tem um comentário, ele coloca o texto de comentário na coluna D e exclui o comentário da coluna 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.