Dùng Excel để xem danh mục vật tư, sản phẩm kèm hình ảnh

[levanduyet]

Chào các bạn,
Có khi nào các bạn phải quản lý hàng tá vật tư, mỗi lọai vật tư thật khó quản lý, hình dung nếu không có hình ảnh?
Các bạn hãy tham khảo bài viết này. Hy vọng là nó giúp ích cho các bạn.
Thân,

Lê Văn Duyệt

 

[levanduyet]

File mẫu

Đây là file mẫu các bạn download về xem.
LVD

 

[yeudoi]

Chào Bác Duyệt.
Em đã xem file của Bác rồi rất hay. Nay em muốn thêm một Textbox vào để hiển thị Mã sản phẩm thì phải sửa đoạn mã thế nào mong Bác chỉ giúp ah.Cảm ơn Bác nha.

 

[levanduyet]

Chào Bác Duyệt.
Em đã xem file của Bác rồi rất hay. Nay em muốn thêm một Textbox vào để hiển thị Mã sản phẩm thì phải sửa đoạn mã thế nào mong Bác chỉ giúp ah.Cảm ơn Bác nha.

Tôi nghĩ bạn phải sửa lại đoạn code đó một tý là được mà.

Lê Văn Duyệt

 

[Katherine]

Em vừa download về xem cái file này của anh Duyệt. Em thấy đúng là hay thật! Cảm ơn anh Duyệt nhiều!

 

[bbq1401]

Anh ơi! PM này rất tuyệt. Em muốn có thềm 1 số chức năng nữa thì thêm code gì nữa đây. chức năng như sau: Có thể quản lý việc nhập xuất vật tư. Chuyển vật tư sang chỗ khác quản lý ( ví dụ : từ kho tổng chuyển đến 1 phòng chức năng để sử dụng thì phòng chức năng đó sẽ phải quản lý vật tư đó)
Quản lý việc sửa chữa vật tư

 

[thb.58]

Xin cảm ơn về bài hướng dẫn và ví dụ về bản excel này, rất hữu ích.

 

[levanduyet]

Vâng cám ơn các bạn,
Để thêm các chức năng khác, như quản lý xuất nhập tồn của vật tư luôn thì chương trình hơi phức tạp một tý. Nói đúng hơn các bạn muốn một chương trình quản lý vật tư hoàn hảo chứ không chỉ là xem hình ảnh.
Chúng ta hãy bàn bạc ở đây và cùng nhau xây dựng chương trình.

Thân,

Lê Văn Duyệt

 

[chibi]

Cảm ơn levanduyet, file rất hay, có thể áp dụng cho nhiều công việc khác.
Nhân đây xin hỏi bạn một số điều:
- Đưa cái TreeView vào form bằng cách nào vậy?
- Trong Data có "Tên hình", bằng cách nào để nạp tên hình vào thông qua hộp thoại mở tệp (như kiểu Browse) ?

 

[levanduyet]

Chào bạn chibi,
Tôi nghĩ trong bài tôi đã hướng dẫn đầy đủ rồi. Bạn cố gắng đọc và tìm hiểu nha.
_Việc đưa treeview vào form là việc đơn giản trong việc lập trình VBA. Bạn chỉ việc additional controls rồi kéo và thả vào form mà thôi.
_Việc đưa hình ảnh vào, bạn xem code nha, dựa trên sự kiện NodeClick của treeview để tải hình ảnh lên Image control.

Private Sub TreeViewMain_NodeClick(ByVal node As MSComctlLib.node)
Dim sImageName As String, sPath As String
    
    Me.txtProName.Text = node.Text
    Me.txtDes1.Text = GetInfo(node.Text, False)
    Me.txtDes2.Text = GetInfo(node.Text, False, 4)
    sImageName = GetInfo(node.Text, True)
    If GetInfo(node.Text, True) <> "" Then
        'Type of the picture file is JPG
        sPath = IIf(Right(ActiveWorkbook.Path, 1) = "\", ActiveWorkbook.Path & sImageName & ".JPG", ActiveWorkbook.Path & "\" & sImageName & ".JPG")
        If FileExists(sPath) Then
            With Me.Image1
                .AutoSize = False
                .PictureSizeMode = fmPictureSizeModeStretch
                .Picture = LoadPicture(sPath)
            End With
        Else
            With Me.Image1
                .Picture = Nothing
            End With
        End If
    Else
        With Me.Image1
            .Picture = Nothing
        End With
    End If
    Me.Repaint
End Sub

Bạn cố gắng đọc code trong file nha.

Lê Văn Duyệt

 

[Chuthoong]

Trong treeview làm thế nào đọc được tiếng việt có dấu vậy Bác Duyệt ?

 

[jiwon379]

Sao em tải không được vậy, nó báo là em không dủ quyền.
À, cho em hỏi là, bây giờ em có cái kho gạch men có khoảng 10 loại thôi vậy phải học chương trình gì để quản lý việc xuất nhập vậy mấy anh,nếu được thì hướng dẫn dùm em, em mới học excel căn bản,nên chưa biết,cảm ơn vantran_wifi@yahoo.com

 

[yeudoi]

Sao em tải không được vậy, nó báo là em không dủ quyền.
À, cho em hỏi là, bây giờ em có cái kho gạch men có khoảng 10 loại thôi vậy phải học chương trình gì để quản lý việc xuất nhập vậy mấy anh,nếu được thì hướng dẫn dùm em, em mới học excel căn bản,nên chưa biết,cảm ơn vantran_wifi@yahoo.com

Việc quản lý cái kho khoảng 10 loại thì mình nghĩ nó dễ thôi. Để thực hiện trên excel trước hết bạn cần phát thảo chương trình để từ đó xây dựng. Trong quá trình làm bạn gặp chỗ nào khó có thể hỏi mọi người trên diễn đàn. Để biết thêm cách xây dựng bạn nên tham khảo các bài viết có liên quan.

 

[levanduyet]

Trong treeview làm thế nào đọc được tiếng việt có dấu vậy Bác Duyệt ?

Đây là giải pháp được nhiều người đề nghị:

_Trước khi đưa vào Listview, chuyển qua font VNI (hoặc ABC...) rồi đưa vào Listview. Chú ý chọn font VNI sao cho thể hiện gấn giống font Unicode.
_Từ Listview đưa ra các control hoặc vào cơ sở dữ liệu thì làm ngược lại.

Công cụ, hàm chuyển đổi, xin tham khảo
http://www.giaiphapexcel.com/forum/showthread.php?t=2738

Chúng ta sẽ đưa vấn đề này vào trong dự án:
http://www.giaiphapexcel.com/forum/showthread.php?t=1155
Xin các bạn ủng hộ.

Lê Văn Duyệt

 

[thanhphuc]

Chào bạn levanduyet sao tôi không download được. bạn hướng dẫn giúp.thank

 

[levanduyet]

Chào bạn levanduyet sao tôi không download được. bạn hướng dẫn giúp.thank

Bạn không download được gì?

LVD

 

[sqlhung]

sao không dowload duoc gi nhi

 

[msc0506]

Hay tuyệt

bác duyệt có thể chỉ cách xây dưng cụ thể không ạ , và trong tệp mẫu của bác ko thấy load hinh lên vậy phải làm sao mới load lên đc vậy bác , Ý tưởng rất hay có khi lại lam được 1 cuốn Abum tuyệt vời đấy , Mong bác chỉ cụ thể nhe cảm ơn bác nhiều

 

[levanduyet]

Vấn đề là ở đây:

sPath = IIf(Right(ActiveWorkbook.Path, 1) = "\", ActiveWorkbook.Path & sImageName & ".JPG", ActiveWorkbook.Path & "\" & sImageName & ".JPG")

_Tập tin phải là dạng *.JPG
_Và phải đặt trong cùng thư mục với File Excel này.
Các bạn có thể thêm một thư mục Pictures chẳng hạn để lưu trữ hình ảnh. Như vậy các bạn sẽ phải sửa lại đoạn code ở trên.

sPath = IIf(Right(ActiveWorkbook.Path, 1) = "\", ActiveWorkbook.Path & "Pictures\" & sImageName & ".JPG", ActiveWorkbook.Path & "\" & "Pictures\" & sImageName & ".JPG")

Lê Văn Duyệt

 

[ongtrungducmx25]

ôi! tình yều tuyệt, sao không có crack nhỉ! hehehehe