trừ tự động đến hết hàng

[vantrong83]

Em muốn trừ tự động cho đến hết hàng khi nhấn vào nút trừ tự động.
Nhờ các bác đặt code VBA hộ em với.
Cột Phat sinh = curbal - Du dau

 

[vantrong83]

Em đã đặt code VBA như sau:
Sub Button1_Click()
Sheets("sheet1").Select
With Range("F65536").End(xlUp).Offset(1)
.FormulaR1C1 = "=RC[-3]-RC[-1]"
.Value = .Value
End With

End Sub
Nhưng khi nhấn vào nút thì nó chỉ được 1 hàng duy nhất. Mọi người sửa giùm đoạn code để khi nhấn vào nó tự động trừ đến hết hàng hộ em
(Dùng offset gì đó). Giúp em với

 

[khoavu87]

Em muốn trừ tự động cho đến hết hàng khi nhấn vào nút trừ tự động.
Nhờ các bác đặt code VBA hộ em với.
Cột Phat sinh = curbal - Du dau

bạn thử xem file đính kèm xem sao.

 

[vantrong83]

Tiện thể bạn giải thích đoạn code cho mình được không? Nếu mình thay đổi với các cột khác thì làm thế nào.?

 

[concogia]

Em đã đặt code VBA như sau:
Sub Button1_Click()
Sheets("sheet1").Select
With Range("F65536").End(xlUp).Offset(1)
.FormulaR1C1 = "=RC[-3]-RC[-1]"
.Value = .Value
End With

End Sub
Nhưng khi nhấn vào nút thì nó chỉ được 1 hàng duy nhất. Mọi người sửa giùm đoạn code để khi nhấn vào nó tự động trừ đến hết hàng hộ em
(Dùng offset gì đó). Giúp em với

Bạn thử gán code này xem

Sub tru()
  Dim i As Long
    i = Range([e2], [e5000].End(xlUp)).Rows.Count
    Range("f2:f" & i + 1).FormulaR1C1 = "=RC[-3]-RC[-1]"
End Sub

 

[ndu96081631]

Bạn thử gán code này xem

Sub tru()
  Dim i As Long
    i = Range([e2], [e5000].End(xlUp)).Rows.Count
    Range("f2:f" & i + 1).FormulaR1C1 = "=RC[-3]-RC[-1]"
End Sub

Khỏi khai báo biến luôn:

Private Sub CommandButton1_Click()
  With Range("c2", [c65536].End(xlUp))
    .Offset(, 3).Value = "=RC[-3]-RC[-1]"
  End With
End Sub