| 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
|