Tìm dữ liệu trong tất cả các sheet của bảng tính (1 người xem)

[chipsandcrisps]

Mình có một vấn đề thế này:
Mỗi ngày mình thống kê số tiền nợ của khách hàng trên 1 sheet. Đến cuối tháng mình có khoảng 30 sheet như vậy. Làm thế nào để tính tổng số tiền nợ của mỗi khách hàng trong một tháng? Nếu có bạn nào tiện thì cho mình thông tin nhé. Qua email thì càng tốt: chipsandcrisps@gmail.com

 

[SA_DQ]

Sao lại phải để mỗi ngày 1 trang tính làm vậy!

Hãy nêu cấu trúc của 1 trang tính xem sao; Có thể ai đó sẽ khuyến nghị với bạn 1 cấu trúc tối ưu chăng!

Chúc vui!

 

[chipsandcrisps]

Gửi file lên bằng cách nào bạn. Mình ngộ quá nhỉ.

Được rồi bạn à. Xem giúp mình với nhá

Không bít dc chưa nhỉ

Quên mất. Password là: bagia

 

[haonlh]

Hãy làm cả tháng trên 1 Sheet. Thêm cột ngày tháng cho từng hàng (thêm cột C - theo file bạn đưa). Có thể thêm nhiều cột nữa, nếu cần, ví dụ cột tên người bán. Chuyển vùng trả nợ - nợ mới sang sheet khác, cũng làm cho cả tháng. Nếu cứ để trên sheet bán hàng cũng được, khi đó tên hàng là "ai trả" hoặc "ai vay" (chỗ này tôi nêu hơi thô, vì có thể làm bằng thêm cột), số lượng = 1, đơn giá = "số tiền"... Nhưng mà hay hơn vẫn là làm trên Sheet khác. Cả tháng có 2 sheet.

Có thể làm cả năm trên 2 sheet. Khi đó nên có 1 sheet tổng hợp số liệu trên từng tháng

 

[ChanhTQ@]

Thứ nhất: Bạn không nên đưa file có gắn mật khẩu lên đây để nhờ vã; Như vậy có cái gì đó như thiếu lịch sự & mất thời gian của người khác.

Bạn dùng mácro sau chép đè lên các cũ; Lấy 1 trang tính đang trống dữ liệu, đổi nó thành 'No_"; Trang còn lại xóa đi & sau đó chạy

Chưa thật sự hiểu hết í bạn; Hãy xem file & nói rõ hơn nha!

Option Exlicit
Sub TinhNoThang()
 Dim Sh As Worksheet, TNo As Worksheet
 
 Set TNo = Sheets("No_")
 TNo.[B1].Resize(3, 4).Value = Sheets("3-1Truong").[H4].Resize(3, 4).Value
 TNo.[b3].CurrentRegion.Offset(2).Clear
 
 For Each Sh In Worksheets
   If Sh.Name <> "No_" Then
      With TNo.[b65500].End(xlUp)
         Sh.Range(Sh.[h8], Sh.[h8].End(xlDown)).Offset(-1).Resize(, 2).Copy Destination:=.Offset(1)
         .Offset(1).Interior.ColorIndex = 34 + .Row Mod 6
      End With
      With TNo.[d65500].End(xlUp)
         Sh.Range(Sh.[j8], Sh.[j8].End(xlDown)).Offset(-1).Resize(, 2).Copy Destination:=.Offset(1)
         .Offset(1).Interior.ColorIndex = 34 + .Row Mod 7
      End With
   End If
 Next Sh
End Sub

 

[chipsandcrisps]

Macro của bạn ChanhTQ rất tuyệt. Cảm ơn bạn rất nhiều. Còn việc đặt mật mã cho file là mình quên không bỏ nó đi trước khi up lên thôi còn công việc hàng ngày thì mình làm trên 1 máy tính tập thể nên phải đặt.
Cho mình hỏi cái này. Phải làm thế nào để có kiến thức về Macro như bạn? Cảm ơn nhiều

 

[chipsandcrisps]

Có gì trao đổi qua Email được không? chipsandcrisps@gmail.com