2017-12-08 4 views
0

"i"を次のコードに追加する方法はわかりません。私は以前の質問を終えましたが、これを正しく実行することはできません。アイデア? "ELSE"の後に始まって、 "i"をどのように追加するか分かりません。どんな助けもありがとう。ループと "i" - "i"を正しく入力する

For i = 2 To myLastRow 

Set mycell = myWorksheet.Range("AK" & i) 
Set mycell2 = myWorksheet.Range("AD" & i) 

Else 
    **mycell.Offset(, 2).Formula = "==IF(ABS(AJ" & i & " - AL" & i & ") <= AL" & i & "*0.1, TRUE, FALSE) "** 
+2

「i」を追加すると何が期待されますか?あなたはそれを正しく行う方法を理解する前に何かを追加している理由を知る必要があります。 –

+0

私が持っているコードは、各セルに同じ正確な公式を入力します。例えば: =(A2 = B2、TRUE、FALSE) = IF(A3 = B3、TRUE、FALSE) = IFが入力...この時点で (A4はB4、TRUE、FALSEを=)場合 –

+0

数式プロパティに等号が2つあります。 –

答えて

0
Dim i As Integer 
Dim mylastrow As Integer 
Dim myworksheet As Worksheet 
Dim mycell As Range 
Dim mycell2 As Range 

Set myworksheet = Sheet1 
mylastrow = 10 

For i = 2 To mylastrow 
    Cells(i, "AK").Offset(, 2).Formula = "=IF(ABS(AJ" & i & " - AL" & i & ") <= AL" & i & "*0.1, TRUE, FALSE) " 
' Cells(i, "AD").Value 
Next i 

あなたはこのような何かをしようとしていますか?セルのプロパティは、ループの種類に最適です。

関連する問題