Как сделать константу 0 в диапазоне, когда число не введено

Question

В ячейке A1 меня есть номер, введенный как 10. Если я удаляю число 10 из ячейки A1 я хочу, чтобы 0 автоматически становилось постоянным в ячейке A1 вместо ручного ввода 0?

Answer 1

Это работа для макросов, хотя вы не отметили ее.

Форматирование чисел не может быть использовано здесь, так как ячейка пуста.

Поместите приведенный ниже код в свои макросы, по какой-то причине мне пришлось поместить это в код на "Sheet1" - когда я пытался создать отдельный модуль (что мы обычно делаем) или поместить в "ThisWorkbook", он не поднимите это.

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