Nhờ thiết kế form hiện thông tin và hình ảnh nhân viên sau khi click vào tên trên sheet (1 người xem)

[tungnguyen_kt]

Em có 1 sheet có thông tin nhân viên (có thể vài cột thông tin tùy ý) và hình ảnh của từng nhân viên trên sheet, giờ em muốn sau khi click vào tên nhân viên nào đó thì sẽ gọi form hay gì đó em không biết để hiện hết các thông tin trên sheet của người đó là hình ảnh (hiện kiểu như lý lịch trích ngang có hình).

Nhờ anh chị viết code giúp.

 

[anhtuan1066]

Em có 1 sheet có thông tin nhân viên (có thể vài cột thông tin tùy ý) và hình ảnh của từng nhân viên trên sheet, giờ em muốn sau khi click vào tên nhân viên nào đó thì sẽ gọi form hay gì đó em không biết để hiện hết các thông tin trên sheet của người đó là hình ảnh (hiện kiểu như lý lịch trích ngang có hình).

Nhờ anh chị viết code giúp.

Mấy cái hình ở đâu Tùng ơi? Ý mình muốn thấy cách bố trí của hình ảnh đấy

 

[tungnguyen_kt]

Mấy cái hình ở đâu Tùng ơi? Ý mình muốn thấy cách bố trí của hình ảnh đấy

Dạ hình thì sẽ nằm một thư mục khác (có thể đặt tên hình theo tên hình theo mả số nhân viên hay theo tên gì cũng được anh) do em không hình dung cách viết code nên data có thể thiếu.

 

[Hai Lúa Miền Tây]

Em có 1 sheet có thông tin nhân viên (có thể vài cột thông tin tùy ý) và hình ảnh của từng nhân viên trên sheet, giờ em muốn sau khi click vào tên nhân viên nào đó thì sẽ gọi form hay gì đó em không biết để hiện hết các thông tin trên sheet của người đó là hình ảnh (hiện kiểu như lý lịch trích ngang có hình).

Nhờ anh chị viết code giúp.

ecec, ví dụ ở file đính kèm.

 

[tungnguyen_kt]

ecec, ví dụ ở file đính kèm.

Đúng ý em rồi anh, cảm ơn anh @Hai Lúa Miền Tây

Cho em xin thêm lệnh nào để in form này ra luôn nha anh (cái này là được voi đòi tiên nè)

 

[Hai Lúa Miền Tây]

Đúng ý em rồi anh, cảm ơn anh @Hai Lúa Miền Tây

Cho em xin thêm lệnh nào để in form này ra luôn nha anh (cái này là được voi đòi tiên nè)

In userform? Ngộ hén, nếu thiệt cái ngộ đó thì chỉ dùng Me.PrintForm là được rồi

 

[tungnguyen_kt]

In userform? Ngộ hén, nếu thiệt cái ngộ đó thì chỉ dùng Me.PrintForm là được rồi

In thông tin theo form đó, có hình luôn chứ in cái form chi anh

 

[Hai Lúa Miền Tây]

In thông tin theo form đó, có hình luôn chứ in cái form chi anh

Thì in cái form đó có hình luôn mà Tùng

 

[be_09]

Em có 1 sheet có thông tin nhân viên (có thể vài cột thông tin tùy ý) và hình ảnh của từng nhân viên trên sheet, giờ em muốn sau khi click vào tên nhân viên nào đó thì sẽ gọi form hay gì đó em không biết để hiện hết các thông tin trên sheet của người đó là hình ảnh (hiện kiểu như lý lịch trích ngang có hình).

Nhờ anh chị viết code giúp.

Không hiểu em muốn làm cái gì? Có cái này anh thấy gần giống với File trong bài này:
https://www.giaiphapexcel.com/diendan/threads/công-cụ-giúp-trẻ-học-mà-chơi-với-hình-ảnh.132918/

Theo anh thì làm như vầy:
1/ Thêm 1 sheet để lấy tên danh sách hình trong Folder.
2/ Thêm 1 ListBox và 1 Combo tìm chỉ cần tìm (tên ảnh lấy từ danh sách trên), chọn 1 dòng trong ListBox thì nó hiện thông tin và hình ảnh.

 

[adult]

Super mod có khác. Hỏi 1 cái các cao thủ bay vô trả lời vèo vèo.
Mình thấy có những trường hợp thành viên hỏi nhưng các thành viên khác ko thèm trả lời hoặc trả lời 1 lần rồi thôi.
Có những trường hợp được hỗ trợ rất nhiệt tình. Không biết có quy định hoặc tiêu chí gì để được hỗ trợ không các admin và super mod ơi?

 

[huuthang_bd]

Super mod có khác. Hỏi 1 cái các cao thủ bay vô trả lời vèo vèo.
Mình thấy có những trường hợp thành viên hỏi nhưng các thành viên khác ko thèm trả lời hoặc trả lời 1 lần rồi thôi.
Có những trường hợp được hỗ trợ rất nhiệt tình. Không biết có quy định hoặc tiêu chí gì để được hỗ trợ không các admin và super mod ơi?

Chắc do ăn ở đó bạn

 

[ndu96081631]

Super mod có khác. Hỏi 1 cái các cao thủ bay vô trả lời vèo vèo.
Mình thấy có những trường hợp thành viên hỏi nhưng các thành viên khác ko thèm trả lời hoặc trả lời 1 lần rồi thôi.
Có những trường hợp được hỗ trợ rất nhiệt tình. Không biết có quy định hoặc tiêu chí gì để được hỗ trợ không các admin và super mod ơi?

Người khác thế nào tôi không biết chứ riêng tôi thì tiêu chí để nhiệt tình trả lời là:
- Câu hỏi phải có khả năng ứng dụng cao
- Dữ liệu rõ ràng
- Câu hỏi rõ ràng có đầu có đuôi, ví dụ: Tôi có dữ liệu thế này, tôi muốn làm gì đó để ra được kết quả thế này
vân... vân....
Một câu hỏi mơ hồ + dữ liệu luộm thuộm thì tôi mở file và đóng ngay lập tức, không thèm suy nghĩ chi cho mệt (chứ đùng nói là trả lời)

 

[VetMini]

Super mod có khác. Hỏi 1 cái các cao thủ bay vô trả lời vèo vèo.
Mình thấy có những trường hợp thành viên hỏi nhưng các thành viên khác ko thèm trả lời hoặc trả lời 1 lần rồi thôi.
Có những trường hợp được hỗ trợ rất nhiệt tình. Không biết có quy định hoặc tiêu chí gì để được hỗ trợ không các admin và super mod ơi?

Người ta quen nhau cho nên cũng hợp ý nhau. Người hỏi chỉ cần hé môi thì người kia hiểu liền.
Những người không quen thì phải chịu khó nêu vấn đề cho cặn kẽ. Lô gic này hết sức hiển nhiên trong kỹ năng ăn nói.

Chắc do ăn ở đó bạn

Ở đâu không biết chứ ở đây ăn không chưa đủ đâu. Theo dư liệu tôi thống kê thì còn uống nữa.

 

[phihndhsp]

ecec, ví dụ ở file đính kèm.

Em có đọc code của anh, em có thấy đoạn này
arr = .Execute("Select * from [Sheet1$B4:H6] where STT like '" & stt & "'").getrows
theo em hiểu là đưa dữ liệu truy vấn lưu vào mảng, nhưng em không làm được, ví dụ trong file bên dưới em muốn đưa truy vấn vào mảng thay vì
Sheet4.Range("a2").CopyFromRecordset Rst, thì mình phải làm như thế nào, trước đây em thường dùng như thế này

While lrs.EOF = False
                           If (lrs.Fields(0) <> 0) Then
                                 For J = 1 To 31
                                     arr(k, J) = lrs.Fields(J - 1)
                                     If (arr(k, J) = "-") Then arr(k, J) = 0
                                  Next
                                  k = k + 1
                           End If
                         lrs.MoveNext
                     Wend

nhưng giờ em thấy anh viết bài trên nên nghỉ chắc sẽ có cách viết gọn hơn,
Anh có thể thay cho em trong file này bằng cách lưu kết quả truy vấn vào mảng được không? xin cảm ơn anh nhiều

 

[be_09]

Super mod có khác. Hỏi 1 cái các cao thủ bay vô trả lời vèo vèo.
Mình thấy có những trường hợp thành viên hỏi nhưng các thành viên khác ko thèm trả lời hoặc trả lời 1 lần rồi thôi.
Có những trường hợp được hỗ trợ rất nhiệt tình. Không biết có quy định hoặc tiêu chí gì để được hỗ trợ không các admin và super mod ơi?

Quan điểm của tôi thì thế này:
1/ Trên diễn đàn không có chuyện phân biệt Mod với các thành viên đâu bạn, một bài viết nào đó được nhiều người trợ giúp là do cách ăn ở và cách giao tiếp tốt chiếm được thiện cãm của nhiều thành viên, biết cám ơn (thích) khi được trả lời.

2/ Một số thành viên có lời nói và cách giao tiếp như thế này “Bạn đọc kỹ vào, đừng có đậu hũ nữa, già rồi biết thì giúp, biết thì chỉ không thì thôi, em không cần lão ta giúp đâu”. Những thành viên có hành vi và thái độ như thế thì chẳng ai thèm xem bài chứ nói chi là trợ giúp, nhất là có lời lẽ không tốt với người cao tuổi và thành viên gạo cội thì thiệt thòi luôn thuộc về người hỏi bài.

3/ Để được nhiều thành viên trợ giúp thì bài viết phải gồm các tiêu chí sau:

- Bài viết không vi phạm nội quy, tiêu đề và nội dung phù hợp.

- Những vấn đề khó khăn, phức tạp khi hỏi phải rõ ràng có đầu có đuôi đính kèm theo File với tiêu đề đầy đủ có dữ liệu rõ ràng, cụ thể, chứ không nên khơi khơi đưa lên 1 cái hình nhìn cho vui.

- Một câu hỏi không có đầu, có đuôi chẳng thành viên nào hiểu thì sẽ không được trợ giúp.

 

[Hai Lúa Miền Tây]

Em có đọc code của anh, em có thấy đoạn này
arr = .Execute("Select * from [Sheet1$B4:H6] where STT like '" & stt & "'").getrows
theo em hiểu là đưa dữ liệu truy vấn lưu vào mảng, nhưng em không làm được, ví dụ trong file bên dưới em muốn đưa truy vấn vào mảng thay vì
Sheet4.Range("a2").CopyFromRecordset Rst, thì mình phải làm như thế nào, trước đây em thường dùng như thế này

While lrs.EOF = False
                           If (lrs.Fields(0) <> 0) Then
                                 For J = 1 To 31
                                     arr(k, J) = lrs.Fields(J - 1)
                                     If (arr(k, J) = "-") Then arr(k, J) = 0
                                  Next
                                  k = k + 1
                           End If
                         lrs.MoveNext
                     Wend

nhưng giờ em thấy anh viết bài trên nên nghỉ chắc sẽ có cách viết gọn hơn,
Anh có thể thay cho em trong file này bằng cách lưu kết quả truy vấn vào mảng được không? xin cảm ơn anh nhiều

Phi thử như sau nhé:

Sub HLMT_Test()
    Dim arr As Variant
    With CreateObject("ADODB.connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;IMEX=1""")
        arr = .Execute("select Makho, TenKho, count(sophieu), sum(so_Luong),sum(So_Tien) from(select DISTINCT maKho, TenKho , SoPhieu, Sum(SoLuong) as So_Luong,Sum(SoLuong*gia) as So_Tien from [data$] where Makho<>'' group by MaKho, TenKho, sophieu) group by makho, tenkho").GetRows
        Sheet4.Range("A2:E" & UBound(arr, 2) + 2).Value = Application.Transpose(arr)
    End With
    
End Sub

 

[phihndhsp]

Giờ em hiểu vấn đề rồi đó
Application.Transpose(arr) hôm trước em áp dụng code của anh nó ra ngược ngược sao đó, thì ra khi nó đưa ra mảng nó lưu ở dạng thành từng cột nội dung thay vì từng hàng. cảm ơn anh HLMT nhiều