EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
supondo que tens essa massa de dados na coluna a, linha a linha (a1, a2,a3, etc), iniciando em a1, então, por exemplo em b1 colocas o seguinte código, copiando pela coluna b abaixo( b2, b3, etc):
=data.valor(seg.texto(a1;4;2) & “/” & seg.texto(a1;1;2) & “/” & seg.texto(a1;7;4)) + valor.tempo(seg.texto(a1;12;2) & “:” & seg.texto(a1;15;2))
depois, formatas a coluna b, personalizada, do seguinte modo: tipo – dd/mm/aaaa hh:mm
se tudo correr bem, ficarás com 14/08/2012 18:38, etc…
fica bem e diz qq coisa, ok?
1. run cmd under administrator mode
2. run “regsvr32 mscomctl.ocx” without the quote
foi o que li e disseram que o problema foi resolvido.
boas,
como diz o wagner, em células mescladas (unidas), não dá o que a dina pretende. neste caso, ou se aumenta a altura da linha ou a largura da coluna, ou ainda tenta-se colocar letra com pitch menor, etc.
dina,
se, na célula onde escreves, ao finalizares a linha, carregares nas teclas alt+enter, aumenta-te o tamanho da célula (na vertical) e podes escrever continuadamente, desde que, sempre, faças o que atrás mencionei. outra hipótese, é criares uma textbox à tua medida, que irá ter o tamanho que pretenderes para escreveres.
se tiveres dúvidas e não te importares, ou colocas aqui a tua planilha ou então, se não tiveres problema, manda-me por e-mail (mai@exceler.org). como sempre, neste caso, será, evidentemente, nda.
olá milena,
manda-me a planilha por e-mail (mail@exceler.org), porque aqui não a colocaste. não é possível colocá-la, se tiver macros (.xlsm) se não estiver em formato zip.
fico à espera, para poder perceber melhor o que pretendes, ok?
fica bem.
olá milena barroso,
vê a planilha que te envio em anexo e tenta adaptar. tem vba.
jkf…
alterei o código do módulo userform_activate, para ficar mais simples e eficaz. no entanto, deixei o código anterior como comentário, para se poder ver a diferença…
‘—————————————————————————————
‘ procedure : userform_activate
‘ datetime : 12-08-2012 02:15
‘ author : jorge rodrigues
‘ purpose : ao abrir o userform, limpa o conteúdo das duas textbox e formata a textbox2 com 2 casas decimais
‘—————————————————————————————
‘
private sub userform_activate()
‘dim ctrl as controltextbox1.text = empty
textbox2.text = empty‘for each ctrl in me.controls
‘if typename(ctrl) = “textbox” then
‘ctrl.text = “”
‘end if
‘next ctrltextbox2.text = format(textbox2.text, “#000.00”)
textbox1.setfocusend sub
boas, jkf…
em anexo, envio-te uma planilha, que contém, espero, aquilo que pretendes:
diz qq coisa, ok?
Converte_RealDolar.zipvê a planilha que te envio, com o que pretendes e a funcionar, acho eu 🙂
fica bem e diz qq coisa, ok?
Wagner_Protege_Desprotege.zipwagner,
não podes usar inputbox. tens que utilizar o inputboxdk, como é referido no post e tens que colocar num módulo o código do daniel klann.
fica bem.
=(ano(b1)-ano(a1)) —>2 anos
=(ano(b1)-ano(a1))*12 –> 24 meses
=mÊs(b1)-mÊs(a1) –> 11 mesesentão:
=(ano(b1)-ano(a1))*12+mÊs(b1)-mÊs(a1)+1wagner,
e se a linha a apagar for por exemplo, a 9? desse modo, a tua linha 10, não passará para 9?
se fosse a primeira linha, eu perceberia que não poderia ser nunca apagada, porque, acima dela, não haveria mais nenhuma. agora, da forma como referes…
de qualquer modo, podes tentar adaptar este módulo, embora ache a dinâmica um pouco difícil…
option explicit
private sub workbook_sheetchange(byval sh as object, byval target as range)
dim linhapadrao
linhapadrao = 1
if target.row = linhapadrao then ‘ supondo que a tua linha é esta…
with application
.enableevents = false
.undo
msgbox “não é possível apagar esta linha!!!!”, 16
.enableevents = true
end withelse
exit sub
end if
end sub
olá wagner,
há algumas possibilidades, uma delas, poderás ver em:
no entanto, acho que o melhor para este tipo de situações, é a informação no denominado statusbar:
no início da tua macro:
application.screenupdating = false
application.statusbar = “aguardando…”
no fim da tua macro:
application.screenupdating = true
