EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
boas, renato,
depois de teres explicado o que pretendes, acho que agora estará ok.
experimenta e diz qq coisa, ok?
cÓdigo:
'---------------------------------------------------------------------------------------
' procedure : textbox2_exit
' author : jrod
' date : 19/03/2013
' purpose : se a resposta é negativa, então o foco mantém-se no textbox2
'---------------------------------------------------------------------------------------
'
private sub textbox2_exit(byval cancel as msforms.returnboolean)
dim resposta as stringwith textbox2
if len(.value) = 0 then
resposta = msgbox("tem certeza que deseja sair?", vbyesno, "fechar aplicativo")
if resposta = vbno then
cancel = true
else
exit sub
end if
end if
end with
end subrenato,
verifica esta possibilidade:
for each ctrl in controls
if txos.text = vbnullstring then
resposta = msgbox(“tem certeza que deseja sair?”, vbyesno, “fechar aplicativo”)
if resposta = vbyes then
ufid.hide
application.visible = true
else
txos.setfocus
end if
end if
next ctrlse não for isto, acho que o melhor é colocares uma planilha de exemplo, com o código todo que tens no teu userform, para se poder ver melhor, ok?
fica bem.
talvez:
if txos.text = vbnullstring then
resposta= msgbox (“tem certeza que deseja sair?”, vbyesno, “fechar aplicativo”)
if resposta = vbyes thentxtanswer.setfocus
exit sub
end if
end ifatenção… não testei …
albino,
experimenta:sub carta()
set rng1 = worksheets(“quadro”).range(“a3”)
set rng5 = worksheets(“quadro”).range(“c8”)application.screenupdating = false
set rng2 = rng1.offset(0, 2)
set rng3 = rng1.offset(0, 5)
set rng4 = rng5.offset(0, 1)worksheets(“carta”).[s2] = rng2
worksheets(“carta”).[s4] = rng3worksheets(“carta”).[s6] = rng4
application.screenupdating = true
range(“c3”).select
end sub
fica bem e diz qq coisa.annlee,
com a formatação condicional, não é possível fazer o que pretendes, uma vez que, a cor não é dada através do segmento interior.colorindex. ora, a cor vermelha é a 3. se experimentares este código, verás que te dará a resposta de não existir nenhuma célula colorida de vermelho na tua planilha, embora estejas a ver através da formatação condicional. deste modo, não podes fixar o range a partir das células coloridas, para poderes colocar borders. não sei se me fiz entender…
eis o código que referi, para veres:
sub selectcolor()
dim rgtocheck as range
dim rgselect as range
dim cl as range, mycolorindex as longset rgtocheck = range(“d:n”)
mycolorindex = 3for each cl in intersect(activesheet.usedrange, rgtocheck)
if cl.interior.colorindex = mycolorindex then
if rgselect is nothing then
set rgselect = cl
else
set rgselect = union(rgselect, cl)
end if
end if
next cl
if rgselect is nothing then
msgbox “o colorindex ” & mycolorindex & ” não foi encontrado.”
else
rgselect.select
end if
end subfica bem.
albino,
vÊ em http://www.myonlinetraininghub.com/excel-offset-function-explained
e em: http://chandoo.org/wp/2012/09/17/offset-formula-explained/
julgo que lá está tudinho explicado, nomeadamente a utilização de ranges.
diz qq coisa, ou então, manda um exemplo numa planilha, ok?
fica bem.
siqueira,
tenta o seguinte, que vi sobre o assunto (espanhol):
consideremos la serie valores 1 y supongamos que queremos obtener una línea continua. para lograrlo seleccionamos el gráfico y abrimos el menú herramientas-opciones. en la pestaña gráfico seleccionamos la opción “trazar celdas vacías como…” –> interpolar
em princípio, os valores 0 ou vazios, não serão tidos em conta no gráfico.
também podes ver em :
diz qq coisa, ok?
siqueira,
a função correcta não é a função máximo(), mas a função maior().
vê em: http://office.microsoft.com/pt-br/excel-help/maior-hp005209151.aspx
fica bem e diz qq coisa, ok?
wagner,
embora, de um modo geral, tal não seja possível, vê o que tem o mvp andy pope, em:
http://www.andypope.info/vba/userformdraw.htm
fica bem e diz qq coisa, ok?
