Você está aqui: VBA ::: Dicas & Truques ::: Collections, Coleções |
Como usar Collections em VBA - Diferença entre Collections e arrays em VBAQuantidade 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 |
![]() |
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 |
AutoCAD Civil 3D .NET C# - Como retornar a quantidade de estacas de um alinhamento do Civil 3D usando a função GetStationSet() da classe Alignment da AutoCAD Civil 3D .NET API |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
1º lugar: Java |