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

Sex, 11 de Fevereiro de 2011 15:47 Expedito Marcondes
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)
Tags:
Ú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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes

Pesquisa Google SaberExcel

Google

Contatos Equipe Saberexcel

Navegar pelo Site

Outros Assuntos

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

Tags Populares

RSFirewallProtected

19.04.2024

Google Associados

Depoimentos

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