VBA - Detecção de células modificadas

Novembro 2016



Exemplo de um MFC (Microsoft Foundation Classes) com mais de 3 condições.

Private Sub Worksheet_Change(ByVal Target As Range)   
Dim Cel As Range   
    For Each Cel In Target   
        'Adaptar o/os trecho/os.    
        If Not Intersect(Cel, Range("B1:B30,D1:D30")) Is Nothing Then   
            Select Case Cel.Value   
            Case 5 To 10: Cel.Interior.Color = vbRed   
            Case 11 To 20: Cel.Interior.Color = vbGreen   
            Case 21 To 30: Cel.Interior.Color = vbBlue   
            Case 31 To 50: Cel.Interior.Color = vbYellow   
            Case Else: Cel.Interior.ColorIndex = xlNone   
            End Select   
        End If   
    Next Cel   
End Sub


Claro que é possível fazer outras operações.


Tradução feita por Lucia Maurity y Nouira


Veja também :
Este documento, intitulado « VBA - Detecção de células modificadas »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.