Page 1 of 1
ต้องการค้นหาที่เก็บสินค้า โดยมีรุปโชว์ USER FORM VBA
Posted: Thu Jul 18, 2019 9:34 am
by chaiwutampas
เรื่อง การค้นหาข้อมูล Userform VBA
คือผมต้องการค้นหาข้อมูลที่เก็บสินค้า อย่างใดอย่างหนึ่ง
จากข้อมูลใน Sheet"FIND"
ติดปัญหาตรง ยัง UPDATE รูปไม่หมด ทำให้เกิดการ ERROR
ขอคำสั่งหากไม่มีรูป ให้แจ้ง MSGBOX : NO PIC ครับ
ขอบคุณครับ
Re: ต้องการค้นหาที่เก็บสินค้า โดยมีรุปโชว์ USER FORM VBA
Posted: Thu Jul 18, 2019 9:40 am
by chaiwutampas
Private Sub CommandButton3_Click()
Dim fdata As Range
Set fdata = Sheet1.Range("A:A").Find(What:=Me.ComboBox1.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
Me.TextBox1.Value = fdata.Value
Me.TextBox2.Value = fdata.Offset(0, 1).Value
Me.TextBox3.Value = fdata.Offset(0, 2).Value
Me.ComboBox2.Value = fdata.Offset(0, 3).Value
Me.TextBox4.Value = fdata.Offset(0, 4).Value
Me.TextBox5.Value = fdata.Offset(0, 5).Value
Me.PIC1.Picture = LoadPicture("F:\PIC\" & ComboBox1.Value & ".JPG")
Me.PIC1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Re: ต้องการค้นหาที่เก็บสินค้า โดยมีรุปโชว์ USER FORM VBA
Posted: Thu Jul 18, 2019 11:50 am
by logic
ลองแบบนี้ครับ
โปรดอ่านกฎการใช้บอร์ดข้อ 5 เรื่องการโพสโค้ดด้วยครับ
Code: Select all
'<โค้ดก่อนหน้า>
If Dir("F:\PIC\" & ComboBox1.Value & ".JPG") = "" Then
MsgBox "Error"
Exit Sub
End If
Me.PIC1.Picture = LoadPicture("F:\PIC\" & ComboBox1.Value & ".JPG")
'<โค้ดอื่นที่เหลือ>
Re: ต้องการค้นหาที่เก็บสินค้า โดยมีรุปโชว์ USER FORM VBA
Posted: Thu Jul 18, 2019 12:03 pm
by chaiwutampas
ขอโทษครับ เพิ่งโพสครั้งแรก จะปรับปรุงครับ และขอบคุณครับจะนำไปใช้งาน ให้ดียิ่งขึ้นครับ