Página 1 de 1
Destacar o conteúdo da célula ativa na planilha
Enviado: 02 Out 2020 às 11:23
por JapSmart
Olá, bom dia.
Gostaria de saber se é possível destacar o conteúdo de uma célula ativa do Excel, e não a celula toda, através de uma macro. Ou seja, quando a célula for selecionada, o conteúdo (e não a célula) será realçado. Quando mudar o cursor, desfaz-se a marcação que ficará ativa na outra célula. No exemplo a seguir:
http://datab-forum-imagens.s3.amazonaws ... 648368.JPG
O cursor está setado na célula que contem a palavra Matemática, porém só a palavra (conteúdo da célula) foi preenchida com amarelo e não a célula toda.
Desde já agradeço a todos que puderem colaborar.
Re: Destacar o conteúdo da célula ativa na planilha
Enviado: 02 Out 2020 às 11:55
por AfonsoMira
Boas penso que com a caneta do separador desenhar consiga realçar o que pretende.
Destacar o conteúdo da célula ativa na planilha
Enviado: 02 Out 2020 às 13:31
por JapSmart
Obrigado, amigo. A redação do tópico estava incompleta. Fiz uma edição no texto e agora minha necessidade está mais compreensível.
Destacar o conteúdo da célula ativa na planilha
Enviado: 06 Out 2020 às 05:20
por AfonsoMira
Boas, utilizando macro nunca vi.
Penso que não de para fazer o que pretende.
A unica coisa parecida ao que quer com macro seria alterar a cor das letras.
Re: Destacar o conteúdo da célula ativa na planilha
Enviado: 06 Out 2020 às 09:01
por osvaldomp
Concordo com o @AfonsoMira, pois me parece que não existe recurso nativo no Excel para destacar somente o texto.
Um artifício para se obter um efeito "parecido" seria inserir manualmente uma figura na planilha, por exemplo um retângulo formatado sem linha, fundo amarelo e com transparência, e via WS_SelectionChange posicionar o retângulo na célula ativa e ajustar a sua largura com base no número de caracteres do texto contido na célula.
Re: Destacar o conteúdo da célula ativa na planilha
Enviado: 06 Out 2020 às 09:22
por AfonsoMira
Como o @osvaldomp sugeriu, tentei fazer dessa maneira.
Insira uma figura de um rectângulo na folha e lhe dê o nome de "Destaque".
Depois insira este código:
Código: Selecionar todosPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes.Range("Destaque")
.Left = Target.Left + 5
.Top = Target.Top + 5
.Height = Target.Height - 10
.Width = Target.Width - 10
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Fill.Transparency = 0.6000000238
.Fill.Solid
.Line.Visible = msoFalse
End With
End Sub
Dá para fazer alguns ajustes mas penso que assim irá funcionar para você.
