код триггера после определенного количества кликов в vba

Question

Я работаю в VBA на пользовательской форме Excel. Что я пытаюсь сделать, так это то, что у меня есть ряд текстовых полей, которые будут заполнять различные ячейки в Excel. Когда пользователь нажимает на командную кнопку «Отправить», появляется окно сообщения (с использованием «vbOkOnly») с просьбой проверить информацию в форме перед отправкой информации. После того, как пользователь нажимает «ОК» в окне сообщения, он возвращается к форме пользователя. Если вся информация верна, пользователь нажимает кнопку «Отправить» второй раз, после чего информация будет помещена в соответствующие ячейки. Поэтому я хотел бы посчитать количество нажатий кнопки «Отправить» и после двух нажатий выполнить строку кода. Я нашел следующий код ниже в Интернете. Есть ли способ собрать или изменить код ниже, чтобы сделать то, что я хочу?

    Private Sub CommandButton1_Click()
    Static cnt As Long
         cnt = cnt + 1
         Me.Label1.Caption = cnt & " " & "Click(s)"

    End Sub

В поле ниже Me.Label1.caption = cnt & "" & "Click (s)" я хотел бы добавить следующую строку кода, чтобы проверить подсчет щелчков CommandButton1. Если количество кликов равно двум, запустите окно сообщения.

If cnt = 2 Then
        msgbox("Please review Content",vbOKOnly,"Please review content")
End If

Первая проблема, которую мне нужно решить, это то, что я получаю «Ошибка компиляции: ошибка синтаксиса». Не уверен, где я ошибся в этом коде. Мне кажется, это нормально. Второй проблемой будет выполнение окна сообщений только после двух кликов. Спасибо.

Answer 1

Я считаю, что это то, что вы ищете:

Private Sub CommandButton1_Click()
Static cnt As Long
cnt = cnt + 1
Me.Label1.Caption = cnt & " " & "Click(s)" 
'This line is not required, you can safely remove it unless you really want to show how many clicks have been done.
    If cnt = 1 Then 'after first click show msgbox
        MsgBox "Please review Content", vbOKOnly, "Please review content"
    Else 'if more than one click then Submit data and reset cnt back to 0
        'Code to Submit data to Cells
        cnt = 0 'reset counter
    End If
End Sub