Compartilhar via


Objeto interior (Excel)

Representa o interior de um objeto.

Exemplo

Use a propriedade Interior do objeto Range para retornar o objeto Interior . O exemplo a seguir define como vermelho a cor do interior da célula A1.

Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 3

Este exemplo obtém o valor da cor de uma célula na coluna A usando a propriedade ColorIndex e, em seguida, usa esse valor para classificar o intervalo por cor.

Sub ColorSort()
   'Set up your variables and turn off screen updating.
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   
   'For each cell in column A, go through and place the color index value of the cell in column C.
   For iCounter = 2 To 55
      Cells(iCounter, 3) = _
         Cells(iCounter, 1).Interior.ColorIndex
   Next iCounter
   
   'Sort the rows based on the data in column C
   Range("C1") = "Index"
   Columns("A:C").Sort key1:=Range("C2"), _
      order1:=xlAscending, header:=xlYes
   
   'Clear out the temporary sorting value in column C, and turn screen updating back on.
   Columns(3).ClearContents
   Application.ScreenUpdating = True
End Sub

Propriedades

Confira também

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.