- This topic has 4 replies, 3 voices, and was last updated 13 years, 8 months ago by
patropi.
-
AuthorPosts
-
-
16 de Março de 2013 at 15:59 #1305
Anonymous
Inactiveboa tarde,
pretendo fazer uma formatação condicional num ficheiro que consiste em realçar a coluna do mês que se está analisar. para isso, gostaia de colocar uma linha laranja à volta e colocar a célula onde está escrito o nome do mês a uma cor mais clara (tudo isto para realçar e destacar face aos demais meses.
adiciono um ficheiro para conseguir explicar melhor o que pretendo.
já tentei fazer, mas estou com algumas dificuldades. alguém me pode ajudar por favor?
obrigada!
Example.xlsx -
17 de Março de 2013 at 12:24 #2132
patropi
Participantbom dia
fiz um exemplo, não exatamente como desejas, mas assim poderás ter uma noção de como fazer.
dê retorno.
-
17 de Março de 2013 at 13:15 #2133
Anonymous
Inactiveobrigada!
É uma grande ajuda! o meu problema agora é só criar a linha à volta porque quando o tento fazer ele coloca uma linha em todas as células.
-
17 de Março de 2013 at 13:25 #2134
patropi
Participantfoi o que aconteceu quando tentei fazer.
acho que só dá para fazer usando vba, com formatação eu não consegui.abs.
-
17 de Março de 2013 at 19:20 #1306
jorgerod
Keymasterannlee,
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.
-
-
AuthorPosts
- You must be logged in to reply to this topic.
EXCELer Tudo sobre EXCEL em Português