Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application),  insere cor no interior da célula ativa,  acompanhando o cursor, com a determinada pelas células na cor amarela.Observem que o procedimento cria dois Range(Name) 'nomeia células', a célula ativa (vEndereço) e também a cor determinada (vCores), veja no exemplo de planilha, baixe-o no final da página. Fique com Deus, Expedito Marcondes.
(*) - observe que a cor amarelo inserido na formatação é retirada da célula após a seleção de outra célula.
Esse exemplo de planilha faz parte dos Módulos COMO FAZER - PROGRAMAÇÃO MICROSOFT EXCEL VBA - SABEREXCEL



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   On Error Resume Next
   If [vEndereco] <> "" Then Range([vEndereco]).Interior.ColorIndex = [vCores]
      ActiveWorkbook.Names.Add Name:="vEndereco", RefersToR1C1:=""
  
   If Not Intersect([A1:D20], Target) Is Nothing And Target.Count = 1 Then
      ActiveWorkbook.Names.Add Name:="vEndereco", RefersToR1C1:="=" & Chr(34) & Target.Address & Chr(34)
      ActiveWorkbook.Names.Add Name:="vCores", RefersToR1C1:="=" & Target.Interior.ColorIndex
      Target.Interior.ColorIndex = 6
   End If
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha contendo o procedimento acima:
Excel planilha vba cursor colorir celula ativa

Publicidade
Compre com segurança, garantia e ótimos preços