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

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

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

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

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

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

2. Во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код 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. нажмите другой + Q одновременно нажмите клавиши, чтобы закрыть окно Microsoft Visual Basic для приложений.

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

Статьи по теме:

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