cách load hình ảnh lên user form khi chọn giá trị trong combobox

Liên hệ QC
M

mylanlinh

Thành viên mới
Tham gia
24/11/10
Bài viết
18
Được thích
1
Mong quý anh/chị/em hướng dẫn mình cách load hình ảnh lên user form khi chọn giá trị trong combobox
(File mình đính kèm (Combobox MANY Image), không biết sai chỗ nào)
(Khi mình chọn mỗi mục ở combobox thì ngoài việc load từng giá trị lên textbox bên dưới thì cũng sẽ load từng hình ảnh tương ứng của từng mục)
Xin chân thành cảm ơn ạ!
 

File đính kèm

  • Combobox MANY Image.xlsm
    26.1 KB · Đọc: 11
Chỉnh sửa lần cuối bởi điều hành viên:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
mylanlinh đã viết:
Mong quý anh/chị/em hướng dẫn mình cách load hình ảnh lên user form khi chọn giá trị trong combobox
(File mình đính kèm, không biết sai chỗ nào)
(Khi mình chọn mỗi mục ở combobox thì ngoài việc load từng giá trị lên textbox bên dưới thì cũng sẽ load từng hình ảnh tương ứng của từng mục)
Xin chân thành cảm ơn ạ!
Nhấp chuột vào đây để mở rộng...
Bạn sai nhiều chỗ lắm
UserForm_Initialize()
mà ghi là
UserForm1_Initialize() <-- dư số 1
Sheets("Sheet1")
mà ghi là:
Sheets("Sheetl") <--- thay vì số một bạn lại ghi thành chữ "en lờ"
----------------
Đại khái sửa thành vầy:
Mã: 
Private Sub UserForm_Initialize()
  Dim i As Long, LastRow As Long, ws As Worksheet
  Set ws = Sheets("Sheet1")
  LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
    Me.ComboBox1.AddItem ws.Cells(i, "A").Value
  Next i
End Sub

Private Sub ComboBox1_Click()
  Dim lRow As Long, ws As Worksheet, rng As Range
  Dim fpath As String
  fpath = " F:\OneDrive\tao flashcard\User form Image\"
  Set ws = Sheets("Sheet1")
  Set rng = ws.Range("A2:G10000")
  lRow = Me.ComboBox1.ListIndex + 1
  Me.TextBox1.Text = rng(lRow, 2).Value
  Me.TextBox2.Text = rng(lRow, 3).Value
  Me.TextBox3.Text = rng(lRow, 4).Value
  Me.TextBox4.Text = rng(lRow, 5).Value
  Me.TextBox4.Text = rng(lRow, 6).Value
  Me.TextBox5.Text = rng(lRow, 7).Value
  Me.Imagel.Picture = LoadPicture(fpath & Me.TextBoxl.Text & Me.TextBox2.Text & ".jpg ")
End Sub
Chỗ load picture tự bạn sửa cho đúng, tôi không biết đâu
 
Upvote 0
mylanlinh đã viết:
Mong quý anh/chị/em hướng dẫn mình cách load hình ảnh lên user form khi chọn giá trị trong combobox
(Khi mình chọn mỗi mục ở combobox thì ngoài việc load từng giá trị lên textbox bên dưới thì cũng sẽ load từng hình ảnh tương ứng của từng mục)
Xin chân thành cảm ơn ạ!
Nhấp chuột vào đây để mở rộng...
Code trong form

Mã: 
Private Sub ComboBox1_Change()
    Dim i As Integer
    On Error Resume Next
    For i = 1 To 5
       Controls("TextBox" & i) = ComboBox1.Column(i)
    Next i
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Images\" & ComboBox1.Column(6) & ".jpg")
End Sub

Private Sub UserForm_Initialize()
    With ComboBox1
        .ColumnHeads = True
        .ColumnCount = 5
        .RowSource = "Sheet1!A2:G29"
        .ColumnWidths = "30;90"
        .ListStyle = 1
    End With
End Sub

Bạn xem ví dụ ở file đính kèm nhé.
 

File đính kèm

  • LoadPicture.rar
    1.1 MB · Đọc: 30
Upvote 0
Hai Lúa Miền Tây đã viết:
Bạn xem ví dụ ở file đính kèm nhé.
Nhấp chuột vào đây để mở rộng...
Đã có bài ở đây nè
www.giaiphapexcel.com

Xin cách load hình ảnh lên user form khi chọn giá trị trong combobox

Mong quý anh/chị/em hướng dẫn mình cách load hình ảnh lên user form khi chọn giá trị trong combobox (File mình đính kèm, không biết sai chỗ nào) (Khi mình chọn mỗi mục ở combobox thì ngoài việc load từng giá trị lên textbox bên dưới thì cũng sẽ load từng hình ảnh tương ứng của từng mục) Xin chân...
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
ndu96081631 đã viết:
Đã có bài ở đây nè
www.giaiphapexcel.com

Xin cách load hình ảnh lên user form khi chọn giá trị trong combobox

Mong quý anh/chị/em hướng dẫn mình cách load hình ảnh lên user form khi chọn giá trị trong combobox (File mình đính kèm, không biết sai chỗ nào) (Khi mình chọn mỗi mục ở combobox thì ngoài việc load từng giá trị lên textbox bên dưới thì cũng sẽ load từng hình ảnh tương ứng của từng mục) Xin chân...
www.giaiphapexcel.com www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
Gộp 2 đề tài lại làm 1 vì 2 đề tài đều có trả lời.
 
Upvote 0
mylanlinh đã viết:
Mong quý anh/chị/em hướng dẫn mình cách load hình ảnh lên user form khi chọn giá trị trong combobox
(File mình đính kèm (Combobox MANY Image), không biết sai chỗ nào)
(Khi mình chọn mỗi mục ở combobox thì ngoài việc load từng giá trị lên textbox bên dưới thì cũng sẽ load từng hình ảnh tương ứng của từng mục)
Xin chân thành cảm ơn ạ!
Nhấp chuột vào đây để mở rộng...
Không có phần dùng Form để nhập liệu, không lẽ nhập trực tiếp vào Sheet?
 
Upvote 0
ndu96081631 đã viết:
Bạn sai nhiều chỗ lắm
UserForm_Initialize()
mà ghi là
UserForm1_Initialize() <-- dư số 1
Sheets("Sheet1")
mà ghi là:
Sheets("Sheetl") <--- thay vì số một bạn lại ghi thành chữ "en lờ"
----------------
Đại khái sửa thành vầy:
Mã: 
Private Sub UserForm_Initialize()
  Dim i As Long, LastRow As Long, ws As Worksheet
  Set ws = Sheets("Sheet1")
  LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
    Me.ComboBox1.AddItem ws.Cells(i, "A").Value
  Next i
End Sub

Private Sub ComboBox1_Click()
  Dim lRow As Long, ws As Worksheet, rng As Range
  Dim fpath As String
  fpath = " F:\OneDrive\tao flashcard\User form Image\"
  Set ws = Sheets("Sheet1")
  Set rng = ws.Range("A2:G10000")
  lRow = Me.ComboBox1.ListIndex + 1
  Me.TextBox1.Text = rng(lRow, 2).Value
  Me.TextBox2.Text = rng(lRow, 3).Value
  Me.TextBox3.Text = rng(lRow, 4).Value
  Me.TextBox4.Text = rng(lRow, 5).Value
  Me.TextBox4.Text = rng(lRow, 6).Value
  Me.TextBox5.Text = rng(lRow, 7).Value
  Me.Imagel.Picture = LoadPicture(fpath & Me.TextBoxl.Text & Me.TextBox2.Text & ".jpg ")
End Sub
Chỗ load picture tự bạn sửa cho đúng, tôi không biết đâu
Nhấp chuột vào đây để mở rộng...
Vâng, xin chân thành cảm ơn ạ!
Bài đã được tự động gộp:

Hai Lúa Miền Tây đã viết:
Code trong form

Mã: 
Private Sub ComboBox1_Change()
    Dim i As Integer
    On Error Resume Next
    For i = 1 To 5
       Controls("TextBox" & i) = ComboBox1.Column(i)
    Next i
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Images\" & ComboBox1.Column(6) & ".jpg")
End Sub

Private Sub UserForm_Initialize()
    With ComboBox1
        .ColumnHeads = True
        .ColumnCount = 5
        .RowSource = "Sheet1!A2:G29"
        .ColumnWidths = "30;90"
        .ListStyle = 1
    End With
End Sub

Bạn xem ví dụ ở file đính kèm nhé.
Nhấp chuột vào đây để mở rộng...
Ôi, tuyệt vời. Một lần nữa, em được sự giúp đỡ của HAI LÚA MIỀN TÂY. Em rất chân thành cảm ơn!!!!!
 
Upvote 0
ndu96081631 đã viết:
Bạn sai nhiều chỗ lắm
UserForm_Initialize()
mà ghi là
UserForm1_Initialize() <-- dư số 1
Sheets("Sheet1")
mà ghi là:
Sheets("Sheetl") <--- thay vì số một bạn lại ghi thành chữ "en lờ"
----------------
Đại khái sửa thành vầy:
Mã: 
Private Sub UserForm_Initialize()
  Dim i As Long, LastRow As Long, ws As Worksheet
  Set ws = Sheets("Sheet1")
  LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
    Me.ComboBox1.AddItem ws.Cells(i, "A").Value
  Next i
End Sub

Private Sub ComboBox1_Click()
  Dim lRow As Long, ws As Worksheet, rng As Range
  Dim fpath As String
  fpath = " F:\OneDrive\tao flashcard\User form Image\"
  Set ws = Sheets("Sheet1")
  Set rng = ws.Range("A2:G10000")
  lRow = Me.ComboBox1.ListIndex + 1
  Me.TextBox1.Text = rng(lRow, 2).Value
  Me.TextBox2.Text = rng(lRow, 3).Value
  Me.TextBox3.Text = rng(lRow, 4).Value
  Me.TextBox4.Text = rng(lRow, 5).Value
  Me.TextBox4.Text = rng(lRow, 6).Value
  Me.TextBox5.Text = rng(lRow, 7).Value
  Me.Imagel.Picture = LoadPicture(fpath & Me.TextBoxl.Text & Me.TextBox2.Text & ".jpg ")
End Sub
Chỗ load picture tự bạn sửa cho đúng, tôi không biết đâu
Nhấp chuột vào đây để mở rộng...
E chào bác,bác cho e hỏi là load ảnh ra từ listbox(ko phải combobox)có làmđược khôngạ
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
Hàm if, lọc dữ liệu trùng
Trả lời
5
Đọc
6K
canhthuyduong
C
O
Hỏi cách xoá vùng dữ liệu trống
Trả lời
6
Đọc
198
onecry
O
N
Em cần giúp tách số thập phân trong chuỗi trên file excel
Trả lời
0
Đọc
1
ngocmainamnhu
N
NguyenNhan789556
Code từ sheets tổng qua các sheets còn lại
Trả lời
2
Đọc
20
NguyenNhan789556
NguyenNhan789556
phanmoi688
[Xin nhờ giúp đỡ] Cách đối chiếu dữ liệu giữa hai biểu
    • Thích
2
Trả lời
25
Đọc
319
HUONGHCKT
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom