Блог

Я пытаюсь выяснить, что на самом деле делает следующее:

 Sub ZoneTarget()
'
' Macro1 Macro
'

'
Dim myTarget As Variant

Sheets("Zones").Select

For i = 3 To 30
    myTarget = Cells(i, 20).Value
    If myTarget = "" Then
        Exit For
    End If
'    Application.CutCopyMode = False
'    Cells(i, 18).GoalSeek Goal:=myTarget, ChangingCell:=Cells(i, 8)
    If Cells(i, 21).Value < -0.05 / 100 Or Cells(i, 21).Value > 0.05 / 100 Then
        Cells(i, 8).Value = Round(Cells(i, 8).Value * (1   Cells(i, 21).Value), 6)
    End If
Next i

End Sub
  

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

Из того, что я могу сказать, должно произойти следующее:

На вкладке «Зоны» В строках С 3 по 30 в столбце 20 (T), но только до тех пор, пока строка, в которой столбец T, не будет пустой

Если столбец 21 (U) в указанных строках либо меньше -0.05, либо больше 0.05, то значение в столбце 8 (H) следует умножить на одно плюс значение в столбце 21 (U), это значение следует округлить

Я не уверен, чего мне здесь не хватает, но когда я запускаю макрос, он прерывается.

Будем признательны за любую помощь.