Tính tổng

[NangThu]

1/ Em muốn tính tổng A và tổng B thì làm thế nào?
2/ Khi kiểm tra số liệu trong 1 ô em chỉ cần nhấp chuột thì ô được kiểm tra tự động đánh dấu màu nền để biết mình đã kiểm tra rồi thì làm thế nào?

 

[boyxin]

1/ Em muốn tính tổng A và tổng B thì làm thế nào?
2/ Khi kiểm tra số liệu trong 1 ô em chỉ cần nhấp chuột thì ô được kiểm tra tự động đánh dấu màu nền để biết mình đã kiểm tra rồi thì làm thế nào?

|

A​

|

B​

|

C​

|

D​

|

1​

|

BẢNG KÊ HÀNG ĐỢT 1​

||||

2​

3​

4​

|Quầy|Thành tiền|Thuế GTGT|Cộng|

5​

|A|

10637000​

|

1063700​

|

11700700​

|

6​

|B|

17827000​

|

0​

|

17827000​

|

7​

|B|

5970000​

|

0​

|

5970000​

|

8​

|A|

2790000​

|

279000​

|

3069000​

|

9​

|A|

16800000​

|

0​

|

16800000​

|

10​

|A|

3550000​

|

0​

|

3550000​

|

11​

|A|

16988000​

|

0​

|

16988000​

|

12​

|A|

17236000​

|

0​

|

17236000​

|

13​

|B|

6998000​

|

699800​

|

7697800​

|

14​

|B|

3920000​

|

0​

|

3920000​

|

15​

|A|

930000​

|

0​

|

930000​

|

16​

|A|

5735000​

|

0​

|

5735000​

|

17​

|A|

6010000​

|

601000​

|

6611000​

|

18​

|Tổng A|||

82619700​

|

19​

|Tổng B|||

35414800​

|

20​

|D18 =SUMIF(A$5:A$17,"A",D$5$17)||||

21​

|D19 =SUMIF(A$5:A$17,"B",D$5$17)||||

 

[NangThu]

Em cảm ơn bác boyxin nhiều lắm. Còn tô màu nền cho ô đã kiểm tra... mong các bác giúp em với nha!
Thanhs!

 

[SA_DQ]

Còn tô màu nền cho ô đã kiểm tra... mong các bác giúp em với nha!
Thanhs!

Bạn xài thử macro sự kiện này:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("c5:D99")) Is Nothing Then
   Target.Interior.ColorIndex = 34 + Target.Row Mod 7
 ElseIf Not Intersect(Target, Range("E5:E99")) Is Nothing Then
   Cells(Target.Row, "C").Resize(, 2).Interior.ColorIndex = 0
 End If
End Sub