Tạo nút update số lũy kế trong Excel hoặc Google trang tính

[thanhan1234]

Gửi mọi người. Mình đang có 2 bảng dữ liệu giống hệt nhau lưu các số liệu. Trong đó 1 bảng dữ liệu là số của ngày hiện tại, 1 bảng dữ liệu là số lũy kế trong tháng. Mình muốn tạo nút "Update": Sau khi ấn chọn thì Excel tự động cộng lũy kế sang Bảng Lũy kế và xóa toàn bộ dự liệu hiện tại của bảng 1 đã nhập. Rất mong các bác hướng dẫn ạ.
Mình cảm ơn nhiều ạ.

 

[NghiaKieu]

Thế này ấn nhầm cái là sửa hết hơi

 

[BuiQuangThuan]

Cao thủ hướng dẫn ạ

Minh có thể giúp. Nhưng thấy có từ này nên cứ e ngại.

 

[thanhan1234]

Thế này ấn nhầm cái là sửa hết hơi

Bác có cách nào hay hơn không ạ. Có thể thêm Msg "Bạn có chắc chắn muốn Cập nhật số lũy kế không?" chẳng hạn ạ.

Bài đã được tự động gộp: 13/4/22

Minh có thể giúp. Nhưng thấy có từ này nên cứ e ngại.

Tại em không quen lắm VBA nên mới nhờ các bác hướng dẫn ạ. Bác giúp e với ạ.

 

[Hoàng Tuấn 868]

Minh có thể giúp. Nhưng thấy có từ này nên cứ e ngại.

Có khi là "Cao thủ" rồi mà cứ giả vờ thôi.

 

[BuiQuangThuan]

Có khi là "Cao thủ" rồi mà cứ giả vờ thôi.

Chỉ giám nhận là hạt thóc thôi chứ không giám nhận là con gà đâu anh ạ.

 

[Hoàng Tuấn 868]

Chỉ giám nhận là hạt thóc thôi chứ không giám nhận là con gà đâu anh ạ.

Vậy là "Cao thủ" của các hạt thóc.

 

[BuiQuangThuan]

Vậy là "Cao thủ" của các hạt thóc.

Đấy thớt cần mà thớt đã chịu sửa đâu. hihi

 

[Hoàng Tuấn 868]

Đấy thớt cần mà thớt đã chịu sửa đâu. hihi

Nếu không sửa thì chứng tỏ là không cần rồi.

 

[thanhan1234]

Mình đang hiểu đơn giản là:
1. Lưu Dữ liệu tại bảng 2 LK sang bộ nhớ tạm
2. Cộng dữ liệu bộ nhớ tạm đó với giá trị nhập được ở bảng 1 và gán lại cho giá trị ở Bảng 2 Lũy kế.
Cú pháp mình đang hiểu đơn giản thế này nhưng VBA báo lỗi, chắc do mình ko hiểu cú pháp.
Sub Update()
tam = Worksheet("Luy_ke").Range("B2").Value
Worksheet("Luy_ke).Range("B2").Value = tam + [B2]
End Sub

Cách này có vẻ không khả thi nếu dữ liệu của mình có khoảng 30 cột và 30 dòng cần Update, có cách nào chạy vòng Lặp để cộng lần lượt cả bảng dữ liệu không ạ

Bài đã được tự động gộp: 13/4/22

Đấy thớt cần mà thớt đã chịu sửa đâu. hihi

báo cáo bác em đã sửa ạ. mong bác giúp em với ạ

 

[BuiQuangThuan]

báo cáo bác em đã sửa ạ. mong bác giúp em với ạ

Thử code này coi ra sao

Sub ABC()
Dim sArr(), i&, j&
With Sheet1
   sArr = .Range("A1").CurrentRegion.Value
   .Range("B2").Resize(10000, 1000).ClearContents
End With
With Sheet2
    For i = 2 To UBound(sArr)
        For j = 2 To UBound(sArr, 2)
            .Cells(i, j) = .Cells(i, j) + sArr(i, j)
        Next
    Next
End With
End Sub

 

[thanhan1234]

Thử code này coi ra sao

Sub ABC()
Dim sArr(), i&, j&
With Sheet1
   sArr = .Range("A1").CurrentRegion.Value
   .Range("B2").Resize(10000, 1000).ClearContents
End With
With Sheet2
    For i = 2 To UBound(sArr)
        For j = 2 To UBound(sArr, 2)
            .Cells(i, j) = .Cells(i, j) + sArr(i, j)
        Next
    Next
End With
End Sub

Cảm ơn bác, em đã làm được rồi ạ. Đúng là bác ko nhận là Cao thủ nhưng chắc chắn bác không thấp thủ đâu ạ

 

[BuiQuangThuan]

Cảm ơn bác, em đã làm được rồi ạ. Đúng là bác ko nhận là Cao thủ nhưng chắc chắn bác không thấp thủ đâu ạ

Đừng nói thế. Mọi người cười cho đó. Giải quyết được vấn đề của bạn là được rồi

 

[VetMini]

Đừng nói thế. Mọi người cười cho đó. Giải quyết được vấn đề của bạn là được rồi

Hình như dân mê phim HK họ khong biết là mấy tiếng đó chỉ dùng được trong nhóm của họ. Loại xưng hô này đem ra ngoài dùng với người chưa quen nếu không phải nịnh bợ thì là châm biếm.