 |
|
Você está aqui: VBA ::: Dicas & Truques ::: Matemática e Estatística |
Como calcular Média Harmônica em VBA - VBA para Matemática e EstatísticaQuantidade de visualizações: 308 vezes |
|
A média harmônica é usada, no estudo da estatística, em situações que envolvem grandezas inversamente proporcionais. Podemos citar, como exemplos, problemas que envolvem densidade, tempo e velocidade, tempo e vazão, entre outros. Em um conjunto de valores, para calcular a média harmônica, dividimos a quantidade de elementos pela soma do inverso de cada um dos elementos do conjunto. Veja a Fórmula da Média Harmônica para os valores [3, 9, 7, 2, 5]:  Note que, na fórmula, o número 5 equivale à quantidade de elementos no conjunto. Vamos agora ver como calcular a Média Harmônica na linguagem Excel VBA? Eis o código completo: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
' Macro que permite obter a média harmônica de um conjunto
Sub CalcularMediaHarmonica()
' vamos declarar o array
Dim valores As Variant
' para guardar a quantidade de elementos
Dim n As Integer
' para guardar a média harmônica
Dim media_harmonica As Double
' guarda a soma dos inversos dos elementos do conjunto
Dim soma As Double
Dim i As Integer
' vamos criar um vetor com os valores do conjunto
valores = Array(3, 9, 7, 2, 5)
n = (UBound(valores) - LBound(valores)) + 1
soma = 0
' vamos mostrar os elementos do conjunto
Debug.Print "Os elementos do conjunto são: " & _
Join(valores, ", ")
' agora vamos somar os inversos dos elementos
For i = 0 To n - 1
soma = soma + (1 / valores(i))
Next
' agora obtemos a média harmônica
media_harmonica = n / soma
' e mostramos o resultado
Debug.Print "A Média Harmônica é: " & media_harmonica
End Sub
Ao executar este código Excel VBA nós teremos o seguinte resultado na janela de Verificação Imediata: Os elementos do conjunto são: [3.0, 9.0, 7.0, 2.0, 5.0] A Média Harmônica é: 3.8840937114673246 |
 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: 374 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: 346 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 |
|
C - Como comparar os primeiros n caracteres de duas strings usando a função strncmp() da linguagem C |
Códigos Fonte |
 Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimentoDiga 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 |
 Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesTenha 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 |
Linguagens Mais Populares |
|
1º lugar: Java |
