Snasui Excel Forum

เมื่อกรอกชื่อใน textbox แล้วให้ โชว์รูปค่ะ code ด้านล่างที่หนูใช้อยู่ค่ะ คือหายังไงก็หารูปไม่เจอค่ะ จะเจอแต่รูปสีขาวค่ะ
Private Sub TextBox1_Change()
Dim myfind As Object
Dim rowfind As Integer
Set myfind = Sheets("ÇÑʴؤ§¤Åѧ").Range("A2:A1000").Find(UserForm2.TextBox1.Value, LookAt:=xlWhole ...

อาการเป็นตอนคลิกเข้าฟอร์มค่ะ แต่เป็นแค่กับฟอร์มนี้ ฟอร์มอื่นสามารถเปิดได้ปกติค่ะ แต่พอคลิกเข้าฟอร์มนี้แล้วค้างเลยค่ะ

ขึ้นแบบนี้แล้วไม่สามารถทำอะไรได้เลย ควรแก้ไขยังไงดีคะ

test.xlsm
vba excel หารูปไม่เจอทั้งๆที่ไฟล์excelกับไฟล์รูปอยู่ในโฟรเดอร์ เดียวกันค่ะ
ติด debug ตรง Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
Private Sub cb_รหัสวัสดุ1_Click()
Dim myfind As Object
Dim rowfind As String
Set myfind = Sheets("วัสดุคงคลัง").Range("A2 ...

vba excel หารูปไม่เจอทั้งๆที่ไฟล์excelกับไฟล์รูปอยู่ในโฟรเดอร์ เดียวกันค่ะ
ติด debug ตรง Borrow.img_รูป.Picture = LoadPicture(ActiveWorkbook.Path & "\white.jpg")
Private Sub cb_รหัสวัสดุ1_Click()
Dim myfind As Object
Dim rowfind As String
Set myfind = Sheets("วัสดุคงคลัง").Range("A2:A1000").Find ...

ขออณุญาติสอบถามค่ะ ตาม code ที่แนบมาหนูกดปุ่มค้นหาแล้วข้อมูลไม่โชว์ใน listbox แบบนี้หนูควรปรับปรุงตรงไหนไหมคะ แล้วข้อมูลที่หนูดึงมาเป็น 2 เงื่อนไข เงื่อนไขแรกคือ combobox เงื่อนไขที่ 2 คือวันที่ค่ะ
195530225_4023555771061441_1623805881261501059_n.png
Dim sdsheet As Worksheet, ersheet As Worksheet ...

หนูควรใช้คำสั่งหรือ code แบบไหนในการเขียนให้ปุ่ม search ข้อมูลแล้วโชว์ใน listbox ค่ะ ขอบคุณค่ะ

หนูอยากจะให้กดcombobox แล้วโชว์รูปค่ะ หนูได้แนบ code มาด้วย

Private Sub Private Sub combobox_Change()
intColor = Int((16777215 - 0 + 1) * Rnd + 0)
Select Case combobox
Case 0
Imagel.Picture = LoadPicture("D:\New folder\RMBG-C1-0001.jpg")
Case 1
Imagel.Picture = LoadPicture("D:\New folder\RMBR ...

หนูควรแก้ไขยังไงดีคะ ขอบคุณค่ะ
แบบที่ 1
Private Sub cmd_บันทึก_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))
Range("A" & last_row + 1).Value = txt_ผู้ใช้งาน.Value
Range("B" & last_row + 1).Value = txt_รหัสนักศึกษา ...