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ữ!