Bảng đối chiếu tình hình sử dụng Ngân sách tại Kho bạc (1 người xem)

[ndt789]

Chào tất cả các bác, các anh, các chị.
Hàng quý, em có một công việc rất phiền lòng vì mất khá nhiều thời gian dành cho nó. Do em không thông thạo về excel nhiều nên không thể thiết lập được các công thức tính và liên kết giữa các bảng tính của nhiều Sheet trong excel lại với nhau. Em gửi kèm theo các biểu mẫu tổng hợp nhờ các bác, các anh chị giúp em giải quyết.
Em xin chân thành cám ơn!

View attachment Doi chieu SDKP.rar

Em giải thích một chút: Hàng quý, em sẽ nhập dữ liệu trong cột phát sinh. Trong cột luỹ kế sẽ được tự động cập nhật số liệu vào. Và các quý sau cũng vậy. Sau đó căn cứ vào cột luỹ kế của quý 4 để ra được bảng đối chiếu của cả năm.

 

[viehoai]

Chào tất cả các bác, các anh, các chị.
Hàng quý, em có một công việc rất phiền lòng vì mất khá nhiều thời gian dành cho nó. Do em không thông thạo về excel nhiều nên không thể thiết lập được các công thức tính và liên kết giữa các bảng tính của nhiều Sheet trong excel lại với nhau. Em gửi kèm theo các biểu mẫu tổng hợp nhờ các bác, các anh chị giúp em giải quyết.
Em xin chân thành cám ơn!

View attachment 45273

Em giải thích một chút: Hàng quý, em sẽ nhập dữ liệu trong cột phát sinh. Trong cột luỹ kế sẽ được tự động cập nhật số liệu vào. Và các quý sau cũng vậy. Sau đó căn cứ vào cột luỹ kế của quý 4 để ra được bảng đối chiếu của cả năm.

Mình làm thử hàng 12 của tất cả các sheets không biết đúng ý bạn không

 

[be bong]

Bạn Viehoai làm ko đúng rồi .
Tại Sheet Năm, hàng 12 Cột G sai rồi . Vì là đối chiếu cả năm nên tại cột G = cột H = Cột H (sheet Quý 4)
Bạn xem lại nhé
Mình sẽ gui cho Bạn ndt789 file bảng Đối Chiếu KB tai Cơ quan mình , do mình tự làm ra , có j thac mắc thì cứ hỏi nha .Nếu bạn thấy chỗ nào ko phù hợp thì cứ chỉnh sửa .
Nếu ko thấy file , bạn hãy gui mail cho mình , mình se gui file cho bạn
Mail mình là : kimhoa19872003@yahoo.com

 

[SA_DQ]

Xin bạn BeBong có nghiệp vụ coi giúp hàm tự tạo để tính lũy kế quý trước, như sau

Option Explicit
Function QuyTruoc(BaMa As Range) As Double
 Dim Sh As Worksheet, Rng As Range, Clls As Range
 Dim Chg, Ngh, NDKT, jJ, ShName As String
 
 If BaMa.Parent.Name = "Nam" Then
   ShName = "Quy4"
 Else
   jJ = Right(BaMa.Parent.Name, 1)
   If jJ = 0 Then Exit Function
   ShName = "Quy" & jJ - 1
 End If
 Set Sh = Sheets(ShName)
 Set Rng = Sh.Range(Sh.[B11], Sh.[B65500].End(xlUp))
 With BaMa.Cells(1, 1)
   Chg = .Value:                          Ngh = .Offset(, 1).Value
   NDKT = .Offset(, 2).Value
 End With
 
 For Each Clls In Rng
   With Clls
      If .Value = Chg And .Offset(, 1).Value = Ngh And .Offset(, 2).Value = NDKT Then
         QuyTruoc = .Offset(, 6).Value:      Exit Function
      End If
   End With
 Next Clls
End Function

Chú ý khi dùng:

(*) Tại vùng F12:F19 của trang 'Nam' & [H13] của trang 'Quy2' mình đã tính thử bằng hàm tự tạo;

(*) (Nếu dùng cú fáp hàm ở trang 'Quy1' sẽ bị báo lỗi.

 

[be bong]

Mình ko rành về dùng code .nhưng nhìn sơ thì thấy đúng rồi . Chỉ cần bổ sung thêm Cột lũy kế = Cột phát sinh ( Sheet Nam) thì ok

 

[dangthitung88]

có thể gửi cho mình xin file này không