Alguém sabe como alterar o realce da célula ativa, borda, para também o fundo.
Ou através de macro…
@Gilberto Shiavinatto não consegui entender o que precisa. Precisa alterar a cor, borda de uma célula ativa conforme alguma condição? Formatação Condicional não ajuda?
Ola @Conras, a célula ativa sempre fica com a borda realçada e o número da linha e a letra da coluna, certo.
Gostaria de ter a opção de também o fundo da célula ficar de cor escolhida.
Ou seja na imagem acima a célula C9 é atualmente como fica a célula ativa, aparece a borda, gostaria que ficasse como em E9, aparecesse a borda e fundo.
Tenho esta macro:
Sub cellaattiva(Target)
On Error Resume Next
OldCell.IsCellBackgroundTransparent = true
Target.CellBackColor = RGB(194,224,174)
OldCell = Target
End Sub
que faz parcialmente, ela pinta a fundo qdo ativa, porem não tira quando o foco sai dela.
Ela esta ligada a Eventos de planilha / Seleção alterada.
E se vc mudasse o código da linha 3
OldCell.IsCellBackgroundTransparent = true
– por esse código:
OldCell.CellBackColor = RGB(255,255,255)@Gilberto Schiavinatto
Teste este
Sub ChangeCellColor
oSel = ThisComponent.CurrentSelection(0)
If oSel.supportsService("com.sun.star.sheet.SheetCell") Then
CurrentColor = oSel.CellBackColor
If CurrentColor = -1 Then
oSel.CellBackColor = RGB(194,224,174)
else
oSel.CellBackColor = -1
End if
End if
End Sub
Pode deixar com o Evento Seleção Alterada, mas para mudar de cor, precisa clicar uma segunda vez.
@mrkalvin, @Conras cheguei em uma solução alternativa…
usei formatação condicional:
A formula é: OU(A1="";A1<>""), colocar SemFundo (Fundo transparente), em conjunto com a macro:
Sub cellaattiva(Target)
Target.CellBackColor = RGB(194,224,174)
OldCell = Target
End Sub
A célula fica colorida qdo inicia a digitação, ao dar Enter volta a ser transparente.
Coloquei a Condicional, em A1 para copiar onde necessária, pois existem células coloridas por outro motivo, se fosse a Condicional para a planilha toda não teria como colorir qualquer célula.
Não é o ideal, mas ficou mais próximo, continuo aceitando sugestão.
Olá, gostaria de fazer o mesmo no meu Calc, mas destacando a linha inteira que estiver ativa. No entanto, eu não sei como adicionar macros. Nunca fiz nada parecido. Se alguém pudesse mostrar um passo a passo, eu ficaria muito grata. Obrigada.
https://www.schiavinatto.com/mundolibre/como-incluir-macro-em-arquivo-calc..html
VEJA o segundo exemplo do @schiavinatto
Usa Macro, Formatação Condicional e Eventos de Planilha (Seleção alterada).
Se precisar de ajuda direta, ao seu dispo, gilberto@schiavinatto.com
1 Like