ค้นหาข้อมูลแล้ว คลิกข้อมูลใน List Box จะแสดงข้อมูลที่เลือก

[wisitsakbenz]

เรียน อาจารย์

ต้องการให้เมื่อค้นหาข้อมูลแล้ว คลิกข้อมูลใน List Box จะแสดงข้อมูลที่เลือกด้านซ้ายมือ (ดังภาพ) ต้องปรับ Code อย่างไรครับ
ขอบคุณครับ

Code: Select all

Private Sub ListBox1_Click()
Dim say, lastrow As Long, a As Byte, i As Integer
On Error Resume Next
        i = Me.ListBox1.ListIndex
    If Me.ListBox1.Selected(i) = True Then
    
Sheets("Input").Range("M3").Value = Me.ListBox1.List(i, 0)

Sheets("Input").Range("C4").Value = Me.ListBox1.List(i, 1)
Sheets("Input").Range("E4").Value = Me.ListBox1.List(i, 2)
Sheets("Input").Range("E6").Value = Me.ListBox1.List(i, 3)
Sheets("Input").Range("C6").Value = Me.ListBox1.List(i, 4)
Sheets("Input").Range("C8").Value = Me.ListBox1.List(i, 5)
Sheets("Input").Range("C10").Value = Me.ListBox1.List(i, 6)

    End If

lastrow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Input").Activate
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate

End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Sheets("Input").Range("E6").Value = Me.ListBox1.List(i, 3)
If Sheets("Input").Range("E6").Value = "Male" Then
    Sheets("Input").OptionButton1.Value = True
    Sheets("Input").OptionButton2.Value = False
Else
    Sheets("Input").OptionButton1.Value = False
    Sheets("Input").OptionButton2.Value = True
End If
Sheets("Input").Range("C6").Value = Me.ListBox1.List(i, 4)
If Sheets("Input").Range("C6").Value <> "" Then
    Sheets("Input").CheckBox1.Value = True
Else
    Sheets("Input").CheckBox1.Value = False
End If
'Other code

[wisitsakbenz]

เรียน อาจารย์ snasui

ได้แล้วครับ ขอบคุณครับ