Có công thức hoặc VBA nào để tổng hợp doanh thu từng lớp cho từng sheet ?

[laianhtu]

Cho mình hỏi có cách nào tổng hợp doanh thu cho từng lớp mở theo từng sheet ko, không dùng sumif ? có lẽ phải dùng VBA, help mình với ?

Các bạn vui lòng xem file đính kèm.

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

 

[ThuNghi]

Cho mình hỏi có cách nào tổng hợp doanh thu cho từng lớp mở theo từng sheet ko, không dùng sumif ? có lẽ phải dùng VBA, help mình với ?

Các bạn vui lòng xem file đính kèm.

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

Dòng cuối các sh này khác nhau, nhưng cấu trúc giống nhau. Có khá nhiều cách:
1/ Các cells tổng cộng đặt 1 Name nhu sau CK1_16 ... và tại summary mình chỉ việc gán name.
2/ Tạo name = lấy dòng cuối, dùng indirect...
3/ VBA thì qua dễ. Duyệt qua các sheet, lấy dòng cuối và gán vào.
Bạn cứ suy nghĩ, nếu cần sẽ cụ thể cho = VBA.

Sub gan()
Dim endR As Long, sotien As Currency, i As Long, eRow As Long
Dim shName As String
Sheets("Summary").Select
endR = Cells(65000, 2).End(xlUp).Row
For i = 5 To endR
  shName = Cells(i, 2)
  With Sheets(shName)
    eRow = .Cells(65000, 4).End(xlUp).Row
    Cells(i, 4) = .Cells(eRow, 4)
  End With
Next
End Sub

 

[ndu96081631]

Cho mình hỏi có cách nào tổng hợp doanh thu cho từng lớp mở theo từng sheet ko, không dùng sumif ? có lẽ phải dùng VBA, help mình với ?

Các bạn vui lòng xem file đính kèm.

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

Gõ vào cell C5 công thức này xem:

=VLOOKUP("Teacher's signature",INDIRECT("'"&$B5&"'!A:D"),4,0)

 

[laianhtu]

Cám ơn bác, mình dùng Vlookup như trên làm được rồi. Nếu mình có 100 sheet! có cấu trúc giống nhau thì e vẫn phải dùng như thế thôi, không dùng VBA cũng đơn giản quá.

Chúc bác cuối tuần vui vẻ.
Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

 

[ndu96081631]

Cám ơn bác, mình dùng Vlookup như trên làm được rồi. Nếu mình có 100 sheet! có cấu trúc giống nhau thì e vẫn phải dùng như thế thôi, không dùng VBA cũng đơn giản quá.

Chúc bác cuối tuần vui vẻ.
Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

VLOOKUP thế là được rồi, cái bạn cần thêm ở đây là 1 công thức lấy tên của tất cả các sheet
Xem tại đây:
http://www.giaiphapexcel.com/forum/showpost.php?p=60344&postcount=2

 

[laianhtu]

VLOOKUP thế là được rồi, cái bạn cần thêm ở đây là 1 công thức lấy tên của tất cả các sheet
Xem tại đây:
http://www.giaiphapexcel.com/forum/showpost.php?p=60344&postcount=2

Cám ơn Ndu9608631, cho mình hỏi thêm nếu muốn lấy ngày bắt đầu và ngày kết thúc của từng sheet thì có công thức hoặc VBA nào để lấy nhanh kết quả không ? (xem file đính kèm).

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive".

 

[ndu96081631]

Cám ơn Ndu9608631, cho mình hỏi thêm nếu muốn lấy ngày bắt đầu và ngày kết thúc của từng sheet thì có công thức hoặc VBA nào để lấy nhanh kết quả không ? (xem file đính kèm).

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive".

Gõ vào cell E5 công thức:
=INDIRECT("'"&$B5&"'!C7")
Gõ vào cell F5 công thức:
=INDIRECT("'"&$B5&"'!F7")
Kéo fill xuống