[Nhờ trợ giúp] Code tự cộng dữ liệu (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

lamngoctien87

Thành viên chính thức
Tham gia
11/8/11
Bài viết
53
Được thích
4
Chào mọi người!
Mình có bảng excel để diễn giải khối lượng Như hình. Có cách nào để dữ liệu khi mình gõ kiểu không có dấu = mà tại ô tổng cộng nó sẽ tự cộng dồn số liệu lại không.
y4GkYFp.png


Mong mọi người giúp đỡ! Chúc mọi người cuối tuần vui vẻ!
 

File đính kèm

Mã:
Function tong(rng As Range)
Dim cll As Range
 For Each cll In rng
    tong = tong + Evaluate(Replace(cll.Value, ",", "."))
 Next
 tong = Replace(tong, ".", ",")
End Function

Mã:
Y10=tong(U10:X10)
 
Upvote 0
Mã:
Function tong(rng As Range)
Dim cll As Range
 For Each cll In rng
    tong = tong + Evaluate(Replace(cll.Value, ",", "."))
 Next
 tong = Replace(tong, ".", ",")
End Function

Mã:
Y10=tong(U10:X10)
Cám ơn bác!
Em thử copy code chạy nhưng không được,
Bác có thể gán code của bác vào file của em được không. Cột tổng (Y) có thể nhiều dòng. Hiện tại em đang để 26 dòng.
Một lần nữa cám ơn bác nhiều.
 
Upvote 0
Cám ơn bác!
Em thử copy code chạy nhưng không được,
Bác có thể gán code của bác vào file của em được không. Cột tổng (Y) có thể nhiều dòng. Hiện tại em đang để 26 dòng.
Một lần nữa cám ơn bác nhiều.

cộng nhiều dòng là sao?
 

File đính kèm

Upvote 0
cộng nhiều dòng là sao?
Em nói nhầm.
Em đã thử chạy nhưng bị 1 lỗi sau:
- Khi không nhập dữ liệu tại bất kỳ ô U, V, W, X thì cột tổng Y báo lỗi #VALUE! .(Trong lúc em làm sẽ có ô không có khối lượng thì sẽ không nhập).
 
Lần chỉnh sửa cuối:
Upvote 0
Em nói nhầm.
Em đã thử chạy nhưng bị 1 lỗi sau:
- Khi không nhập dữ liệu tại bất kỳ ô U, V, W, X thì cột tổng Y báo lỗi #VALUE! .(Trong lúc em làm sẽ có ô không có khối lượng thì sẽ không nhập).

Bẫy lỗi cho code bài trên của bạn Let'GâuGâu thử xem.
 

File đính kèm

Upvote 0
Chào mọi người!
Mình có bảng excel để diễn giải khối lượng Như hình. Có cách nào để dữ liệu khi mình gõ kiểu không có dấu = mà tại ô tổng cộng nó sẽ tự cộng dồn số liệu lại không.
y4GkYFp.png


Mong mọi người giúp đỡ! Chúc mọi người cuối tuần vui vẻ!



Mình sưu tầm được cái file này. Bạn chỉnh sửa lại cho phù hợp với công việc của bạn
 

File đính kèm

Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom