Evento Worksheet.Change (Excel)

Ocorre quando as células da planilha são alteradas pelo usuário ou por um link externo.

Sintaxe

expressão. Alterar (Destino)

expressão Uma variável que representa um objeto de Folha de Cálculo .

Parâmetros

Valor de retorno

Nothing

Comentários

Este evento ocorre quando células são alteradas durante o recálculo. Utilize o evento Calculate para intercetar um recálculo de folha.

Exemplo

O exemplo de código a seguir altera a cor das células alteradas para azul.

Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Font.ColorIndex = 5 
End Sub

O exemplo de código a seguir verifica se, quando um valor de célula é alterado, a célula alterada está na coluna A e se o valor alterado da célula é maior do que 100. Se o valor for maior do que 100, a célula adjacente na coluna B será alterada para a cor vermelha.

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
    If Target.Column = 1 Then 
        ThisRow = Target.Row 
        If Target.Value > 100 Then 
            Range("B" & ThisRow).Interior.ColorIndex = 3 
        Else 
            Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone 
        End If 
    End If 
End Sub

O exemplo de código a seguir define os valores no intervalo A1:A10 como maiúsculas à medida que os dados forem inseridos na célula.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    'Set the values to be uppercase
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.