LOOPおよびネストされたif文が機能しない

Question

このコードは、 "OverExtensions"で "Yes"を検索するためのもので、新しい範囲を作成して新しい範囲の最大値を決定します。何らかの理由で、コードのロジックは問題ないようですが、私は空の結果を得て、私が間違っていた場所についてのコミュニティのインプットが大好きです。

Private Sub CommandButton1_Click() 
Dim maximum As Double, OverExtension As Range, x As Range 

Cells.Interior.ColorIndex = 0 
Set OverExtension = Range("D2:D12") 
maximum = WorksheetFunction.Max(Range("c2:c12")) 

For Each x In OverExtension 
    If x.Value = Yes Then 
     If x.Offset(0, -1).Value = maximum Then 
     x.Cells.Interior.ColorIndex = 22 
     End If 
    End If 
Next x 

End Sub 

Answer 1

あなたは間違った方法でifとforブロックをネストされました。

End IfをNext PriceNoとNext OEResultの間に置く必要があります。

更新：

は、あなただけの1 End If必要です。最初の1つは、IfとThenが1行にあるため、間違っています。

OEYesとOEResultの変数は、定義されていても初期化されていないだけでなく、あなたの意図もわからないため、解決方法もわかりません。