Como constante 0 no intervalo quando o número não é digitado

Question

Na célula A1 , digitei um número como 10. Se eu excluir o número 10 da célula A1 , quero que 0 seja constante na célula A1 automaticamente, em vez da entrada manual de 0?

    

Answer 1

Este é um trabalho para Macros, embora você não tenha marcado.

A Formatação numérica não pode ser usada aqui, pois a célula é nula.

Coloque o código abaixo em suas macros, por algum motivo eu tive que colocar isso no código em "Sheet1" - quando eu tentei criar um módulo separado (o que normalmente faria) ou colocá-lo em "ThisWorkbook" ele não pegou.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rMonitor As Range, cell As Range

    ' Change this Range to match what you want to monitor (eg, just A1:A20)
    Set rMonitor = Range("A1:G20")

    For Each cell In Target
        If Not Intersect(cell, rMonitor) Is Nothing Then
            If cell = "" Then
                cell = 0
            End If
        End If
    Next cell

    Set rMonitor = Nothing
        Set rTarget = Nothing
End Sub