EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
boas, antimo,
tenta adaptar:
private sub worksheet_change(byval target as range)
if target.cells.count > 1 then exit sub
if intersect(target, range(“b4:g43”)) is nothing then exit sub
with target
select case lcase(.value)
case is = “1”: .interior.colorindex = 5
case is = “31”: .interior.colorindex = 6
case is = “15”: .interior.colorindex = 7
case is = “17”: .interior.colorindex = 8
case is = “45”: .interior.colorindex = 9
case else
.interior.colorindex = xlnone
end select
end withend sub
diz qq coisa, ok?
albino,
tomando como exemplo o resultado da célula au22, que é 46,75, o que se pretende é que a parte decimal seja convertida em minutos, ou seja, 75% de 60 minutos = 45 minutos.
experimenta, então, a seguinte fórmula: =int(au22)&”:”&arred(resto(au22;1)*60;0)
o resultado que vai aparecer, será 46:45
albino:
vamos tentar fazer umas contas: tens 06h:45m. supondo que o valor da hora é 10 €: então, 6 horas, serão 60 € e 45 da hora (que são 60 minutos) corresponderão a 7, 5 €, não é? ou seja, se 60 minutos correspondem a 10 €, 45 minutos corresponderão a xis – regra de 3 simples. o resultado será: (45 x 10o) / 60 = 7,5. então resultado será: 60,00 + 7,50 = 67,50 €
então, se tiveres na célula, o valor 6,75 e multiplicares por 10 € (valor da hora), quanto é que te irá dar? o resultado não será também 67,5 €?
ou seja, na minha perspectiva, a fórmula está correcta e o resultado que lá se encontra, também. podes ver se está correcto o meu raciocínio?
diz qq coisa.
boas, albino,
abre o ficheiro e vê as alternativas que eu experimentei… verifica que eu transformei a soma em valor numérico com decimal. assim, por exemplo, 44:30, passam a ser 44,5. por outro lado, experimentei o arredondamento para cima, ou seja, por exemplo, se forem 15 minutos, passa para 30; se forem 50 minutos, passa para a hora seguinte. não sei se é isto que pretendes, mas sempre é mais um exercício…
fica bem e diz qq coisa, ok?
boas, albino,
vê o ficheiro que agora te envio e verifica se é isto o que pretendes.
boas,
o exemplo do código que apresento, obriga a que, ao digitares um valor qualquer numa célula da coluna a (que deverá ser sempre a 1ª célula vazia abaixo), tenhas que dar enter.
por exemplo: supondo que tens a célula a1 preenchida, sendo que as células c1 e d1 e i1 e j1 contêm as tais fórmulas que queres copiar para c2, d2, i2 e j2. então, terás que digitar qualquer coisa em a2 e dares enter, o que quer dizer que a célula activa passará a ser a a3.
crias um botão de comando na tua planilha ( formatado em propriedades como ) e associas-lhe então este possível código:
option explicit
sub rectânguloarredondado1_click()
dim mynum as integer
dim msg as stringfor mynum = 1 to 50
if activecell.address = range(“a” & mynum).address then
activecell.offset(-1, 0).select
activecell.offset(0, 2).select
range(activecell, activecell.offset(0 – 1, 3)).copy destination:= _
sheets(1).range(“c” & rows.count).end(xlup).offset(1, 0)
activecell.offset(0, 6).select
range(activecell, activecell.offset(-1, 7)).copy destination:= _
sheets(1).range(“i” & rows.count).end(xlup).offset(1, 0)‘ msg = msgbox(prompt:=”copiou com sucesso”, title:=”informação”)
end ifnext mynum
end sub
experimenta e diz qq coisa.
outras possíveis soluções são bem-vindas!!! 😉
vê se consegues visualizar o ficheiro que te envio agora.com a alteração efectuada pelo webmaster bruno castro, está muito mais simples. um obrigado para ele!!! 🙂
no ficheiro zipado está uma possível solução, embora haja mais possibilidades, que agradeço sejam aqui colocadas pelos membros 😉 .
um abraço a todos e obrigado.
albino,
parece estar a haver um problema. vou ter que enviar um mail ao bruno, que é o supervisor do site. talvez só amanhã ou depois seja possível anexar ficheiros. depois eu digo alguma coisa.
obrigado.
não deves enviar com o formato .xls ou .xlsm, tens que enviar zipado.
depois de procurares o ficheiro em causa, e te aparecer o caminho no campo, clicas em image. há-de aparecer-te qualquer coisa como [image]. isto contém o caminho para efectuar o upload do ficheiro. se clicares em previsualizar, não o verás, apenas quando clicas em enviar é que o ficheiro, tal como o post escrito, é registado no site.
podes mandar uma planilha com o exemplo? É que não se percebe em que célula da coluna a se digita, ou se é em qualquer célula da coluna a.
tenta explicar melhor.
albino,
penso que deverás formatar a célula ar22, em modo personalizado: [hh]:mm:ss.
e na célula bm22, talvez =ar22*24*9
experimenta e diz qq coisa
