VBA-Lição 5. Propriedades (Properties)

Neste artigo, aprenderemos como escrever código VBA para controlar o conteúdo das células, as próprias células e as letras.

Uma propriedade é um atributo de objeto que define uma das características do objeto, como tamanho, cor ou posição na tela, ou um aspecto de seu comportamento, como se ele está ativado ou visível na tela.

Para alterar as características de um objeto, é necessário alterar o valor de suas propriedades.

1. Escreva os valores na célula

Primeiro, abra o editor, adicione um módulo, copie esta macro lá:

Sub Properties() 'moonexcel.com.ua
   Range ("A1")
End Sub

Voltamo-nos para a cela A1. Agora vamos tentar controlar esta célula. Para ver o que podemos fazer, vamos adicionar um ponto após Range (“A1”).

Selecione Value e pressione Tab. Obteremos o seguinte código:

Sub Properties() 'moonexcel.com.ua
        Range ("A1").Value
End Sub

O valor Value exibe o conteúdo da célula.

Agora vamos escrever o valor 35 na célula A1:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   'O valor da célula A1 é 35
End Sub

Agora vamos tentar escrever o texto na célula (ao atribuir um valor de texto, ele deve ser colocado entre aspas duplas ""):

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = "Tem algum texto aqui"
End Sub

Observe que a macro exibirá os valores da planilha que você abriu pela última vez. Portanto, para controlar o conteúdo de uma célula em qualquer planilha do livro, precisaremos escrever o caminho completo para a célula, ou seja, adicionar o nome da planilha no início do código, por exemplo:

Opção 1. Aplicamos pelo nome da letra - Sheets("Folha2").

Sub properties() 'moonexcel.com.ua
   Sheets("Sheet2").Range("A1").Value = "Tem algum texto aqui"
   'Significa: abra a planilha 2, selecione a célula A1 e escreva o texto em seu valor
End Sub

Opção 2. Aplicamos não pelo nome da letra, mas pelo seu número de série - Sheets(2).

Sub properties() 'moonexcel.com.ua
   Sheets(2).Range("A1").Value = "Tem algum texto aqui"
End Sub

Da mesma forma, se quisermos fazer referência a uma célula em outra pasta de trabalho, precisamos escrever o nome da pasta de trabalho no início do código:

Sub properties() 'moonexcel.com.ua
   Workbooks("Book2.xlsx").Sheets("Sheet2").Range("A1").Value = "Tem algum texto aqui"
End Sub

Embora especifiquemos o parâmetro Value em nossos exemplos, ele pode ser omitido, pois é o padrão. Ou seja, estas duas linhas de código serão equivalentes:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   Range("A1") = 35
End Sub

2. Excluindo valores

Vamos deletar o valor 35 da célula A1, que registramos no início da lição:

Sub properties() 'moonexcel.com.ua
   Range("A1").Clear
   'Meios: selecione a célula A1 e limpe-a
End Sub

3. Formatando valores

Se você selecionar Font, aparecerá uma lista de propriedades que você pode aplicar à célula:

Formatação: alterando o tamanho do texto

Vamos definir a célula para 35 e reduzir o tamanho da fonte para 8:

Sub properties() 'moonexcel.com.ua
   Range("A1") = 35
   Range("A1").Font.Size = 8
End Sub

Formatação: deixe o texto em negrito

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = True
End Sub

Remova secreções oleosas:

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = False
End Sub

Formatação: deixe o texto em itálico

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Italic = True
End Sub

Formatação: sublinhar texto

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Underline = True
End Sub

Formatação: defina o tipo de fonte

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Name = "Arial"
End Sub

Formatação: colorir a célula

Sub properties() 'moonexcel.com.ua
   Range("A1").Interior.ColorIndex = 6
End Sub