Você está aqui: VBA ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes) |
Como passar um array para uma função VBA - VBA Excel para iniciantesQuantidade de visualizações: 282 vezes |
Em várias situações nós precisamos chamar uma função VBA e passar para ela um array. Nesta dica eu mostro como isso pode ser feito. Veja que temos uma função chamada SomarElementosArray() que possui como parâmetro uma variável do tipo Variant representando um array e retorna um valor do tipo Integer. Esta função é chamada a partir de um procedimento chamado PassarArrayFuncao() que declara e inicializa um array de inteiros, passa para a função, obtém a soma dos seus elementos e o exibe. Veja o código completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ' Função que recebe um array e retorna a soma de seus elementos Function SomarElementosArray(vetor As Variant) As Integer ' para guardar a soma dos elementos Dim soma As Integer Dim i As Integer ' inicializa a soma como zero soma = 0 ' percorre todos os elementos do array For i = 0 To UBound(vetor) soma = soma + vetor(i) Next i ' retorna a soma SomarElementosArray = soma End Function ' Macro que mostra como passar um aray para uma função em VBA Sub PassarArrayFuncao() ' vamos declarar um array de inteiros Dim valores As Variant Dim s As Integer ' vamos inicializar os valores do conjunto valores = Array(4, 2, 1, 5) ' vamos mostrar os elementos do conjunto Debug.Print "Os elementos do conjunto são: " & _ Join(valores, ", ") ' agora vamos chamar a função SomarElementosArray() para ' retornar a soma dos elementos do vetor s = SomarElementosArray(valores) ' e mostramos o resultado Debug.Print "A soma dos elementos é: " & s End Sub Ao executar este código VBA nós teremos o seguinte resultado: Os elementos do conjunto são: 4, 2, 1, 5 A soma dos elementos é: 12 |
![]() |
VBA ::: Dicas & Truques ::: Rotinas de Conversão |
Como converter números em strings em VBA usando a função CStr()Quantidade de visualizações: 272 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 com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ' 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: 262 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 com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ' 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 |
Veja mais Dicas e truques de VBA |
Dicas e truques de outras linguagens |
Quem Somos |
![]() Entre em contato comigo para, juntos, vermos em que posso contribuir para resolver ou agilizar o desenvolvimento de seus códigos.
|
![]() Não basta ter um site. É necessário ter um site que é localizado e converte usuários em clientes. Se sua página não faz isso, Fale comigo e vamos fazer uma analise e conseguir resultados mais satisfatórios..
|
Linguagens Mais Populares |
1º lugar: Java |
Códigos Fonte |
![]() Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
![]() Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |