Com declaração no Excel VBA
A instrução With é usada no VBA para acessar todas as propriedades e métodos de um objeto mencionado. Precisamos fornecer a qual objeto VBA estamos nos referindo primeiro, em seguida, feche a instrução With com End With e , em seguida, dentro desta instrução. Podemos realizar todas as alterações de propriedades e métodos do objeto mencionado.
Abaixo está a sintaxe da instrução With no VBA.
Com (OBJETO) (Código … O que precisa ser feito?) Fim com
O objeto nada mais é do que um intervalo de células ou células às quais estamos nos referindo, e então podemos alterar as propriedades e executar todos os métodos associados a essa célula ou células específicas.
Como usar com declaração no Excel VBA?
Abaixo estão alguns exemplos para usar com declaração no Excel VBA.
Exemplo 1
Suponha que você tenha um determinado valor na célula A1, inseri o texto como “Excel VBA” na célula A1.
Agora para esta célula, preciso fazer algumas tarefas, ou seja, formatar em excel.
Quero alterar o tamanho da fonte, o nome da fonte e a cor do interior, inserir uma borda, etc. … O que fazemos normalmente é consultar primeiro a célula usando o objeto VBA RANGE.
Código:
Sub With_Example1 () Range ("A1") End Sub
Agora, para alterar o tamanho da fonte, acessamos a propriedade “fonte” desta célula.
Na propriedade FONT, acessamos a propriedade Size e inserimos o tamanho colocando um sinal de igual.
Código:
Sub With_Example1 () Range ("A1"). Font.Size = 15 End Sub
Agora, da mesma forma, fazemos outras tarefas de formatação, conforme mostrado abaixo.
Código:
Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbYellow Range ("A1"). Borders .LineStyle = xlContinuous End Sub
Isso fará todas as tarefas mencionadas, mas se você olhar o código para realizar cada atividade de formatação, fornecemos o endereço da célula todas as vezes. Isso faz com que o código pareça longo e demorado.
Agora usaremos o VBA com uma instrução para reduzir a entrada do endereço da célula todas as vezes. Abra a instrução WITH no Excel VBA e forneça o endereço da célula.
Código:
Sub With_Example1 () With Range ("A1") End Sub
Dentro da instrução With, coloque um ponto para ver todas as propriedades e métodos da célula A1.
Agora, a primeira atividade de formatação é alterar o tamanho da fonte, então acesse FONT e sob esta propriedade de acesso SIZE.
Código:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 End Sub
Da mesma forma, forneça outros códigos de formatação e feche VBA com declaração.
Código:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlContinuous End With End Sub
Execute o código para ver toda a formatação do objeto mencionado, ou seja, célula A1.
Portanto, toda a formatação aplicada à célula. Olha como essa técnica é legal.
Exemplo # 2
Por exemplo, se você deseja alterar todas as propriedades relacionadas à fonte, pode mencionar a célula e a propriedade FONT.
Código:
Sub With_Example2 () With Range ("A1"). Font End With End Sub
Inside the VBA With Statement, we can see the IntelliSense list. It will show properties and methods related to FONT property only.
We can perform any set of activities with this now.
Code:
Sub With_Example2() With Range("A1").Font .Bold = True 'Font will be Bold .Color = vbAlias 'Font color will be Alias .Italic = True 'Font will be italic style .Size = 20 ' Font size will be 20 .Underline = True 'Font will be underlined End With End Sub
The result of this will be as shown below.
Example #3
The below code will access only cell border-related properties.
Code:
Sub With_Example3() With Range("B2").Borders .Color = vbRed 'Border color will be red .LineStyle = xlContinuous 'Full border .Weight = xlThick 'Thick border End With End Sub
The result of this code is as follows.
Things to Remember
- A instrução With é usada para minimizar o código.
- Precisamos fornecer o objeto primeiro para a instrução With.
- Depois que o objeto específico é fornecido, podemos acessar apenas as propriedades e métodos desse objeto.
