Descricao: |
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.
 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

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

|