Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problema com Porcen...
 
Notifications
Clear all

Problema com Porcentagem que não vem correto na célula

 
2024 - VBA & Macros
5 Posts
1 Usuários
0 Reactions
832 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou com problemas de formatação de porcentagem os valores na variável vem por exemplo assim 88,63636363 mas quando chega na célula imprime assim 8.86%

O que será que esta acontecendo ?

Dim somaHora As Double
Dim totHora As Double
Dim horaDasOpcoes As Double

'CALCULA PORCENTAGEM DIA
c = HoraEmMinutos(wrGerarRelatorios.Cells(2, 4).Value, 0)
horaDasOpcoes = (somaHora * 100) / c
'wrLinha.Cells(lin, col + 2).NumberFormat = "0.0%" ' Ja utilizei isto e não funciona
wrLinha.Cells(lin, col + 2).Value = FormatPercent(horaDasOpcoes, 0)




Function HoraEmMinutos(ByVal hora As Date, ByVal calcHora As Integer) As Double
    
    Dim h As Integer
    Dim m As Integer
    Dim soma As Integer
    
    h = Hour(hora) * 60
    m = h + Minute(hora)
    
    HoraEmMinutos = calcHora + m
    
End Function

Fico no aguardo
Obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/09/2016 5:44 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sem poder visualizar todo o panorama (valores oriundos da planilha, somaHora, horadaopçoes), podemos apenas supor.
Em VBA o separador de milhar e a virgula, e decimal o ponto; assim o valor apontado 88,63...pode ser encarado como 88 mil talvez ai esteja o enrosco.
Poste seu modelo para ter umretorno mais eficaz

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/09/2016 7:11 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo conforme solicitado, segue projeto :)

Os erros estão aqui

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '                                '
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'CALCULA PORCENTAGEM DIA
            'AQUI NÃO VAI A PORCENTAGEM DE MANEIRA CORRETA PARA A CÉLULA
            c = HoraEmMinutos(wrGerarRelatorios.Cells(2, 4).Value, 0)
            horaDasOpcoes = (somaHora * 100) / c
            wrLinha.Cells(lin, col + 2).NumberFormat = "0.0%"
            wrLinha.Cells(lin, col + 2).Value = horaDasOpcoes



            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '                                 '
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'CALCULA PORCENTAGEM MÊS
            'NA ABA GERAR RELATÓRIOS TEM A QTD DE HORA MENSAL QUE É 176:00
            'QUANDO ENVIADO POR PARÂMETRO CHEGA COMO 8:00
            'AQUI MESMO PROBLEMA ACIMA DE PORCENTAGEM, SE CONSEGUIR ENVIAR AS HORAS CORRETAMENTE 176:00
            'TEREMOS O MESMO PROBLEMA DE PORCENTAGEM
            c = HoraEmMinutos(wrGerarRelatorios.Cells(3, 4).Value, 0)
            horaDasOpcoes = (totHora * 100) / c
            wrLinha.Cells(lin, col + 2).NumberFormat = "0.0%"
            wrLinha.Cells(lin, col + 2).Value = horaDasOpcoes

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/09/2016 7:48 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não sei se consegui entender o tipo de conta que é feito, mas para o percentil ser enviado "corretamente" a planilha altere as contas nas linhas abaixo

De: horaDasOpcoes = (somaHora * 100) / c Para : horaDasOpcoes = (somaHora) / c
e
De: horaDasOpcoes = (totHora * 100) / c Para: horaDasOpcoes = (totHora) / c

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/09/2016 6:10 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Realmente é isto Reinaldo, a conta que estava fazendo é uma regra de 3.

440 -------- 100
220 -------- x

(220*100) / 440 = 50 ai pegava o valor na célula que ia 5,0%

Agora com o que você propôs funcionou.

Obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/09/2016 7:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico