は、私はVBA

Question

Excelですべての変数を設定しているのにエラーが、私はすべての変数を設定しましたが、私はまだ

For Each cll In OHLC 

で「オブジェクト必要」エラーを得続ける「オブジェクトが必要」これが私のコードです：

Sub hellohello() 

Dim i As Integer 
Dim OHLC, cll As Range 
Dim stoplossb, entrypriceb As Variant 

stoplossb = 1 
entrypriceb = 1 
i = 1 


For i = 63 To 166 

    If Range("M" & i).Value = "buy" Then 
     stoplossb = Range("X" & i) 
     entrypriceb = Range("w" & i) 
     Set OHLC = Range("B" & i & ":" & "E10000") 
     ' Set twndlow = Range("K" & i & ":" & "K10000") 
    End If 

    For Each cll In OHLC 

     If cll.Value < stoplossb Then 
      Range("Y" & cll.Row) = cll.Value 
      Exit For 
     End If 

    Next cll 
Next i 

End Sub 

私のエラーは何ですか？

Answer 1

終了する前にOHLCをelse文の空のRangeに設定します。

またはあなたのIF文は真ではないので、ブロック

Sub hellohello() 

Dim i As Integer 
Dim OHLC, cll As Range 
Dim stoplossb, entrypriceb As Variant 

stoplossb = 1 
entrypriceb = 1 
i = 1 


For i = 63 To 166 

    If Range("M" & i).Value = "buy" Then 
     stoplossb = Range("X" & i) 
     entrypriceb = Range("w" & i) 
     Set OHLC = Range("B" & i & ":" & "E10000") 
     ' Set twndlow = Range("K" & i & ":" & "K10000") 

     For Each cll In OHLC 

      If cll.Value < stoplossb Then 
       Range("Y" & cll.Row) = cll.Value 
       Exit For 
      End If 

     Next cll 

    End If 

Next i 

End Sub 

Answer 2

場合は、エラーを取得している理由があるの内側のために置くには、したがって、あなたは範囲としてOHLCを設定する行を取得することはありません。範囲が決して決まらないので、範囲は何もない。

Answer 3

カルロスが言っているのは、63から166までの外側ループがあるということです。そのループの中には、OHLCを設定するかどうかを決めるIF文がありますが、 OHLCは、IF文で設定されたかどうか..私はあなたがダウンした場合は直後の次CLLに終止符を移動するためにOHLCが

Answer 4

Dim OHLC As Range, cll As Range