프로그래밍 방식

Question

내가 셀 값은 0

입니다 열을 반복하고 각 행에 대한 해석 모델에 constaints를 추가 코드를 쓰고 있어요 VBA 해결사 제약 조건을 추가 지금까지 나는이 시도하고 그것은 아무튼 일하지 마라.

For Each cell In Range("B11:B193").Cells 
If cell.Value = 0 Then 
SolverAdd CellRef:=(Cells.Address), Relation:=2, FormulaText:="0" 
End If 

Next 

모든 도움을 주시면 감사하겠습니다.

SolverAdd CellRef:=(cell.Address), Relation:=2, FormulaText:="0" 

UPDATE :

당신은 그 오류를 받고 좋아 인해 For 라인

시도 이것에

SolverAdd CellRef:=(Cells.Address), Relation:=2, FormulaText:="0" 

: 는

Answer 1

보십시오이 변경 감사 다음으로 업데이트 :

For Each Cell In Range("B11:B193") 
    If Cell.Value = 0 Then 
     SolverAdd CellRef:=(Cell.Address), Relation:=2, FormulaText:="0" 
    End If 
Next