Excel VBA複数の場合、1つのセルの結果が計算されます

Question

条件を満たす場合に式をセルに適用しようとしています。マクロは最初にシートを検索してすべてを検索し、イニシャルがDからGの列に表示される場合はすべての行を保持します。マクロではイニシャルRPRを探しています（他のイニシャルはNOになります）。 DでRPRが見つかるがEではない場合、計算はK * 0.3でなければならない。そうでない場合は、私は第二のシナリオなどを探して進んでいく必要があります。私はテーブルのイメージを添付しました。私が下に投稿したものが正しく表示されるかどうかわかりません。 table of data

D  E    K  N 
RPR NO   2000  result (K*0.3) 
NO RPR   1000  result (K*0.3) 
RPR (blank)  1000  result (K*0.5) 
RPR RPR   2000  result (K*0.5) 
NO no   2000  result 0 
No (Blank)  2000  result 0 

私は多くの異なるフォーマットでプレイしており、動作することはできません。これは私がいる場所です。私はこれを1日以上行っており、実際にはいくつかの援助を利用することができます。私は他の基準を満たしていなければ、セルが空になることがあるので、ゼロのために何かを持つ必要はないと思う。

Dim lrow As Long 
    lrow = Cells(Cells.Rows.Count, "D").End(xlUp).Row 

    Range("N2:N" & lrow).Formula = "=IF(D2 = ""RPR"") AndIF (F2 = ""RPR"" Or"""") 
     then N2 = (K2 * 0.5,0)" 

    Range("N2:N" & lrow).Formula = "IF D2 = ""RPR"" AndIF E2 <> ""RPR"" Then N2 = 
     (K2 * 0.3)" 

    Range("N2:N" & lrow).Formula = "IF D2 <> ""RPR"" AndIF E2 = ""RPR"" Then N2 = 
     (K2*0.3)" 

    Range("N2:N" & lrow).Value = Range("N2:N" & lrow).Value 

Answer 1

sub sum() 
Dim lrow As Long 
lrow = Cells(Cells.Rows.Count, "D").End(xlUp).Row 
'\\assuming you are starting with row 1 
For r = 1 to lrow 
if range("D"& r) = "RPR" and (range("F"& r) = "RPR" or isempty(range("F"& _ 
r)) then range("N"& r) = 0.5 * range("K"& r) 
elseif range("D"& r) = "RPR" and range("F"& r) <> "RPR" then range("N"& _ 
r) = 0.3 * range("K"& r) 
elseif range("D"& r) <> "RPR" and range("E"& r) = "RPR" then range("N"& _ 
r) = 0.3 * range("K"& r) 
next r 
End Sub