Somente números inteiros.

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Somente números inteiros.

Mensagempor iEthan » Ter Set 18, 2018 7:27 am

Pessoal,
Bom dia.

Estou tentando criar uma macro que descarte os números após a vírgula sem descartar o inteiro.
Por exemplo:

886,54
114,46

Esperado:

886,00
114,00


Não dá para simplesmente ocultar as casas decimais porque eu preciso que a soma seja somente dos números inteiros.
Por exemplo:

886,54 + 114,46 = 1001,00

Esperado:

886,00 + 114,00 = 1000,00


Alguém pode me dar essa ajuda? (A soma não precisa fazer parte da macro)

Obs.: Tentei adaptar o código abaixo, mas sem sucesso.

Código: Selecionar todos
Option Explicit
Function Inteiro(Valor As Range) As String

    Dim Texto As String
    Dim Numero() As String
    Dim i As Long
   
    Texto = Valor.Value
    Numero = Split(frase, " ", , vbTextCompare)
   
    For i = 0 To 1
        Inteiro = Inteiro & " " & Numero(i)
    Next
   
End Function
iEthan
Membro
Membro
 
Mensagens: 7
Registrado em: Qui Set 14, 2017 5:32 pm
Has thanked: 3 times
Have thanks: 0 time

{ SO_SELECT }

Re: Somente números inteiros.

Mensagempor Reinaldo » Ter Set 18, 2018 8:25 am

Não entendi o que espera, já que diz
(..A soma não precisa fazer parte da macro..)


De onde virão os valores, o que realmente espera que a "macro" efetue
a rotina/função que dispos
Em Vba pode utilizar Int(seuValor) ou ainda Val(seuValor) que deverá retornar o inteiro
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4240
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 184 times
Have thanks: 1940 times

Re: Somente números inteiros.

Mensagempor wagner » Ter Set 18, 2018 2:11 pm

iEthan,

Boa tarde!

Eu também não entendi o porque do código que você anexou no fórum. Se for apenas pra fazer o que você quer através das próprias funções do Excel, segue exemplo de como fazer.

Se for para fazer a mesma coisa, porém através de macro, explique melhor o que deseja.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4399
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1900 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 5 visitantes