跳過goalseek計算當目標= 0

Question

我已通過若干列運行，並自動執行計算，即使在目標字段中選擇的值等於0。

我想子跳過goalseek功能每當我的工作表中出現「0」並轉到下一列時進行計算。

試圖添加If cell.Value > 0 And cell.Value <= cell.Offset(-1).Value Then _，但它沒有奏效。它只在所有單元中插入0。

這裏是我的代碼：

Sub Goalseek() 
    Dim rng As Range 
    Dim cell As Range 

    Set rng = ThisWorkbook.Worksheets("pb_input").Range("BB62:BP62") 
     rng.Offset(1).Value = 0 
    For Each cell In rng.Cells 
     If cell.Value <= cell.Offset(-1).Value Then _ 
     cell.Offset(2) = 1 Else _ 
     cell.Offset(2) = -1 
     cell.Goalseek Goal:=cell.Offset(-1).Value, ChangingCell:=cell.Offset(1) 
    Next 
End Sub 

Answer 1

無法添加新的職位（不得不等待90分鐘），所以我在這裏發佈的代碼：

Sub Goalseek() 
    Dim rng As Range 
    Dim cell As Range 

    Set rng = ThisWorkbook.Worksheets("pb_input").Range("BB62:BP62") 
     rng.Offset(1).Value = 0 
    For Each cell In rng.Cells 
     If cell.Value > 0 And cell.Value <= cell.Offset(-1).Value Then cell.Offset(2) = 1 Else cell.Offset(2) = -1 
     cell.Goalseek Goal:=cell.Offset(-1).Value, ChangingCell:=cell.Offset(1) 
    Next 
End Sub 

我得到以下消息如果我添加「結束時，如果」之前「下一步」：

「編譯錯誤：如果沒有結束塊如果」

Answer 2

它的Y我們的編碼風格導致了這個問題。如果您在一行上放置If聲明（並且您的下劃線字符表示這一點），那麼只有該行中的條件聲明將構成您的If子句。

在你的代碼

所以，

If cell.Value <= cell.Offset(-1).Value Then _ 
cell.Offset(2) = 1 Else _ 
cell.Offset(2) = -1 
cell.Goalseek Goal:=cell.Offset(-1).Value, ChangingCell:=cell.Offset(1) 

最後一行（你的Goalseek）將永遠是不管If條款的執行。

雖然不是一個規則，它通常是更好地把一個If ... End If塊中的代碼，那麼你的代碼應該是這樣的：

If cell.Value <= cell.Offset(-1).Value Then 
    cell.Offset(2) = 1 
Else 
    cell.Offset(2) = -1 
End If 
cell.Goalseek Goal:=cell.Offset(-1).Value, ChangingCell:=cell.Offset(1) 

這使得它更加明顯發生了什麼。所以你需要的代碼是：

If cell.Value > 0 Then 
    If cell.Value <= cell.Offset(-1).Value Then 
     cell.Offset(2) = 1 
    Else 
     cell.Offset(2) = -1 
    End If 
    cell.Goalseek Goal:=cell.Offset(-1).Value, ChangingCell:=cell.Offset(1) 
End If