como realçar a linha e coluna

Como pintar uma célula, como formatar uma borda, funções básicas! Se você não sabe em que categoria postar a sua dúvida, escreva aqui que depois nós mudamos o tópico.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

como realçar a linha e coluna

Mensagempor tadeuz » Qua Jun 19, 2019 2:00 pm

boa tarde
como faço para realçar a linha e coluna que estou , isto deixar no destaque tipo a coluna B e linha 10, enchendo a coluna e linha de alguma cor hoje fica tudo so com uma risca.
grato
tadeuz
Membro
Membro
 
Mensagens: 11
Registrado em: Qui Jun 13, 2019 11:00 am
Has thanked: 2 times
Have thanks: 0 time

{ SO_SELECT }

Re: como realçar a linha e coluna

Mensagempor wagner » Qua Jun 19, 2019 3:40 pm

tadeuz,

Boa tarde!

Cole o código abaixo dentro do módulo da aba que deseja destacar a linha e a coluna selecionada com cores.
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Dim Coluna As String
    Dim Linha As Long
    Dim ColunaAnterior As String
    Dim LinhaAnterior As Long
    Dim ColunaPosterior As String
    Dim LinhaPosterior As Long
   
    If Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
    End If

    Coluna = Letra_da_Coluna(Target.Column)
    Linha = Target.Row
    ColunaAnterior = Letra_da_Coluna(Target.Column - 1)
    LinhaAnterior = Target.Row - 1
    ColunaPosterior = Letra_da_Coluna(Target.Column + 1)
    LinhaPosterior = Target.Row + 1

    If Columns(ColunaAnterior & ":" & ColunaAnterior).Interior.ColorIndex = 6 Or Columns(ColunaPosterior & ":" & ColunaPosterior).Interior.ColorIndex = 6 Then
        Columns(ColunaAnterior & ":" & ColunaAnterior).Interior.ColorIndex = -4142
        Columns(ColunaPosterior & ":" & ColunaPosterior).Interior.ColorIndex = -4142
    End If

    If Rows(LinhaAnterior & ":" & LinhaAnterior).Interior.ColorIndex = 6 Or Rows(LinhaPosterior & ":" & LinhaPosterior).Interior.ColorIndex = 6 Then
        Rows(LinhaAnterior & ":" & LinhaAnterior).Interior.ColorIndex = -4142
        Rows(LinhaPosterior & ":" & LinhaPosterior).Interior.ColorIndex = -4142
    End If

    Columns(Coluna & ":" & Coluna).Interior.ColorIndex = 6
    Rows(Linha & ":" & Linha).Interior.ColorIndex = 6
    Application.EnableEvents = True
End Sub
Public Function Letra_da_Coluna(Número As Long) As String
    Dim Coluna As String
    '========================================================
    'Descobrir a letra da Coluna a partir do número da mesma)
    '========================================================
   
     
     Coluna = Cells(1, Número).Address
     Letra_da_Coluna = Mid(Coluna, InStr(Coluna, "$") + 1, InStr(2, Coluna, "$") - 2)
End Function

Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5581
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2361 times

Re: como realçar a linha e coluna

Mensagempor tadeuz » Ter Jun 25, 2019 12:52 pm

meu amigo,
grato pela resposta e presteza não não eh o que preciso , eh coisa mais simples

eh simplesmente realçar a letra da coluna e o numero da linha.

porque uso esta formula que enviou nao consigo criar contornos de celulas,

se puder ajudar fico grato.
tadeuz
Membro
Membro
 
Mensagens: 11
Registrado em: Qui Jun 13, 2019 11:00 am
Has thanked: 2 times
Have thanks: 0 time

Re: como realçar a linha e coluna

Mensagempor wagner » Ter Jun 25, 2019 1:29 pm

Entendi mas... realçar a letra da coluna e o número da linha relativo a célula que está selecionada, o Excel já faz isso por padrão.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5581
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2361 times

Re: como realçar a linha e coluna

Mensagempor JSCOPA10 » Ter Jun 25, 2019 1:55 pm

.
wagner, esse código é legal (já usei um parecido), mas como disse o tadeuz, o problema dele é que ele mata toda e qualquer formatação do arquivo (bordas, cor etc etc) !!!
.
tadeuz, como o wagner já disse, por padrão o Excel já destaca a letra da coluna e o número da linha!! ... Além disso ele mostra as coordenadas lá em cima, antes do campo de formulas!!!
.

For this post the author JSCOPA10 thanked:
wagner (Qui Jul 04, 2019 1:12 pm)
Avatar do usuário
JSCOPA10
Ninja do Excel
Ninja do Excel
 
Mensagens: 240
Registrado em: Qua Jun 19, 2019 9:11 pm
Has thanked: 23 times
Have thanks: 79 times

Re: como realçar a linha e coluna

Mensagempor tadeuz » Qui Jul 04, 2019 11:02 am

caros colegas agradeço mesmo a ajuda,
uso o execel do oficce 365,
la a coluna e linha, nãofica destacado,
teria como destaca-los,
grato
tadeuz
Membro
Membro
 
Mensagens: 11
Registrado em: Qui Jun 13, 2019 11:00 am
Has thanked: 2 times
Have thanks: 0 time

Re: como realçar a linha e coluna

Mensagempor gtsalikis » Qui Jul 04, 2019 3:53 pm

Não uso o Office 365, então não sei se isso se aplica, mas você pode tentar. Veja o tópico que criei:

viewtopic.php?f=28&t=31450&p=154698#p154698

JSCOPA10, concordo contigo, por isso prefiro a solução acima.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

 Gilmar
gtsalikis
Ninja do Excel
Ninja do Excel
 
Mensagens: 2451
Registrado em: Sex Out 12, 2012 3:26 pm
Has thanked: 51 times
Have thanks: 1228 times


Voltar para Excel - O básico

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes