tra thông tin theo combobox? (1 người xem)

[haikimcuong]

Em có 1 file cần nhờ các anh chị giúp đỡ:
Hiện em đã làm 1 form và sheet có đủ thông tin em muốn khi mình trọn thông tin trong cbb1 thì nó sẽ hiện các tin liên quan đến đối tượng đó trong các label em đã thiết kế và hiện cả ảnh CMND ạ.
Xin cảm ơn anh chị

 

[ndu96081631]

Em có 1 file cần nhờ các anh chị giúp đỡ:
Hiện em đã làm 1 form và sheet có đủ thông tin em muốn khi mình trọn thông tin trong cbb1 thì nó sẽ hiện các tin liên quan đến đối tượng đó trong các label em đã thiết kế và hiện cả ảnh CMND ạ.
Xin cảm ơn anh chị

Vấn đề chèn ảnh lên Form ta tính sau đi. Phần còn lại: Chèn các thông tin liên quan (khi chọn ComboBox) chẳng lý nào bạn không tự làm được?
---------------------------------------
Liên quan đến chèn ảnh xin hỏi bạn: Dấu hiệu nào để nhận biết được cái Picture 2 ấy là của anh NGUYỄN HỮU QUÝ (bạn đừng nói là nhìn tên trong ảnh nha)

 

[haikimcuong]

đó cái vđ đó em mới đang lo: e đang tính dùng 1 cột phụ đc không ạ. còn add thông tin kia em làm đc. rồi e quên chưa up

 

[ndu96081631]

đó cái vđ đó em mới đang lo: e đang tính dùng 1 cột phụ đc không ạ. còn add thông tin kia em làm đc. rồi e quên chưa up

Gợi ý cho bạn: Dấu hiệu để nhận biết 1 picture chính là TÊN CỦA PICTURE
Vậy, việc đầu tiên bạn cần làm là: ĐẶT TÊN CHO CÁC PICTURE THEO TÊN NGƯỜI (chẳng hạn)
(Nếu đặt tên hình theo tên người, bạn phải bảo đảm rằng không có người nào trùng tên với người nào cả)
---------------
Bạn làm xong các khâu chuẩn bị đi rồi ta tính tiếp

 

[haikimcuong]

Vấn đề thầy nêu em đã sửa name theo tên người rồi ạ. mong thầy chỉ giáo tiếp ạ

 

[ndu96081631]

Vấn đề thầy nêu em đã sửa name theo tên người rồi ạ. mong thầy chỉ giáo tiếp ạ

Thêm sự kiện ComboBox_Click thế này thôi

Private Sub ComboBox1_Click()
  Dim pic As Picture, IPic As IPictureDisp
  On Error Resume Next
  Image1.Picture = Nothing
  Set pic = Sheet2.Pictures(ComboBox1.Column(0))
  If Not pic Is Nothing Then
    Set IPic = [COLOR=#ff0000][B]PictureFromObject[/B][/COLOR](pic)
    Image1.Picture = IPic
  End If
End Sub

Chổ màu đỏ là hàm mà tôi thêm vào trong 1 Module. nó được lấy từ đây:
http://www.giaiphapexcel.com/forum/...Sheet-lên-Button-của-Form&p=458257#post458257
----------------
Khó khăn của bạn chỉ là phần load ảnh và tôi đã giúp bạn phần này. Còn lại bạn tự làm nhé

 

[haikimcuong]

Thêm sự kiện ComboBox_Click thế này thôi

Private Sub ComboBox1_Click()
  Dim pic As Picture, IPic As IPictureDisp
  On Error Resume Next
  Image1.Picture = Nothing
  Set pic = Sheet2.Pictures(ComboBox1.Column(0))
  If Not pic Is Nothing Then
    Set IPic = [COLOR=#ff0000][B]PictureFromObject[/B][/COLOR](pic)
    Image1.Picture = IPic
  End If
End Sub

Chổ màu đỏ là hàm mà tôi thêm vào trong 1 Module. nó được lấy từ đây:
http://www.giaiphapexcel.com/forum/...Sheet-lên-Button-của-Form&p=458257#post458257
----------------
Khó khăn của bạn chỉ là phần load ảnh và tôi đã giúp bạn phần này. Còn lại bạn tự làm nhé

Cảm ơn thầy xin hỏi thầy thêm 1 vấn đề khi em có cho thêm vào vào các thông tin khác nữa cho nhiều người thì nó lại không nhận biết được vậy lỗi là do đâu khi mà em đã đặt name picture giống name của đối tượng chọn trên cbb ạ.

 

[ndu96081631]

Cảm ơn thầy xin hỏi thầy thêm 1 vấn đề khi em có cho thêm vào vào các thông tin khác nữa cho nhiều người thì nó lại không nhận biết được vậy lỗi là do đâu khi mà em đã đặt name picture giống name của đối tượng chọn trên cbb ạ.

Ai biểu bạn đặt tên hình là number chi (mấy cái khác là text tự nhiên lại có 1 cái là number)... nên có sự nhầm lẫn trong xử lý
Bạn sửa code thành vầy nhé:

Private Sub ComboBox1_Click()
  Dim pic As Picture, IPic As IPictureDisp
  On Error Resume Next
  Image1.Picture = Nothing
  Set pic = Sheet2.Pictures([COLOR=#ff0000][B]CStr([/B][/COLOR]ComboBox1.Column(0)[B][COLOR=#ff0000])[/COLOR][/B])
  If Not pic Is Nothing Then
    Set IPic = PictureFromObject(pic)
    Image1.Picture = IPic
  End If
End Sub

Chổ màu đỏ là chổ đã sửa lại

 

[haikimcuong]

Chân thành cảm ơn thầy