whileループを実行して、セルに式を保持し、行全体に適用する方法？ Excel

Question

ExcelとVisual Basicを使用してマクロを作成しようとしています。ここでは、セルと数式を含む別のセルの間で加算を実行できます。

C2 =万
H2（式1）= -40000

私が持っている：私があれば、のは言わせて式電池は

0になるまで、この加算を実行する必要がありますH2からC2に40,000を加えて、私は50,000を得ることができ、H2は0になります。H2はその式によって0になります。

私がこれを達成しようとしたのは、Whileループを使用することです。しかし、このループは無限に詰まり、私のH2セルも式を失います。

これは私のコードです：

Dim n1 As Double 
Dim n2 As Double 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    
    n1 = Cells(2, 8).Value 
    n2 = Cells(2, 3).Value 

    Do While n1 <> 0 
     n2 = n2 + (n1 * -1) 
     Cells(2, 3).Value = n2 
     n1 = Cells(2, 8).Value  
    Loop 
End Sub 

はまた、私はこの非常に同じ方法を適用する必要があるが、彼らが価値を持つCとHのすべての行に。これはあなたが探しているものである

Answer 1

希望...

Dim n1 As Double 
Dim n2 As Double 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Dim lastrow, i As Variant 
    lastrow = Range("C" & Rows.Count).End(xlUp).Row 
    For i = 2 To lastrow 
     n1 = Cells(i, 8).Value 
     n2 = Cells(i, 3).Value 
     Do While n1 <> 0 
      n2 = n2 + (n1 * -1) 
      Cells(i, 3).Value = n2 
      n1 = Cells(i, 8).Value 
     Loop 
    Next i 
End Sub