 |
|
||||
Você está aqui: VBA ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes) |
Como retornar o tamanho de um array em VBA usando as funções UBound() e LBound()Quantidade de visualizações: 380 vezes |
|
Nesta dica mostrarei como podemos usar as funções UBound() e LBound() do VBA para retornar a quantidade de elementos em um array, ou seja, o tamanho do vetor. A função UBound() retorna o índice superior do array, enquanto LBound() retorna o índice inferior. Veja o código VBA completo para o exemplo: ----------------------------------------------------------------------
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 retornar o tamanho de um array em VBA
Sub RetornarTamanhoArray()
' vamos declarar o array
Dim vetor As Variant
' para guardar a quantidade de elementos
Dim tamanho As Integer
' agora vamos definir os valores do array
vetor = Array(5, 2, 9, 10, 3, 7)
' vamos exibir a quantidade de elementos no array
tamanho = (UBound(vetor) - LBound(vetor)) + 1
MsgBox "O array possui " & tamanho & " elementos."
End Sub
Ao executarmos este código VBA nós teremos o seguinte resultado: O array possui 6 elementos. |
 Link para compartilhar na Internet ou com seus amigos: |
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 |
VBA ::: Dicas & Truques ::: Rotinas de Conversão |
Como converter números em strings em VBA usando a função CStr()Quantidade de visualizações: 405 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 |
Vamos testar seus conhecimentos em |
| Dimensionamento de pilares de canto Os pilares de canto são solicitados pela flexão oblíqua, tendo momentos de 1ª ordem e excentricidades nas direções x e y. Analise os dados para o pilar a seguir:  Qual o valor das excentricidades no topo e na base do referido pilar, em x e y? A) e1,x,A = 1,02cm. e1,x,B = 1,31cm. e1,y,A = 2,05cm. e1,y,B = 1,75cm. B) e1,x,A = 1,52cm. e1,x,B = 1,31cm. e1,y,A = 2,22cm. e1,y,B = 1,99cm. C) e1,x,A = 2,10cm. e1,x,B = 1,56cm. e1,y,A = 1,50cm. e1,y,B = 1,99cm. D) e1,x,A = 2,78cm. e1,x,B = 1,32cm. e1,y,A = 1,50cm. e1,y,B = 1,99cm. E) e1,x,A = 1,78cm. e1,x,B = 1,32cm. e1,y,A = 1,22cm. e1,y,B = 0,99cm. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Java |
Analise o seguinte código Javadouble a = 0.0 / 0; System.out.println(a); Qual é o resultado de sua execução? A) Infinity B) NaN C) Uma exceção java.lang.ArithmeticException: / by zero D) 0 Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em AutoCAD Civil 3D |
| Topografia no Civil 3D São linhas usadas para representar a topografia, mostrando as mudanças de elevação no terreno. Essas linhas conectam posições com a mesma elevação em uma superfície. Estamos falando de: A) Control Points (Pontos de Controle) B) Breaklines (Linhas de Quebra) C) Contour Lines (Curvas de Nível) D) Feature Lines (Linhas de Características) E) Parcels (Parcelas, Lotes) Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em |
| Materiais de construção Qual a definição de dureza? A) A relação entre a massa do componente com o mesmo volume de agua destilada em temperatura específica. B) Resistência que o material oferece à penetração de um corpo duro. C) A relação entre massa e volume. D) O espaço que determinada quantidade de material ocupa. E) Propriedade do material de ocupar determinado lugar no espaço. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Java |
Analise o seguinte código Javadouble a = 0.0 / 0; System.out.println(a); Qual é o resultado de sua execução? A) Infinity B) NaN C) Uma exceção java.lang.ArithmeticException: / by zero D) 0 Verificar Resposta Estudar Cards Todas as Questões |
Veja mais Dicas e truques de VBA |
Dicas e truques de outras linguagens |
|
JavaScript - Como remover elementos duplicados de um array em JavaScript usando as funções filter() e indexOf() do objeto Array |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
