Neste artigo, criaremos uma função personalizada para calcular a soma dos dígitos em uma célula.
Os dados de amostra para este exemplo consistem em dados de vendas. Cada agente vendeu um produto diferente. Em uma célula, temos a contagem do item vendido seguido do nome do produto. Queremos encontrar o item total vendido por cada agente.
Criamos a função “SumDigits” para calcular a soma dos dígitos na célula. Esta função pega o intervalo da célula como entrada e retorna a soma dos dígitos na célula.
Explicação lógica
Criamos a função personalizada “SumDigits” para calcular a soma dos dígitos em uma célula. Nesta função, encontramos o comprimento da string na célula e, em seguida, fazemos um loop do primeiro caractere ao último caractere da string. Em seguida, encontramos e adicionamos os valores numéricos encontrados na string para obter a soma dos dígitos.
Explicação do código
Mid (número, i, 1)
A função Mid é usada para extrair a string secundária da string principal. O código acima irá extrair um caractere da string principal por vez.
IsNumeric (valor)
A função IsNumeric é usada para verificar se o valor fornecido é numérico.
Val (valor)
A função Val é usada para converter a string em valor numérico.
Siga abaixo para o código
Função Explícita da Opção SumDigits (Number As Variant) Dim i As Integer For i = 1 To Len (Number) If IsNumeric (Mid (Number, i, 1)) Then SumDigits = SumDigits + Val (Mid (Number, i, 1)) End If Next i End Function
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail