làm giúp báo cáo tháng? (1 người xem)

[quykh]

mình có file này monh các bạn giúp, mình muốn khi nhập chi tiết thì nó tự báo cáo theo tháng. Cám ơn các bạn

 

[leonguyenz]

Bạn tự làm các tháng 2 trở đi nha.
File đính kèm:

 

[quykh]

À bạn leonguyenz cho mình hỏi có cách nào định dạng số của băng keo, giấy nhám,đạn nhựa,..v..v...có ĐVT là cuộn, hộp,cái không có số thập phân ở sau không? Còn dây đai, giấy vẽ vi tính, giấy bông in dầu có ĐVT là kgs thì vẫn giữ số thập phân ở đằng sau. Cám ơn bạn nhe!

 

[leonguyenz]

Bạn chèn thêm điều kiện: =IF(ĐVT="Kgs",round("công thức đang tính",2),"công thức đang tính").

 

[SA_DQ]

Hình như số liệu của bạn có ít thì fải, đã vậy bạn có thể tham khảo xài 1 Report:

Bạn chọn tháng tại [L2] & kiểm thử các tháng sau còn lại;

Mình vẫn để tháng 1 của bạn LeoNguyenz đễ dễ bề kiểm số liệu tháng 1 & tháng 2;

 

[quykh]

Cám ơn bạn nhe! Bạn có thể chỉ mình làm Report đó đi?

 

[ChanhTQ@]

Bạn có thể chỉ mình làm Report đó đi?

Bạn fải chuột vô tên 'ChiTiet' của thanh SheetName & chọn dòng cuối sẽ thấy vài macro như dưới đây:

Option Explicit
Dim Sh As Worksheet, Rng As Range, sRng As Range, vRg As Range
Dim Col As Byte
[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
 If Not Intersect(Target, [L2]) Is Nothing Then
   BCThg Target.Value
 End If
[B]End Sub[/B]

Sub BCThg(Thg As Byte)
 Dim DatD As Date, DatC As Date
 Dim vRg As Range, Cls As Range, Cll As Range
 Dim SoNg As Integer, Jj As Integer, Col As Integer, NX As Integer
 Dim MyAdd As String
 
 Set Sh = ThisWorkbook.Worksheets("Report")
 Col = [iu5].End(xlToLeft).Column
 Sh.[E6].Resize(9 * Col, 3).ClearContents
 Range("E8").Resize(, Col).Copy
1 'Chép Tòn Nam Truóc'
 Sh.Range("E6").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
   False, Transpose:=True
 Application.CutCopyMode = False
 Set Rng = Range([a8], [A9999].End(xlUp))
 Rng.NumberFormat = "mm/dd/yyyy"
 If Thg > 1 Then
2 'Chép Tòn Các Tháng Truóc'
   DatD = DateSerial(Year(Date), 1, 1)
   DatC = DateSerial(Year(Date), Thg, 1)
   SoNg = DatC - DatD
   For Jj = 0 To SoNg - 1
      Set sRng = Rng.Find(Format(DatD + Jj, "mm/dd/yyyy"), , xlValues, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            If sRng.Row < 22 Then NX = 1 Else NX = -1
            Set vRg = sRng.Offset(, 4).Resize(, Col).SpecialCells(xlCellTypeConstants, 3)
            If Not vRg Is Nothing Then
               For Each Cls In vRg
                  For Each Cll In Sh.Range(Sh.[b6], Sh.[b65500].End(xlUp))
                     If Cll.Value = Cells(5, Cls.Column).Value Then
                        With Cll.Offset(, 3)
                           .Value = .Value + NX * Cls.Value
                        End With
                     End If
                  Next Cll
               Next Cls
            End If
            Set sRng = Rng.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Jj
 End If

3 'Chép Só Lieu Cua Tháng'
   DatD = IIf(Thg = 1, DateSerial(Year(Date), 1, 1), DatC)
   DatC = IIf(Thg = 1, DateSerial(Year(Date), 2, 1), DateSerial(Year(Date), Thg + 1, 1))
   
   SoNg = DatC - DatD
   For Jj = 0 To SoNg - 1
      Set sRng = Rng.Find(Format(DatD + Jj, "mm/dd/yyyy"))
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            If sRng.Row < 22 Then NX = 1 Else NX = 2
            Set vRg = sRng.Offset(, 4).Resize(, Col).SpecialCells(xlCellTypeConstants, 3)
            If Not vRg Is Nothing Then
               For Each Cls In vRg
                  For Each Cll In Sh.Range(Sh.[b6], Sh.[b65500].End(xlUp))
                     If Cll.Value = Cells(5, Cls.Column).Value Then
                        With Cll.Offset(, 3 + NX)
                           .Value = .Value + Cls.Value
                        End With
                     End If
                  Next Cll
               Next Cls
            End If
            Set sRng = Rng.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Jj
   Sh.Select
End Sub

Sơ bộ bạn đọc tạm 3 dòng giải thích trong các câu lệnh;
Nếu cần cụ thể hơn ta sẽ gặp lại sau

Thân ái & chúc thành công với tuần làm việc mới mĩ mãn!

 

[quykh]

Bạn chèn thêm điều kiện: =IF(ĐVT="Kgs",round("công thức đang tính",2),"công thức đang tính").

Bạn có thể làm cụ thể cho mình không? Kiến thức Excel mình dở lắm. Cám ơn bạn nhiều

Mình đọc rồi, nhưng chả hiểu gì hết. Mấy cái ngôn ngữ lập trình này mình không hiểu. Bạn có cách nào chỉ cho mình hiểu về ngôn ngữ này không? Cám ơn bạn đã chỉ giáo cho mình!

 

[ChanhTQ@]

/(hông thể qua 1 bài mà bạn có thể hiểu được chút ít về VBA. . .

Mình đọc rồi, nhưng chả hiểu gì mấy cái ngôn ngữ lập trình này. Bạn có cách nào chỉ cho mình hiểu về ngôn ngữ này không? Cám ơn bạn đã chỉ giáo cho mình!

Thực ra macro trên thực thi trình tự các công việc thay thế cho ta mà thôi; Này nha:

Các câu lệnh từ dòng lệnh có số 1 đến dòng số 2: Thay ta tô chọn vùng tại dòng 8 bắt đầu từ cột 'E' trở về cuối thuộc trang tính 'ChiTiet' , Copy vô bộ nhớ trung gian & đem qua trang Report chép chuyển vị lên cột 'E' kể từ 'E6' (Chép tồn năm trước)

Các câu lệnh có từ D2 đến D3 làm các việc:

Duyệt trong các vùng nhập & xuất hàng, hễ gặp ngày nào trước ngày 1 của tháng cần thống kê ( ~ ngày trước tháng cần thống kê) thì khảo sát toàn bộ các ô có dữ liệu trong hàng xuất hay nhập đó, ứng với loại mã hàng mà cộng thêm (nhập) hay trừ đi lượng tồn đã có trên cột 'E' của 'Report'

Các câu lệnh từ dòng có đánh số 3 làm tương tự như trên, nhưng chỉ duyệt các ngày trong tháng khảo sát mà thôi. (Các ngày say ngày cuối tháng khảo sát sẽ không được đếm xĩa tới)

Còn muốn xực món VBA này, mình khuyên bạn nên tậu cuốn của thầy Hướng mà tụng đi là vừa. & cũng nói trước bạn, đường còn dài mút chỉ luôn đó nghe! /(hông thể 1 sớm 1 chiều mà tới được!

 

[quykh]

Mình cũng đã mua cuốn VBA của thầy Hướng rồi, nhưng hơi chậm tiêu nên như bạn nói chắc đường còn dài mút mút chỉ luôn. Mình không hiểu ngôn ngữ VBA lắm, đặc biệt là mấy câu lệnh. Mình cũng xin cảm ơn bạn đã chỉ giáo cho mình. Chắc bạn rành VBA lắm hả? Bạn có thể làm cho mình một chương trình quản lý kho được không ? (quản lý số lượng nhập, xuất, tồn, in phiếu xuất, nhập chi tiết xuất nhập của hàng hóa).

 

[SA_DQ]

Mình cũng đã mua cuốn VBA của thầy Hướng rồi, nhưng hơi chậm tiêu nên . . . đường còn dài mút mút chỉ luôn.
Bạn có thể làm cho mình một chương trình quản lý kho được không ? (quản lý số lượng nhập, xuất, tồn, in phiếu xuất, nhập chi tiết xuất nhập của hàng hóa).

(ó hai cách để chúng ta tiếp tục hợp tác làm ra SF (sản fẩm) nho nhỏ, đó là

(1) Bạn kiếm trên diễn đàn hay ở đâu đó file về nhập xuất tồn giống với C/S của bạn nhứt & ta sẽ cùng nhau điều chỉnh lại

(2) Bạn nêu các dữ liệu đầu vào lên diễn đàn để chúng ta cùng mọi người trên cộng đồng ra tay hỗ trợ nhau làm ra SF theo iêu cầu của bạn.

(Cũng có thể có vài cách nữa,. . . .)

Thân ái!

 

[quykh]

báo cáo tháng

Bạn Leonguyenz ơi, bạn làm lại dùm mình nhe, vì mình thay tiêu đề là " bào cáo tổng hợp tháng 1 năm 2011". Mình thấy có một số file người ta tạo ra các bảng con, khi bầm vào bảng con đó thì nó hiện ra một sheet để nhập liệu, bạn có biết cách làm bạn lám dum mình nhe. File đính kèm

 

[leonguyenz]

Bạn Leonguyenz ơi, bạn làm lại dùm mình nhe, vì mình thay tiêu đề là " bào cáo tổng hợp tháng 1 năm 2011". Mình thấy có một số file người ta tạo ra các bảng con, khi bầm vào bảng con đó thì nó hiện ra một sheet để nhập liệu, bạn có biết cách làm bạn lám dum mình nhe. File đính kèm

Bạn xem lại file nhé, nhớ tên các sheet "Thang-" đừng thay đổi vì nó lấy số tháng từ tên sheet.

 

[quykh]

Cám ơn bạn nhe, nhưng sao mình không thấy thanh công thức đâu dzậy? Bạn có thể chỉ cho mình thấy công thức để học hỏi được không? Cám ơn !

 

[leonguyenz]

Cám ơn bạn nhe, nhưng sao mình không thấy thanh công thức đâu dzậy? Bạn có thể chỉ cho mình thấy công thức để học hỏi được không? Cám ơn !

Ẩn/hiện thanh Formula (Công thức) trên Excel 2007: View => Formula Bar, còn trên Excel khác thì mình không nhớ nữa. Xem thêm Excel Options của bác BNTT: http://www.giaiphapexcel.com/diendan/threads/93068.Hướng-dẫn-sử-dụng-Options-của-Excel-2007

 

[quykh]

nhờ giúp đỡ

Mình có file này mong bạn và mọi người giúp mình nhe. Trong file đó mình muốn các bạn làm cho mình một chương trình quản lý như sau: Tạo một bảng chính(Menu), trong bảng chính đó có các bảng con như sau:
-Bảng nhập liệu chi tiết của từng người quản lý(để nhập liệu vào)
-Bảng báo cáo theo tháng của từng người (từ tháng 1->12)
-Bảng báo cáo tổng hợp theo tháng của cả 04 người(từ tháng 1-> 12)
-Bảng báo cáo theotừng đơn hàng của từng xưởng nhận (trường hợp của Thái, Quốc)
-Bảng báo cáo teo từng tháng của từng xưởng nhận.
Tất cả chỉ cần số lượng(không cần tài khoản,nợ, có, giá tiền..v..v..)
Cám ơn các bạn, chào đoàn kết.














9

 

[quykh]

nhiều sheet

Mình có file trong đó có nhiều sheet chi tiết, thì làm báo cáo theo tháng làm sao hả bạn Leonguyenz?

 

[SA_DQ]

file của bạn thì các nhà công thức đành chịu rồi, tạm thời thế này đã,. . .

(húng ta đăng lên đây để:

(+) Ban kiểm tra thử (Mỡi tháng cỡ khoảng hơn nữa fút, nên kiểm từ tháng 1 đến vài tháng đầu thôi, đúng được vài tháng đầu là các tháng đuôi cũng lọt tuốt).

Chú í: Bạn chọn tháng báo cáo tại [I2] của trang 'BC' & các trang BC khác không cần nữa, mình vứt đi rồi!

(+) Nhờ các bạn khác tăng tốc giúp cho!

 

[leonguyenz]

Mình có file trong đó có nhiều sheet chi tiết, thì làm báo cáo theo tháng làm sao hả bạn Leonguyenz?

File của bạn nhờ cao thủ VBA thôi.
Ở mỗi sheet có form khác nhau, dùng công thức sẽ rất phức tạp và nặng file nữa.

 

[quykh]

Cám ơn bạn nhe! Nhưng nó dò lâu quá! Nếu làm luôn 12 tháng chắc lâu dữ!

 

[SA_DQ]

Thế bạn muốn nó chạy tháng 12 như tháng 1 không vậy?

Nhưng nó dò lâu quá! Nếu làm luôn 12 tháng chắc lâu dữ!

Trong CSDL (cơ sở dữ liệu) của bạn đã lưu số liệu tồn cuối năm trước; giờ ta chỉ việc sao lưu tồn cuối từng tháng vô đâu đó sau mỗi lần ta cho macro chạy để làm báo cáo tháng; Như vậy bạn có hình dung là nó chạy như chạy dò tìm tháng 12 như tháng 1 hàng năm mà thôi!.
(Hiện thời, theo CSDL của bạn chạy trên máy nhà mình tháng 1 là khoảng 30-40 gy.)

Nếu ưng í ta sẽ bàn tiếp việc tái kết cấu fie chút đĩnh là OK thôi!

(hờ tin bạn!

 

[quykh]

Máy mình chạy lâu lắm(con Celeron 1.4Ghz, ram 1 Gb,XP sp3), khoảng 3 phút. Bạn có thể giúp mình cách nào đó cho nó nhanh không? Mình thấy có chương trình quản lý kho, mà trong đó có bảng Menu chính gồm các bảng con như nhập liệu, in báo cáo..v..vv..Khi nhấp váo đó thì nó cho mình làm việc. Cái đó sử dụng chương trình nào? Có phải là VBA hay chương trình lập trình nào.

 

[sealand]

Mình Spam chút, mình là kế toán "hết khấu hao" mà chưa từng thấy file thẻ kho nào khủng như file của bạn. Xem file của bạn mà mình nổi da gà luôn. Trích lập báo cáo thì khó nhỡn tiền rồi, nhập dữ liệu chắc cũng chẳng lấy gì làm dễ thở. Với file của bạn cũng chẳng tận dụng được các chức năng mạnh của Excel như trích lọc, tạo báo cáo, pivot table v.v...
Trên GPE có quá nhiều file XNT, kho hàng sao bạn không tham khảo. Theo mình, bạn nên tổ chức lại dữ liệu trước khi làm việc khác thì hơn. Chứ file hiện có với ví dụ vài dòng 1 sheet mà đã chạy thế rồi, nếu dữ liệu lớn thì đơ hẳn.
Có gì không phải thông cảm nha.

 

[quykh]

Cám ơn bạn nhe! Nhưng kho của mình thì phải lập thẻ kho chi tiết các mặt hàng và phải theo dõi theo ngày, tháng, năm. Mình cũng tham khảo nhiều file NXT rồi, nhung chưa thấy cái nào phù hợp cả. Thân chào!

 

[SA_DQ]

Nên có cách nhìn khác đi một chút thì có thể cải biến được đó bạn à.

Nhưng kho của mình thì phải lập thẻ kho chi tiết các mặt hàng và phải theo dõi theo ngày, tháng, năm. Mình cũng tham khảo nhiều file NXT rồi, nhung chưa thấy cái nào phù hợp cả.

Mình thì không fải trong nghề, nhưng đoan chắc là cần biến cải lại CSDL của bạn để nó thành 3 cụm như sau:

C1: Chứa dữ liệu thô ta nhập vô hay xuất ra
C2: Form thẻ kho, khi cần lập thể kho mặt hàng nào thì ới nó, macro sẽ tìm số liệu của mặt hàng đó đem lên form cho bạn.
C3: Báo cáo xuất nhập tồn định kỳ (ngày, tháng, . . . hay năm)

Mô hình này, các công thức trong excel khó mà đảm đương nổi với trên vài trăm mặt hàng. (Lúc đó ta hãy mạnh dạn từ bỏ thói quen nhìn nhận vấn đề sẽ được các hàm giải quyết ra sao; Bước sang cách nhìn mới với sự hỗ trợ từ VBA; & ban đầu thì bạn fải nhờ đến sự trợ giúp từ cộng đồng này rồi!) Bạn thấy đó, với CSDL hiện thời của bạn, các nhà siêu công thức đã & đang chịu thua rồi còn gì!

(ũng chỉ mong bạn tham khảo thêm cách mới mà thôi!

 

[sealand]

Mình thì không fải trong nghề, nhưng đoan chắc là cần biến cải lại CSDL của bạn để nó thành 3 cụm như sau:

C1: Chứa dữ liệu thô ta nhập vô hay xuất ra
C2: Form thẻ kho, khi cần lập thể kho mặt hàng nào thì ới nó, macro sẽ tìm số liệu của mặt hàng đó đem lên form cho bạn.
C3: Báo cáo xuất nhập tồn định kỳ (ngày, tháng, . . . hay năm)

Mô hình này, các công thức trong excel khó mà đảm đương nổi với trên vài trăm mặt hàng. (Lúc đó ta hãy mạnh dạn từ bỏ thói quen nhìn nhận vấn đề sẽ được các hàm giải quyết ra sao; Bước sang cách nhìn mới với sự hỗ trợ từ VBA; & ban đầu thì bạn fải nhờ đến sự trợ giúp từ cộng đồng này rồi!) Bạn thấy đó, với CSDL hiện thời của bạn, các nhà siêu công thức đã & đang chịu thua rồi còn gì!

(ũng chỉ mong bạn tham khảo thêm cách mới mà thôi!

Bác viết quá đúng với suy nghĩ của em.

Em nghĩ mô hình của nó sẽ là: Nhập data (Theo form hay sheet)--->Kho chứa data--->Báo cáo cần thiết

Em là dân kế toán thường phải sử lý dữ liệu tổng hợp, thống kê, phân tích. Vì vậy em rất ớn các bản dữ liệu nửa nạc nửa mỡ (Nửa data nửa report). Càng trang trí loè loẹt, Merge Cell tùm lum, tiêu đề cột chung v.v... càng tự sát.Ta xây dựng data không phải cho ta mà cho máy hiểu và làm giúp ta cái ta cần. Nếu dữ liệu tốt thì 1 cái báo cáo chứ 10 cái đâu nhằm nhò gì.

Nên có cách nhìn khác đi một chút thì có thể cải biến được đó bạn à.

Hoàn toàn có thể và đơn giản.

Có lẽ, mình hơi sa đà trong Topic của bạn. Mong thông cảm

 

[quykh]

Cám ơn hai bạn nhe! Thế hai bạn có thể giúp mình theo ý của hai bạn được không? Hay phải chuyển đề tài qua VBA? Thân chào!

 

[SA_DQ]

Rất sẵn lòng với việc hợp tác thường xuyên của bạn

Mình đề nghị CSDL của bạn gồm các trường sau:

Ngày|Số Giám Định|Đơn Hàng|Số Fiếu Xuất|Xưởng Nhận|NX|Mã|Loại|SoLuong|Ghi Chú (Nếu cần)

Bạn xem trong file đính kèm, mình đã đổ dữ liệu từ các trang thẻ kho vô (trừ 2 trang cuối sẩm màu thì chưa bỡi có lí do riêng của chúng nó)

Bạn xem & bổ sung gì không, để tiếp tục?

 

[quykh]

Cám ơn bạn nhe! Bạn cứ làm sao cho mình báo cáo tháng nhanh được rồi!

 

[SA_DQ]

Bạn kiểm tra số liệu nha, để còn chuyển sang làm thẻ kho theo nhóm hàng

Báo cáo tháng nhanh rồi đó, Fần thẻ kho làm giống bạn sẽ cực; Nhưng mình sẽ thử sức;

/(/ếu không đặng ta lại quay về từng mặt hàng!

 

[quykh]

Báo Cáo tháng thì nhanh rồi sao mình thấy không đúng bạn ơi! (ví dụ như chỉ tơ có nhập, xuất sao không thấy có). Cám ơn bạn nhe!

 

[SA_DQ]

Bạn xem & cho í kiến cụ thể đó là ngày nào thiếu, thừa số liệu nhe

Chú í nhỏ là để dễ thực hiện thẻ kho theo nhóm hàng, mình đã đỗi mã của chỉ tơ rồi

File này mình cũng đã sắp xong thẻ kho theo nhóm rồi đây

Bạn để thời gian xem xét & cho í kiến luôn thể nha.

 

[quykh]

Bị lỗi hay sao hả bạn? Mà sao nó không cập nhật theo thẻ kho? Ví dụ như mình nhập liệu vào thẻ kho chỉ thêu sao nó không có báo cáo. Mình có thể bỏ sheet NhXt và ChiTheu được không? Chỉ con lại Sheet BC và sheet theo thẻ kho mình chọn. Cám ơn bạn nhe!

 

[SA_DQ]

/(/ếu theo cách này, thì. . . .

Bạn sẻ fải nhập liệu vô NhXt đó, chứ không thể nhập vô chổ nào khác; Sau khi bạn kiểm số liệu đương thời & khẳng định là chạy ổn rối, mình sẽ làm cho bạn 1 form nhập liệu từ Sheet để tiện cho bạn nhập liệu nhiều mã hàng cùng họ 1 lúc.

File mới mình đã định dạng xong luôn thẻ kho các loại hàng rồi đó;
Tuy nhiên cột 'Loại' tại 'BC' là chưa đúng của bạn, mà mình nhập đại vô cho có;

Giờ bạn chỉ quan tâm số liệu có đúng như trong 'NhXt' đã có hay chưa, một khi bạn chọn ở [I2] hay [I3] của 'BC'

(Mình sẽ gở file trước cách đây 1 file để thu hồi tài nguyên của mình sau vài giờ nữa)

 

[quykh]

Vẫn không được bạn ơi! Mình chỉ muốn nhập liệu ở sheet thẻ kho nó sẽ tự động báo cáo theo tháng. Bạn cố gắng giúp mình nhé

 

[SA_DQ]

Mình cũng có lệ của mình, bạn thông cảm!

Mình chỉ muốn nhập liệu ở sheet thẻ kho nó sẽ tự động báo cáo theo tháng. Bạn cố gắng giúp mình nhé

/(hông bao giờ, bạn chờ người khác giúp vậy!