Code VBA tự thêm vào ô tổng cộng công thức tổng các dòng tổng rời rạc

[longloc29]

Anh/Chị ơi, xin giúp em code VBA giải quyết bài này ạ. Em có một file bao gồm nhiều dòng tổng (thành tiền và tiền thuế) của các Chi nhánh trong một Công ty, và có thể phát sinh thêm nhiều Chi nhánh hơn số lượng Chi nhánh trong file, Em cần một code vba có thể tự điền công thức tính tổng các dòng rời rạc của các Chi nhánh vào dòng tổng Công ty tại ô thành tiền và tiền thuế
Ví dụ như file đính kèm này là:
E15 =E5+E10+E14
F15=F5+F10+F14
Em xin chân thành cảm ơn các Anh/Chị ạ

 

[Hoàng Tuấn 868]

Anh/Chị ơi, xin giúp em code VBA giải quyết bài này ạ. Em có một file bao gồm nhiều dòng tổng (thành tiền và tiền thuế) của các Chi nhánh trong một Công ty, và có thể phát sinh thêm nhiều Chi nhánh hơn số lượng Chi nhánh trong file, Em cần một code vba có thể tự điền công thức tính tổng các dòng rời rạc của các Chi nhánh vào dòng tổng Công ty tại ô thành tiền và tiền thuế
Ví dụ như file đính kèm này là:
E15 =E5+E10+E14
F15=F5+F10+F14
Em xin chân thành cảm ơn các Anh/Chị ạ

Cái này cần gì đến vba.

 

[SA_DQ]

Công thức tại [E15] cũng có thể chỉ là:

=SUM(E2:E14)/2​

Còn nếu vẫn muốn VBA thì vẫn cái gốc từ công thức này vẫn OK!​

 

[huhumalu]

Bạn ngâm cứu dùng =SUBTOTAL(9, ... ) thử đi bạn;

 

[longloc29]

Công thức tại [E15] cũng có thể chỉ là:

=SUM(E2:E14)/2​

Còn nếu vẫn muốn VBA thì vẫn cái gốc từ công thức này vẫn OK!​

Cám ơn Bạn. Nhưng mình cần một code vba có thể điền công thức vô ô tổng cộng chỉ là bằng tổng các dòng tổng ở Chi nhánh cộng lại với nhau không phải bằng công thức sum hoặc suntotal

 

[VetMini]

Cái này cần gì đến vba.

Công thức tại [E15] cũng có thể chỉ là:

=SUM(E2:E14)/2​

Bạn ngâm cứu dùng =SUBTOTAL(9, ... ) thử đi bạn;

Mệt mấy cha nội này quá. VBA mới "bấm một phát" được chứ.

 

[cantl]

Option Explicit

Sub azzz()
Dim OLe As Range
Dim CongThuc$
MsgBox ("O chua cong thuc phai dung vi tri nghen!!!")
For Each OLe In Range("A1:A" & Selection.Offset(-1, 0).Row)
If OLe Like "T?ng *" Then
CongThuc = CongThuc & "+" & OLe.Offset(, Selection.Column - 1).Address
End If
Next
Selection = ("=" & CongThuc)
End Sub

 

[Hoàng Tuấn 868]

Mệt mấy cha nội này quá. VBA mới "bấm một phát" được chứ.

Vụ này nhất quyết đòi vba mất rồi.

 

[VetMini]

Vụ này nhất quyết đòi vba mất rồi.

Vòi gì có nấy rồi. Quý vị dẹp quang gánh đi là vừa.

 

[longloc29]

Option Explicit

Sub azzz()
Dim OLe As Range
Dim CongThuc$
MsgBox ("O chua cong thuc phai dung vi tri nghen!!!")
For Each OLe In Range("A1:A" & Selection.Offset(-1, 0).Row)
If OLe Like "T?ng *" Then
CongThuc = CongThuc & "+" & OLe.Offset(, Selection.Column - 1).Address
End If
Next
Selection = ("=" & CongThuc)
End Sub

Mình làm được rồi. Cám ơn Bạn nhiều