С вашей помощью и с помощью своей интуиции. Ваши коды + плюс интуиция - вот что вышло:
Public bInsert As Boolean
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [A1] = 1 Then
If bInsert = False Then Put_record: bInsert = True
Else
bInsert = False
End If
Application.EnableEvents = True
End Sub
Спасибо всем вам, господа программисты, и моей интуиции.
Public bInsert As Boolean
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [A1] = 1 Then
If bInsert = False Then Put_record: bInsert = True
Else
bInsert = False
End If
Application.EnableEvents = True
End Sub
Спасибо всем вам, господа программисты, и моей интуиции.