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. Alteração (Destino)

Expressão Uma variável que representa um objeto Worksheet .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Target	Obrigatório	Range	O intervalo alterado. Pode ser mais de uma célula.

Valor de retorno

Nothing

Comentários

Este evento ocorre quando células são alteradas durante o recálculo. Use o evento Calcular para capturar um recálculo de planilha.

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.