Cộng dồn và xóa dữ liệu nhập vào (1 người xem)

[gaupu89]

Chào mọi người
Mong mọi người giúp đỡ. Mình muốn ở cột kết quả Ô B, khi nhập vào ô A thì ô B sẽ bằng tổng các số đã nhập từ ô A
VD: tại ô A nhập vào 2 và nhấn Enter thì ô B =2, nhập tiếp 3 tại ô A thì Cell B=2+3, tiếp tục nhập ô A là 5 thì tại Cel B = 2+3+5, cụ thể sau mỗi lần nhập và Enter thì Ô A sẽ xóa và ô B sẽ cộng dồn giá trị đã nhập từ ô A
Thanks

 

[be_09]

Chào mọi người
Mong mọi người giúp đỡ. Mình muốn ở cột kết quả Ô B, khi nhập vào ô A thì ô B sẽ bằng tổng các số đã nhập từ ô A
VD: tại ô A nhập vào 2 và nhấn Enter thì ô B =2, nhập tiếp 3 tại ô A thì Cell B=2+3, tiếp tục nhập ô A là 5 thì tại Cel B = 2+3+5, cụ thể sau mỗi lần nhập và Enter thì Ô A sẽ xóa và ô B sẽ cộng dồn giá trị đã nhập từ ô A
Cảm ơn

Vậy thì cộng dồn đến bao giờ mới hết? Nếu cộng dồn ngày này qua tháng khác thì con số cộng dồn nó sẽ thành một mớ hổn độn. Để làm việc này nên nghiên cứu về PivotTable để tính toán bất kỳ thứ gì.

 

[ndu96081631]

Chào mọi người
Mong mọi người giúp đỡ. Mình muốn ở cột kết quả Ô B, khi nhập vào ô A thì ô B sẽ bằng tổng các số đã nhập từ ô A
VD: tại ô A nhập vào 2 và nhấn Enter thì ô B =2, nhập tiếp 3 tại ô A thì Cell B=2+3, tiếp tục nhập ô A là 5 thì tại Cel B = 2+3+5, cụ thể sau mỗi lần nhập và Enter thì Ô A sẽ xóa và ô B sẽ cộng dồn giá trị đã nhập từ ô A
Cảm ơn

Xử lý lọc hoặc tính toán ngay trên dữ liệu nhập là làm sai nguyên tắc.
Nhập liệu thì cứ làm đầy đủ, khi cần tính toán gì đó, cứ xuất sang nơi khác để báo cáo

 

[phulien1902]

Chào mọi người
Mong mọi người giúp đỡ. Mình muốn ở cột kết quả Ô B, khi nhập vào ô A thì ô B sẽ bằng tổng các số đã nhập từ ô A
VD: tại ô A nhập vào 2 và nhấn Enter thì ô B =2, nhập tiếp 3 tại ô A thì Cell B=2+3, tiếp tục nhập ô A là 5 thì tại Cel B = 2+3+5, cụ thể sau mỗi lần nhập và Enter thì Ô A sẽ xóa và ô B sẽ cộng dồn giá trị đã nhập từ ô A
Cảm ơn

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Target.Offset(, 1).Value = Target.Offset(, 1).Value + Target.Value: [a1].ClearContents: [a1].Select
    End If
End Sub

 

[gaupu89]

vì tính chất công việc cần tính toán như vậy,

VD:
khi mình nhận một đơn hàng từ Sale, trong đơn đó có nhiều Hóa, Nhiệm vụ của mình là tổng hợp số lượng của hàng hóa trong mỗi đơn hàng
mình làm chương trình này để kiểm tra số lượng của hành hóa trong tổng số đơn hàng mình nhận được từ Sale
Ví dụ:
mình nhận 20 đơn hàng, trong mỗi đơn hàng đó có có nhiều loại hàng
đơn hàng số 1 mã AAAA01 có 2 pcs, thì nhập vào cột đếm 2,đơn hàng số 2 có mã AAAA01 có 3 pcs thì nhập 3, cột tổng thì cộng lại sao mỗi lần nhập
tương tự ở đơn hàng số 1 có max BBBBB01 có 3pcs nhập 3, đơn hàng số 2 có mã BBBB01 có 4 pcs thì nhập 4,cột tổng thì cộng lại sao mỗi lần nhập

 

[gttrongvn]

Tạo sự kiện worksheet_change cho sheet bạn muốn thao tác, gõ số vào ô A1 thì B1 tự cộng dồn.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set Target = Range("b1")
If IsNumeric(Target.Offset(0, -1).Value) Then
Target = Target + Target.Offset(0, -1)
End If
Set Target = Nothing
Application.EnableEvents = True
End Sub

 

[phulien1902]

vì tính chất công việc cần tính toán như vậy,
View attachment 195705
VD:
khi mình nhận một đơn hàng từ Sale, trong đơn đó có nhiều Hóa, Nhiệm vụ của mình là tổng hợp số lượng của hàng hóa trong mỗi đơn hàng
mình làm chương trình này để kiểm tra số lượng của hành hóa trong tổng số đơn hàng mình nhận được từ Sale
Ví dụ:
mình nhận 20 đơn hàng, trong mỗi đơn hàng đó có có nhiều loại hàng
đơn hàng số 1 mã AAAA01 có 2 pcs, thì nhập vào cột đếm 2,đơn hàng số 2 có mã AAAA01 có 3 pcs thì nhập 3, cột tổng thì cộng lại sao mỗi lần nhập
tương tự ở đơn hàng số 1 có max BBBBB01 có 3pcs nhập 3, đơn hàng số 2 có mã BBBB01 có 4 pcs thì nhập 4,cột tổng thì cộng lại sao mỗi lần nhập

Không hiểu tiếng Việt bạn à.

 

[gaupu89]

Tạo sự kiện worksheet_change cho sheet bạn muốn thao tác, gõ số vào ô A1 thì B1 tự cộng dồn.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set Target = Range("b1")
If IsNumeric(Target.Offset(0, -1).Value) Then
Target = Target + Target.Offset(0, -1)
End If
Set Target = Nothing
Application.EnableEvents = True
End Sub

công thức của bạn đúng như ý mình, nhưng nếu mình làm nhiều cột thì như thế nào, như file đính kèm

 

[be_09]

công thức của bạn đúng như ý mình, nhưng nếu mình làm nhiều cột thì như thế nào, như file đính kèm

Tại sao không nghĩ đến PivotTable nó có thể làm nhiều thứ cùng lúc: Đếm, tổng cộng, %, tính trung bình cùng lúc ..v..v.....

 

[gaupu89]

Tại sao không nghĩ đến PivotTable nó có thể làm nhiềuthứ cùng lúc: Đếm, tổng cộng, %, tính trung bình cùng lúc ..v..v.....

không thể dụng Pivot được, vì mỗi lần kiểm tra la 1 lần nhập vào,

 

[be_09]

không thể dụng Pivot được, vì mỗi lần kiểm tra la 1 lần nhập vào,

Tôi nêu ý kiến là đương nhiên tôi làm được mới nói, chứ đâu phải nói chơi cho vui.

 

[VetMini]

Thắc mắc: nhập nhầm (10 gõ thành 100) hoặc sót (20 đơn hàng chỉ nhập 19, bỏ sót đâu đó ở giữa) rồi cuối cùng làm sao biết?

 

[huuthang_bd]

Có thể chủ thớt không nghĩ Excel có thể làm được nhiều hơn thế. Trường hợp này có thể dùng mẫu đơn hàng như một form nhập liệu. Nhập hết vào rồi muốn kiểm tra gì cũng được, ngoài ra còn có thêm dữ liệu đơn hàng đã nhập sau này cần in ấn hay đối chiếu gì cũng dễ.

 

[VetMini]

Có thể chủ thớt không nghĩ Excel có thể làm được nhiều hơn thế. Trường hợp này có thể dùng mẫu đơn hàng như một form nhập liệu. Nhập hết vào rồi muốn kiểm tra gì cũng được, ngoài ra còn có thêm dữ liệu đơn hàng đã nhập sau này cần in ấn hay đối chiếu gì cũng dễ.

Chỉ cần kiểm tra ngừoi khác chứ đâu có cần kiểm tra mình.

...
VD:
khi mình nhận một đơn hàng từ Sale, trong đơn đó có nhiều Hóa, Nhiệm vụ của mình là tổng hợp số lượng của hàng hóa trong mỗi đơn hàng
mình làm chương trình này để kiểm tra số lượng của hành hóa trong tổng số đơn hàng mình nhận được từ Sale
...