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

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

5 Posts

1 Usuários

0 Reactions

826 Visualizações

RSS

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

(@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

(@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

(@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