Ofereço ajuda em Java, C/C++, Python, C#, LISP, AutoLisp, AutoCAD
+55 (062) 98553-6711
Ofereço ajuda em PHP, Python, C#, JavaScript, Laravel, Google Ads e SEO
+55 (062) 98243-1195

Você está aqui: VBA ::: Dicas & Truques ::: Collections, Coleções

Como usar Collections em VBA - Diferença entre Collections e arrays em VBA

Quantidade de visualizações: 308 vezes
Não é novidade que o domínio do VBA é muito importante para quem quer realmente tirar proveito de todas as facilidades que o Excel oferece, ou seja, o Excel VBA. Há também o AutoCAD VBA, que permite manipular todos os objetos do AutoCAD a partir de código VBA.

E é aqui que o assunto começa a ficar interessante. O Excel expõe as pastas e planilhas como coleções. Assim, as pastas são representadas pela coleção Workbooks, enquanto as planilhas são representadas pela coleção Worksheets. Da mesma forma o AutoCAD expõe seus objetos relacionados por meio de coleções para o AutoCAD VBA.

O que são as Collections do VBA

Podemos pensar em Collections como um array redimensionável, que cresce ou diminui à medida que adicionamos ou removemos itens. E estes itens podem ser variáveis simples ou objetos. Inicialmente criamos a coleção vazia e adicionamos itens de acordo com a necessidade do nosso algoritmo.

Qual a diferença entre Collections e arrays no VBA

Os arrays do VBA possuem tamanho fixo, ou seja, não é possível fazê-los crescer ou diminuir à medida que adicionamos novos itens ou removemos itens existentes. É claro que podemos usar ReDim para redimensionar um array em VBA, mas ainda assim a dificuldade de se adicionar e remover itens permanece.

Como criar um objeto Collections em VBA

A criação de um objeto Collection na linguagem VBA envolve a declaração e depois a construção. Veja:

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

' Procedimento para criar um novo objeto Collection
Sub CriarNovaColecao()
  ' fazemos a declaração da Collection
  Dim lista As Collection
  
  ' fazemos a construção
  Set lista = New Collection
  
  ' adicionamos três itens na coleção
  lista.Add "Java"
  lista.Add "Python"
  lista.Add "Delphi"
  
  ' exibimos o valor do segundo item
  MsgBox "O segundo item é: " & lista(2)
End Sub

Ao executar este código VBA nós teremos o seguinte resultado:

O segundo item é: Python

Link para compartilhar na Internet ou com seus amigos:

VBA ::: Dicas & Truques ::: Rotinas de Conversão

Como converter números em strings em VBA usando a função CStr()

Quantidade de visualizações: 404 vezes
A função CStr() do VBA pode ser usada quando queremos converter valores numéricos do tipo Integer ou Double em uma string. Em geral isso é necessário quando queremos aplicar funções de strings a valores numéricos, por exemplo, testar se um determinado dígito faz parte de um número.

Veja um trecho de código no qual usamos a função CStr() para converter valores Integer e Double em string e mostrar o resultado:

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

' Procedimento para converter Integer e Double em string
Sub ConverterNumeroString()
  ' vamos declarar duas variáveis numéricas
  Dim codigo As Integer
  Dim preco As Double
  
  codigo = 58
  preco = 32.15
  
  Dim resultado As String
  resultado = "O código do produto é: " + CStr(codigo) + _
    " e o preço é: " + CStr(preco)
  
  ' mostramos o resultado
  MsgBox resultado
End Sub

Ao executar este código VBA nós teremos o seguinte resultado:

O código do produto é: 58 e o preço é: 32,15


VBA ::: Dicas & Truques ::: Strings e Caracteres

Como retornar o código ASCII associado a um caractere em VBA usando a função Asc()

Quantidade de visualizações: 372 vezes
Em algumas situações nós precisamos retornar o código ASCII associado a um determinado caractere. Em VBA nós podemos realizar essa tarefa usando a função Asc(), que recebe uma string representando uma letra, dígito ou símbolo e retorna o código numérico correspondente.

Veja um trecho de código VBA no qual informamos a letra "A" e obtemos, como retorno, o código ASCII 65:

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

' Macro VBA Excel usada para converter um caractere
' em seu código ASCII
Sub RetornarCodigoASCII()
  ' Variáveis usadas na resolução do problema
  Dim letra As String
  Dim codigo As Integer
  
  ' vamos pedir para o usuário informar um caractere
  letra = InputBox("Informe um caractere: ", "Código ASCII", 0)
  Debug.Print "Você informou o caractere: " & letra
  
  ' agora vamos obter o código ASCII correspondente
  codigo = Asc(letra)
  
  ' e mostramos o resultado
  Debug.Print "O código ASCII correspondente é: " & codigo
End Sub

Ao executarmos este código VBA nós teremos o seguinte resultado:

O código ASCII correspondente é: 65


Vamos testar seus conhecimentos em Hidrologia

No que toca à extensão, qual bacia hidrográfica é considerada a maior bacia do mundo?

A) Bacia Amazônica.

B) Bacia Platina.

C) Bacia Chinesa.

D) Bacia do Rio Grande.

E) Bacia do Rio da Prata.
Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais

Instalações prediais de combate a incêndio

A norma NBR 13714 estabelece os critérios mínimos exigíveis para sistemas de hidrantes e de mangotinhos, para uso exclusivo no combate a incêndio. Com base nesses critérios, assinale a alternativa correta:

A) Uma edificação com área de 850m2 não necessita de um sistema de mangotinhos ou de hidrantes para proteção contra incêndio.

B) O ponto de tomada de água para hidrantes e mangotinhos pode ser instalado a até 10m de distância das portas externas e escadas.

C) Os hidrantes devem ser distribuídos de tal forma que qualquer ponto da área a ser protegida seja alcançado por no mínimo dois esguichos.

D) Uma edificação com parede externa de 12m de altura necessita que o hidrante externo seja instalado afastado no máximo 18m da edificação.

E) Uma edificação com parede externa de 12m de altura necessita que o ponto de tomada de água seja instalado a no máximo 2m em relação ao piso.
Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em Hidrologia

No que toca à extensão, qual bacia hidrográfica é considerada a maior bacia do mundo?

A) Bacia Amazônica.

B) Bacia Platina.

C) Bacia Chinesa.

D) Bacia do Rio Grande.

E) Bacia do Rio da Prata.
Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em Fundações

Fundações diretas ou rasas

A viga de fundação é também chamada de viga baldrame. É utilizada para conectar sapatas isoladas e distribuir melhor o peso da estrutura para as camadas do solo. A partir disso, projete uma viga de fundação para os pilares P1 e P2, indicados na figura, sendo a taxa no solo σs = 0,4.

Considere: P1 = P2 = 1.800KN.

Dimensões P1 e P2 = 25cmX100cm.



A) a = 400cm e b = 280cm.

B) a = 365cm e b = 250cm.

C) a = 250cm e b = 365cm.

D) a = 345cm e b = 230cm.

E) a = 405cm e b = 315cm.
Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em AutoCAD Civil 3D

Survey Points e COGO Points

Survey points não podem ser movidos ou editados sem acessar a base de dados do levantamento e sem usar comandos especializados para a edição de pontos de levantamento.

A) Verdadeiro

B) Falso
Verificar Resposta Estudar Cards Todas as Questões

Veja mais Dicas e truques de VBA

Dicas e truques de outras linguagens

E-Books em PDF

E-Book 650 Dicas, Truques e Exercícios Resolvidos de Python - PDF com 1.200 páginas
Domine lógica de programação e a linguagem Python com o nosso E-Book 650 Dicas, Truques e Exercícios Exercícios de Python, para você estudar onde e quando quiser.

Este e-book contém dicas, truques e exercícios resolvidos abrangendo os tópicos: Python básico, matemática e estatística, banco de dados, programação dinâmica, strings e caracteres, entrada e saída, estruturas condicionais, vetores e matrizes, funções, laços, recursividade, internet, arquivos e diretórios, programação orientada a objetos e muito mais.
Ver Conteúdo do E-book
E-Book 350 Exercícios Resolvidos de Java - PDF com 500 páginas
Domine lógica de programação e a linguagem Java com o nosso E-Book 350 Exercícios Exercícios de Java, para você estudar onde e quando quiser.

Este e-book contém exercícios resolvidos abrangendo os tópicos: Java básico, matemática e estatística, programação dinâmica, strings e caracteres, entrada e saída, estruturas condicionais, vetores e matrizes, funções, laços, recursividade, internet, arquivos e diretórios, programação orientada a objetos e muito mais.
Ver Conteúdo do E-book

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: C
6º lugar: Delphi
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby



© 2025 Arquivo de Códigos - Todos os direitos reservados
Neste momento há 29 usuários muito felizes estudando em nosso site.