Как добавить 1 к значению ячейки двойным щелчком в Excel?

В этой статье мы покажем вам метод автоматического добавления 1 к значению ячейки двойным щелчком по ней в Excel.

Используйте двойной щелчок для увеличения значения ячейки на 1 с помощью кода VBA

Используйте двойной щелчок для увеличения значения ячейки на 1 с помощью кода VBA

Следующий код VBA проведет вас через шаги добавления 1 к значению в ячейке A1 двойным щелчком. Пожалуйста, следуйте этим инструкциям.

1. Щелкните правой кнопкой мыши по вкладке листа, где нужно добавить 1 к значению в ячейке A1 двойным щелчком. Затем нажмите «Закрепить панель» в контекстном меню.

2. В появившемся окне Microsoft Visual Basic for Applications скопируйте и вставьте приведенный ниже код VBA в окно Код.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

Примечание: В коде A1 — это ячейка, к которой каждый раз при двойном щелчке будет добавляться 1. Вы можете изменить её по необходимости.

3. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.

Теперь при двойном щелчке по ячейке A1 к текущему значению будет добавляться 1, как показано на скриншоте ниже.

Связанные статьи:

• Как автоматически добавлять/вводить текущую дату/время в ячейку двойным щелчком в Excel?
• Как добавить галочку в ячейку двойным щелчком в Excel?