Home Excel - Dicas Microsoft Excel VBA Excel VBA - Contadores Excel planilhas vba contador insere dados propriedade offset

Excel planilhas vba contador insere dados propriedade offset

E-mail Imprimir PDF

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 'pára 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

NomeObrigatório/OpcionalTipo de dadosDescriçã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




  Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba contador insere dados propriedade offset (20.78 KB)
Última atualização em Qua, 10 de Agosto de 2011 08:24  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4819
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19266
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês32995
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455824
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA