| Descricao: |
 Saberexcel - o site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) do insere um contado na Coluna(A), com auxilio da propriedade Offset, desloca dados para coluna b que fará a personalização da contagem do laço - loop for next, também usei o Método Evaluate que é muito útil no uso em programação, como faz as WorksheetFuncions esse método também retorna um valor, para onde voce desejar, poderá em uma mensagem, células, objeto label ou textobx, etc... baixe o exemplo de planilha no final da página.
Sub Inserir_dados_loop_contador()
Dim I As Integer
Dim vContador As Integer
Range("A1").Select
[A2:B120].ClearContents
For I = 1 To 20
If Plan1.Range("A1").Value = "São Paulo" Then
ActiveCell.Offset(1, 0).Value = "Capital"
ActiveCell.Offset(1, 1).Value = "Contador..: " & I & "º."
ActiveCell.Offset(1, 0).Select
vContador = vContador + 1
vContador = Plan1.Evaluate("COUNTIF(A1:A1000, ""Capital"")")
MsgBox vContador 'para o código a cada loop para exibir a msg
End If
Next I
End Sub
Converte um nome do Microsoft Excel em um objeto ou valor.
Sintaxe
expressão.Evaluate(Name)
expressão Uma variável que representa um objeto Worksheet.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
| Name |
Obrigatório |
Variant |
O nome do objeto, usando a convenção de nomenclatura do Microsoft Excel. |
Valor de retorno
Variant
Comentários
Os tipos de nomes do Microsoft Excel a seguir podem ser usados com este método.
- Referências de estilo A1. Você pode usar qualquer referência a uma única célula em notação A1. Todas as referências são consideradas como referências absolutas.
- Intervalos. Você pode usar os operadores de intervalo, de interseção e de união (dois pontos, espaço e vírgula, respectivamente) com referências.
- Nomes definidos. Você pode especificar qualquer nome no idioma da macro.
- Referências externas. Você pode usar o operador ! para referir-se a uma célula ou a um nome definido em outra pasta de trabalho. Por exemplo,
Evaluate("[BOOK1.XLS]Sheet1!A1").
- Objetos Chart. Você pode especificar qualquer nome de objeto de gráfico, como "Legenda", "Área de plotagem" ou "Série 1", para acessar as propriedades e os métodos desse objeto. Por exemplo,
Charts("Chart1").Evaluate("Legend").Font.Name retorna o nome da fonte usada na legenda.
| Observação |
| O uso de colchetes (por exemplo, "[A1:C5]") é idêntico a chamar o método Evaluate com um argumento de sequência de caracteres. Por exemplo, os pares das expressões a seguir são equivalentes. |
| Visual Basic for Applications |
[a1].Value = 25
Evaluate("A1").Value = 25
trigVariable = [SIN(45)]
trigVariable = Evaluate("SIN(45)")
Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1]
Set firstCellInSheet = _
Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")
|
A vantagem do uso de colchetes é que o código fica menor. A vantagem do uso de Evaluate é que, como o argumento é uma sequência de caracteres, você pode construir a sequência no código ou usar uma variável do Visual Basic.
Exemplo
Este exemplo ativa a formatação em negrito na célula A1 de Sheet1.
| Visual Basic for Applications |
Worksheets("Sheet1").Activate
boldCell = "A1"
Application.Evaluate(boldCell).Font.Bold = True
|
 Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando os produtos didáticos SaberExcel
|