Почему мой код выполняется правильно, когда я запускаю его из панели разработчика, а не при нажатии кнопки? - PullRequest
0 голосов
/ 18 февраля 2020

Я не понимаю, почему, когда я запускаю свой код из панели разработчика, мой код работает гладко, но когда я использую кнопку для его запуска, он работает неправильно. Вот мой код и примеры того, когда он работает, а когда нет

Sub Comment()
Dim x As Integer

x = 3

Do Until Sheets(2).Cells(x, 19) = ""
If Sheets(2).Cells(x, 19) <> "N/A" Then

If Sheets(2).Cells(x, 7).Value = Sheets(2).Cells(x + 1, 3).Value And Sheets(2).Cells(x, 16).Value = Sheets(2).Cells(x + 1, 16).Value And Sheets(2).Cells(x, 2).Value = Sheets(2).Cells(x + 1, 2).Value Then
                     'copy the value of the missing label and delete the missing label row
                    'Application.ScreenUpdating = False
                    Sheets(2).Cells(x + 1, 3).Copy (Cells(x, 3))
                    Sheets(2).Cells(x + 1, 4).Copy (Cells(x, 4))
                    Sheets(2).Cells(x + 1, 5).Copy (Cells(x, 5))
                    Sheets(2).Cells(x + 1, 6).Copy (Cells(x, 6))
                    Sheets(2).Rows(x + 1).Delete Shift:=xlShiftUp
                    'calculate the delta for the frequecy and the %
                    Sheets(2).Cells(x, 11).Value = Abs(Cells(x, 5).Value - Cells(x, 9).Value)
                    Sheets(2).Cells(x, 12).Value = Abs(Cells(x, 6).Value - Cells(x, 10).Value)
                    'replace the comment to identify witch one have been change by the tool
                    If Sheets(2).Cells(x, 19) = "Orphan Label" Then Sheets(2).Cells(x, 19).Value = "Was Orphan Label"
                    If Sheets(2).Cells(x, 19) = "Orphan Label - Rate instability" Then Sheets(2).Cells(x, 19).Value = "Was Orphan Label - Rate instability"
                    Sheets(2).Rows(x).Interior.ColorIndex = 0
                    Sheets(2).Rows(x).Interior.ColorIndex = 36
                    'Application.ScreenUpdating = True
                    GoTo next_row
                End If
End If

next_row:


x = x + 1
Loop

End Sub

Это правильный код (при запуске с панелью разработчика)

enter image description here

Это не тот (при запуске с кнопкой)

enter image description here

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