Giúp đỡ hoàn thiện bài toán về quản lý vật tư công trình trong công ty xây dựng nhỏ

y2k_mqm

New Member
Hội viên mới

"Đây là một tool làm bằng Excel về dành cho tổng hợp vật tư dành cho công ty xây dựng nhỏ. Chức năng của nó là nhập vật tư từ các đại lý.Dữ liệu được tự động chuyển đến các sheet các công trình. Cuối tháng có tổng kết công nợ của đại lý. Ngoài ra có thêm phần theo dõi về xe chở vật liệu để cuối tháng thống kê quãng đường mà xe chạy"
Mình mô tả qua bảng Excel mình làm được bạn nào thích thì download về tham khảo. :D. Trước khi làm mình cũng tìm trên google xem có cái nào giống cái mình đang thực hiện k để down về sài luôn nhưng k có đành phải làm. Hix.

Các chức năng cho bài toán mình đã làm nhưng do kiến thức về ngôn ngữ vb không có ( mình học về lập trình) nên không thể hoàn thiện được bài toán. Mong bác nào cao thủ về VB giúp đỡ :D.
1. Mình làm một phần mục lục tự update link khi tạo sheet mới. Nhưng đang bị lỗi " Reference is not valid" khi click vào "Back to index"

Code
Mã:
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With
    
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            .Range("H1").Name = "Start" & wSheet.Index
            .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Mucluc", TextToDisplay:="Back to Index"
        End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub
sieuthiNHANH201202225208mmnmmty1nz59248_2.jpeg


2. Mình có các sheet "Đại lý" và các sheet " Công trình" . Dữ liệu được nhập từ sheet đại lý và ở sheet đại lý có cột Mã công trình. Khi điền tên công trình thì ở các sheet công trình đã tự update dữ liệu. Vấn đề cần mọi người giúp là ở các sheet công trình mình muốn sắp xếp dữ liệu lần lượt theo thời gian. Hiện tại là dữ liệu đang được sắp xếp theo thứ tự đại lý
Mã:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Vung, I As Integer, J As Integer, K As Integer, TenDL, TenCT, Mg()
TenCT = Split(ActiveSheet.Name)
If TenCT(0) = "Congtrinh" Then
ActiveSheet.[C5:J50000].ClearContents
    For Each Sh In Worksheets
        TenDL = Split(Sh.Name)
            If TenDL(0) = "Daily" Then
                Vung = Sh.Range(Sh.[C6], Sh.[C50000].End(xlUp)).Resize(, 8)
                ReDim Mg(1 To UBound(Vung), 1 To 8)
                For I = 1 To UBound(Vung)
                    If Vung(I, 8) = TenCT(UBound(TenCT)) Then
                        K = K + 1
                        For J = 1 To 7
                            Mg(K, J) = Vung(I, J)
                        Next J
                            Mg(K, 8) = TenDL(1)
                    End If
                Next I
             End If
             [C50000].End(xlUp)(2).Resize(UBound(Mg), 8) = Mg
             K = 0
    Next Sh
   End If
End Sub
sieuthiNHANH201202225208n2iwnzmyog60061_2.jpeg


3. Ở các sheet Đại lý dữ liệu được nhập có phần về quản lý xe chay. Mình muốn tạo 1 sheet "Xe chở" thống kê và tổng hợp các xe chạy hàng tháng.

Mã:
Đoạn code này mong bác nào giúp đỡ để hoàn thiện ^^
sieuthiNHANH201202225208ywfhmzhkmz75005_2.jpeg

sieuthiNHANH201202225208owy1odyynd52250_2.jpeg


File đính kèm.
Quan ly cong trinh.xls

Mong các bác cao thủ về VB giúp đỡ. :D
 
Ðề: Giúp đỡ hoàn thiện bài toán về quản lý vật tư công trình trong công ty xây dựng nhỏ

Tôi thắc mắc là bạn bạn dùng Hyperlink để làm mục lục ở sheet Daily Mucluc được mà lại không biết làm ngược lại? Khi click vào "Back to index" thì bị lỗi.
Để trở lại sheet Daily Mucluc bạn click phải chuột vào "Back to index", chọn Edit Hyperlink trong khung lớn bạn click chọn Daily Mucluc và nhấn nút OK là được.
Còn một số nội dung khác lúc nào rảnh tôi mới xem được.
 
Ðề: Giúp đỡ hoàn thiện bài toán về quản lý vật tư công trình trong công ty xây dựng nhỏ

^^. Cảm ơn bạn rất nhiều :D. Hiện tại mình chưa biết làm phần thứ 3. Mong be09 và mọi người bớt chút thời gian giúp mình. Mong cmt và trân trọng cảm ơn :D
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top