Почему функция отмены отключена с событием Worksheet_Change? - PullRequest
1 голос
/ 03 июля 2019

Я использую макрос для печати метки времени в столбце AJ, когда что-либо в диапазоне A: AH изменяется, но это отключает функцию отмены в Excel. Я также использую другое событие worksheet_change, которое автоматически переводит текст в верхний регистр, но не отключает функцию отмены. Почему этот код отключает отмену и есть ли способ обойти это? Спасибо за любую помощь

Private Sub Worksheet_Change(ByVal Target As Range)
' Code to print timestamp in Column AJ following a change in a corresponding row
    Dim WorkRng As Range, row As Long
    Dim rng As Range
    Set WorkRng = Intersect(Range("A:AH"), Target)
    If Not WorkRng Is Nothing Then
        Application.EnableEvents = False
            For Each rng In WorkRng
                row = rng.row
                If Not rng.Value = "" Then
                    Cells(row, "AJ").Value = Now
                    Cells(row, "AJ").NumberFormat = "mm/dd/yyyy hh:mm:ss"
                Else
                    Cells(row, "AJ").Value = Now
                    Cells(row, "AJ").NumberFormat = "mm/dd/yyyy hh:mm:ss"
                End If
            Next
        Application.EnableEvents = True
    End If

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...