- Este tópico contém 4 respostas, 3 utilizadores e foi actualizado pela última vez há 11 anos, 1 mês por patropi.
-
AutorArtigos
-
-
16 de Março de 2013 às 15:59 #1305AnónimoInactivo
boa 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 às 12:24 #2132patropiParticipante
bom 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 às 13:15 #2133AnónimoInactivo
obrigada!
É 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 às 13:25 #2134patropiParticipante
foi 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 às 19:20 #1306jorgerodAdministrador
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.
-
-
AutorArtigos
- Tem de iniciar sessão para responder a este tópico.