Planilha Excel VBA cursor 2 formata cursor restitui cor antiga
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
SBI – SABEREXCEL PLANILHAS INTELIGENTES
Cursor ao selecionar insere cor e ou restitui a cor anterior
Observe que o procedimento cria duas Range Nomeadas para realização do exercício. Usei o Evento de Planilhas WorkSheet_SelectionChange() ao selecionar determinada área da folha de planilha, também delimitei a área para a seleção para sensibilizar o evento:
‘se for nessa área delimitada e o usuário selecionar somente uma célula
If Not Intersect([D6:G25], Target) Is Nothing And Target.Count = 1 Then
(***) pratique e decore essa linha de código acima: faça até que consiga sem olhar e entender o que esta fazendo
‘lembre-se — Target Representa a célula ativa (você poderá renomear esse Target para qualquer nome como explico nas video-aulas sobre eventos de planilhas).
Fique com Deus, Bons Estudos:
‘//=========’
‘planilhas inteligentes escola saberexcel vba estudos®’ treinamentos com macros, fórmulas e funções.
‘lembre-se o evento criará automaticamente o Range Nomeado ‘Ao selecionar’
‘Eventos ficam na folha de código da folha de planilha e não nos módulos comuns(veja os vídeos)
‘//===========’EVENTO SELECTIONCHANGE()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If [memoENDERECO] <> “” Then Range([memoENDERECO]).Interior.ColorIndex = [memoCOR]
ActiveWorkbook.Names.Add Name:=”memoENDERECO“, RefersToR1C1:=””
If Not Intersect([D6:G25], Target) Is Nothing And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:=”memoENDERECO“, RefersToR1C1:=”=” & Chr(34) & Target.Address & Chr(34)
ActiveWorkbook.Names.Add Name:=”memoCOR“, RefersToR1C1:=”=” & Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6 ‘colorir celula ativa (cursor) amarelo…
End If
End Sub
(*) observe também que quando voce clicar fora da área apagará uma das Range Nomeadas
[memoENDERECO], preservando somente [memoCOR] ‘faça o teste usando o macro |
IMPREDINDO USUARIO DE INSERIR LINHAS OU COLUNAS
Truque usado para não permitir a inserção de linhas ou colunas
fui na ultima célula na ultima coluna e inseri uma letra (Saberexcel) se inserir um ( . ) um ponto já é o suficiente.
Bons Estudos
Fiquem com Deus,
Expedito Marcondes.
![](https://escola.saberexcel.com.br/wp-content/uploads/2013/08/linazul.jpg)
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
Compre pelo PagSeguro | Compre pelo PayPal | |
![]() |
![]() |
|
Material Didático: Curso Excel VBA Expert |
![]() |
![]() |
![]() |
<< Link Download: verifique a caixa de itens excluídos >> |
Planilha Excel VBA cursor 2 formata cursor restitui cor antiga