Giúp Viết Hàm Tự Động Cộng Và Trừ

khamha · 30/9/10

ChàoCácBạn,MìnhCóMộtBảngTheoDõi Thu - Chi NhờCácBạnViếtHàmCóĐiềuKiệnNhưSau:
1, KhiTaNhậpSốTiềnVàoBênThu ThìTrongCột "TổngDư" SẽCộngThêmSốTiềnĐó.
2, KhiTaNhậpSốTiềnVàoBênChi ThìTrongCột "TổngDư" SẽTrừSốTiềnMàTaĐãNhập.
Cảm Ơn Các Bạn Nhiều.

MinhCong · 30/9/10

khamha đã viết:
ChàoCácBạn,MìnhCóMộtBảngTheoDõi Thu - Chi NhờCácBạnViếtHàmCóĐiềuKiệnNhưSau:
1, KhiTaNhậpSốTiềnVàoBênThu ThìTrongCột "TổngDư" SẽCộngThêmSốTiềnĐó.
2, KhiTaNhậpSốTiềnVàoBênChi ThìTrongCột "TổngDư" SẽTrừSốTiềnMàTaĐãNhập.
Cảm Ơn Các Bạn Nhiều.

Tại ô N4 Bạn nhập công thức sau:

Mã:

=N3+H4-M4

Copy cho các ô còn lại.

dat_butmuc · 30/9/10

Cộng trừ bình thường thôi
Tại ô N4 dùng: =$N3+$H4-$M4 rồi kéo xuống

khamha · 30/9/10

Cách Của Hai Bạn MinhCong Và dat_butmuc Dùng OK Nhưng Khi Mình Kéo Xuống Đến Ô 56.000 Thì Dung Lượng Tăng Lên Tróng Mặt
Và Lại Sau Ô Cộng Hoặc Trừ Nó Hiện Nên Số Cuối ̣Đến Ô 56.000 Nhìn Không Được Đẹp Cho Lắm.
Các Bạn Có Thể Giúp Mình Cách Khác Được Không Hay Là Viết Bằng Code Thì Hay Quá.Cảm Ơn Các Bạn Đã Giúp

NH_DK · 30/9/10

khamha đã viết:
ChàoCácBạn,MìnhCóMộtBảngTheoDõi Thu - Chi NhờCácBạnViếtHàmCóĐiềuKiệnNhưSau:
1, KhiTaNhậpSốTiềnVàoBênThu ThìTrongCột "TổngDư" SẽCộngThêmSốTiềnĐó.
2, KhiTaNhậpSốTiềnVàoBênChi ThìTrongCột "TổngDư" SẽTrừSốTiềnMàTaĐãNhập.
Cảm Ơn Các Bạn Nhiều.

Không biết làm thế này có đúng ý bạn không?

Nếu bạn muốn công tổng cả cột H, M nữa thì bạn thêm:

PHP:

Option Explicit
Sub congtru()
With Range([A4], [A65535].End(xlUp))
    .Offset(, 7).FormulaR1C1 = "=sum(RC[-1]:RC[-3])"
    .Offset(, 12).FormulaR1C1 = "=sum(RC[-1]:RC[-3])"
    .Offset(, 13).FormulaR1C1 = "=R[-1]C+RC[-6]-RC[-1]"
End With
End Sub

Chúc bạn thành công!

khamha · 30/9/10

NH_DK đã viết:
Không biết làm thế này có đúng ý bạn không?

Nếu bạn muốn công tổng cả cột H, M nữa thì bạn thêm:

PHP:

Option Explicit Sub congtru() With Range([A4], [A65535].End(xlUp)) .Offset(, 7).FormulaR1C1 = "=sum(RC[-1]:RC[-3])" .Offset(, 12).FormulaR1C1 = "=sum(RC[-1]:RC[-3])" .Offset(, 13).FormulaR1C1 = "=R[-1]C+RC[-6]-RC[-1]" End With End Sub

Chúc bạn thành công!

Cảm Ơn Bạn,Đúng Ý Mình Rồi Nhưng Nếu Mà Nó Tự Động Cộng Hoặc Trừ Thì OK Quá,Bạn Xem Có Thể Làm Cho Nó Như Vậy
Được Không,Bạn Cố Gắng Giúp Mình Nha.

NH_DK · 30/9/10

khamha đã viết:
Cảm Ơn Bạn,Đúng Ý Mình Rồi Nhưng Nếu Mà Nó Tự Động Cộng Hoặc Trừ Thì OK Quá,Bạn Xem Có Thể Làm Cho Nó Như Vậy
Được Không,Bạn Cố Gắng Giúp Mình Nha.

Bạn dùng sự kiện Private sub WorkSheet_Change(..........) để làm nhé!

khamha · 30/9/10

NH_DK đã viết:
Bạn dùng sự kiện Private sub WorkSheet_Change(..........) để làm nhé!

Không Biết Bạn Đã Làm Chưa,Sao Mình Làm Như Bạn Hướng Dẫn Mà Vẫn Không Được,Bạn Làm Ơn Thử Lại Và Đưa Lên Cho
Mình Với,Cảm Ơn Bạn

khamha · 2/10/10

Nhờ bạn NH_DK Và các bạn sửa giúp mình cái Code ở trên như sau:
Mình có sửa bảng tính lại nên cột tổng thu lại là "T" = từ cột "K" + ...đến cột "S" ;cột tổng chi lại là "AF" = cột "W" + ...đến cột "AE"
Còn cột tổng dư lại là "AH" .Các bạn cố gắng giúp mình với,nếu mà làm cho nó tự động được thì càng tốt.
Cảm ơn các bạn.

Giúp Viết Hàm Tự Động Cộng Và Trừ

khamha

Không có việc gì khó...

File đính kèm

MinhCong

Thành viên gắn bó

dat_butmuc

weitə r ə'pɔn prɔvidəns

khamha

Không có việc gì khó...

NH_DK

Let's patience

File đính kèm

khamha

Không có việc gì khó...

NH_DK

Let's patience

khamha

Không có việc gì khó...

khamha

Không có việc gì khó...

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

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian