'注文番号を入れる変数 Dim bango As Integer 'セル移動の為の変数 Dim i As Integer '初期値を2とする i = 2 '商品番号の値と注文番号を一致される為 '1プラスしてbangoの変数に入れる bango = Range("E2").Value + 1 'Aのセルが空白になるまで繰り返す Do Until Range("A" & i).Value = "" '商品番号と注文が番号が一致同じなら If i = bango Then '売り場が郵送ならば If Range("C" & i).Value = "郵送" Then '500円プラスした金額をいれる Range("E5").Value = Range("B" & i).Value + 500 '売り場が郵送以外なら Else 'そのままの金額を入れる Range("E5").Value = Range("B" & i).Value End If End If 'セルを下に進める為、1プラスする i = i + 1 Loop |