Tính tổng khi chỉ thay đổi giá trị ở 1 ô (1 người xem)

[internet168]

Xin giúp công thức hoặc code chay vba cho tính tổng khi thay đổi số trong 1 ô

 

[Hoang2013]

'Macro sự kiện tại trang tính'
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [C5]) Is Nothing Then
    With Target.Offset(, 1)
        .Value = .Value + Target.Value
    End With
 End If
End Sub

 

[internet168]

Cám ơn Hoang2013 nhiều nhé. Cho mình hỏi nếu thay đổi cách tính như vậy cho cả cột C từ C5:C1000 có tổng sang D51000 thì thay [C5] = range("C3:C1000") là ok đúng không bạn. Hay có thể sẽ có lỗi gì sai không bạn?
Và nếu có thể cho mình hỏi cách tạo vba search tên khách hàng (sau 1 tháng có thể có 1000 khách hàng) để nhập thay đổi số liệu Nạp rồi dùng code trên để tính Tổng. Tên khách hàng mình nhập bằng Form đăng nhập nên không tiện tạo Table ở Insert. Khi mình tạo form nhập số Nạp mà muốn nó thể hiện là 10.000 chứ không phải 10000 cho đỡ nhầm lẫn ở Bảng txtNap thi làm thế nào. Mình record Macro 1 search đc như sau :
' Macro1 Macro

ActiveSheet.Range("$A$4:$D$1000").AutoFilter Field:=2, Criteria1:= _
"Nguy?n A"
Range("C5").Select
ActiveCell.FormulaR1C1 = "5000"
ActiveSheet.Range("$A$4:$D$1000").AutoFilter Field:=2, Criteria1:="Tr?n B"
Range("C6").Select
ActiveCell.FormulaR1C1 = "10000"
ActiveSheet.Range("$A$4:$D$1000").AutoFilter Field:=2

 

[phuyen89]

Cám ơn Hoang2013 nhiều nhé. Cho mình hỏi nếu thay đổi cách tính như vậy cho cả cột C từ C5:C1000 có tổng sang D51000 thì thay [C5] = range("C3:C1000") là ok đúng không bạn. Hay có thể sẽ có lỗi gì sai không bạn?
Và nếu có thể cho mình hỏi cách tạo vba search tên khách hàng (sau 1 tháng có thể có 1000 khách hàng) để nhập thay đổi số liệu Nạp rồi dùng code trên để tính Tổng. Tên khách hàng mình nhập bằng Form đăng nhập nên không tiện tạo Table ở Insert. Khi mình tạo form nhập số Nạp mà muốn nó thể hiện là 10.000 chứ không phải 10000 cho đỡ nhầm lẫn ở Bảng txtNap thi làm thế nào. Mình record Macro 1 search đc như sau :
' Macro1 Macro

ActiveSheet.Range("$A$4:$D$1000").AutoFilter Field:=2, Criteria1:= _
"Nguy?n A"
Range("C5").Select
ActiveCell.FormulaR1C1 = "5000"
ActiveSheet.Range("$A$4:$D$1000").AutoFilter Field:=2, Criteria1:="Tr?n B"
Range("C6").Select
ActiveCell.FormulaR1C1 = "10000"
ActiveSheet.Range("$A$4:$D$1000").AutoFilter Field:=2

- Đây là code VBA tiến thực hiện Filter dữ liệu, dựa trên điều kiện là cột Họ và Trên mà.

 

[internet168]

- Đây là code VBA tiến thực hiện Filter dữ liệu, dựa trên điều kiện là cột Họ và Trên mà.

Ý tôi là muốn nhờ Cao nhân chỉ giáo tạo vba search tên để điền giá trị Nạp mỗi lần, chứ cũng thấy nhiều người hướng dẫn code search nhưng yêu cầu dùng insert table và manager thì khi nhập liệu bằng Form thì dữ liệu luôn ở dưới bảng table chứ không tiếp tục ở danh sách ban đầu khi tạo table.

 

[befaint]

search tên để điền giá trị Nạp mỗi lần,

http://www.giaiphapexcel.com/dienda...t-hỗ-trợ-nhập-liệu-từ-danh-mục-có-sẵn.116711/

 

[internet168]

http://www.giaiphapexcel.com/diendan/threads/add-in-input-from-list-hỗ-trợ-nhập-liệu-từ-danh-mục-có-sẵn.116711/

tôi muốn search tự danh mục động- tức là có nhập thêm chứ không phải danh mục cố định có sẵn mà.