Snasui Excel Forum

Option Explicit
Private Sub ComboBox1_Change()
Dim id As Long
If ComboBox1.Value <> "" Then

id = ComboBox1.Value
TextBox1.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 2, 0)
TextBox2.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 3, 0)
ComboBox2.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 4, 0)
TextBox3.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 5, 0)
Else

TextBox1.Value = ""
TextBox2.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""

End If
End Sub

Private Sub CommandButton1_Click()
Dim CurrentRow As Long
Dim id As Long
Dim lastrow As Long
Dim rowselect As Long
If ComboBox1.Value = "" Then
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
CurrentRow = lastrow + 1
id = WorksheetFunction.Max(Range("A2:A300"))
If id = 0 Then
id = 1
Else
id = id + 1
End If
Cells(CurrentRow, 1).Value = id
Cells(CurrentRow, 2).Value = TextBox1.Value
Cells(CurrentRow, 3).Value = TextBox2.Value
Cells(CurrentRow, 4).Value = ComboBox2.Value
Cells(CurrentRow, 5).Value = TextBox3.Value
Else
id = ComboBox1.Value
rowselect = WorksheetFunction.Match(id, Sheet1.Range("A1:A300"), 0)
Rows(rowselect).Select
Cells(rowselect, 2).Value = TextBox1.Value
Cells(rowselect, 3).Value = TextBox2.Value
Cells(rowselect, 4).Value = ComboBox2.Value
Cells(rowselect, 5).Value = TextBox3.Value

End If
Unload Me
UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
Dim id As Long
Dim rowselect As Long
If ComboBox1.Value = "" Then
MsgBox ("¡ÃسÒàÅ×Í¡¢éÍÁÙÅ")
Else
id = ComboBox1.Value
rowselect = WorksheetFunction.Match(id, Sheet1.Range("A1:A300"), 0)
Rows(rowselect).Select
Rows(rowselect).EntireRow.Delete
End If
Unload Me
UserForm1.Show
End Sub

Private Sub CommandButton3_Click()
Unload Me
Sheet1.Activate
End Sub

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

ช่วยแนบไฟล์และโพสต์โค้ดตามกฎข้อ 4 และ 5 ด้านบนของเพจมาด้วย เพื่อนสมาชิกจะได้สะดวกในการตอบครับ

ไฟล์งานค่ะ
พอเวลาพิมข้อมูลแล้วมันจะขึ้น error ตรง id = ComboBox1.Value ค่ะ

กรุณาอธิบายประกอบมาอย่างละเอียดถึงลำดับขันตอนการทำงานที่ทำเกิด Error นั้น เช่น

คลิกปุ่มใด กรอกข้อความทดสอบใด สังเกต Error ได้จากที่ใด ฯลฯ จะได้เข้าถึงปัญหาโดยไวครับ

เมื่อกรอกข้อมูลตัวหนังสือหรือค่าที่ไม่มีลงไปใน combobox ที่วงกลมไว้ จะเกิด Debug ขึ้นที่

Option Explicit
Private Sub ComboBox1_Change()
Dim id As Long
If ComboBox1.Value <> "" Then

id = ComboBox1.Value

ต้องแก้ไขยังไงค่ะ

ไม่เห็นภาพนะครับ

เท่าที่ดูจากโค้ดเห็นว่า id ประกาศเป็น long คือเป็นตัวเลข เวลาคีย์ก็ต้องคีย์เป็นตัวเลข คีย์เป็นตัวหนังสือก็ต้อง error ครับ

แก้ไขแล้วขึ้น error ตามภาพแรยค่ะ

Private Sub ComboBox1_Change()
Dim id As String
If ComboBox1.Value <> "" Then

id = ComboBox1.Value
TextBox1.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 2, 0)
TextBox2.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 3, 0)
ComboBox2.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 4, 0)
TextBox3.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 5, 0)
Else

TextBox1.Value = ""
TextBox2.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""

End If
End Sub

วิธีโพสต์โค้ด อ่านตัวอย่างจากกฎข้อ 5 ของฟอรัมด้านบน ที่โพสต์มานั้นทำไม่ถูกต้องอยู่นะครับ

เปลี่ยนเป็น TextBox1.Value = WorksheetFunction.VLookup(clng(id), Sheet1.Range("A2:E300"), 2, 0) ดูว่าใช้ได้ไหมครับ

แก้ไขแล้วยังเป็นเหมือนเดิมค่ะ ต้องแก้ไขตรงไหนเพิ่มค่ะ

Benmore wrote:Untitled.png
เมื่อกรอกข้อมูลตัวหนังสือหรือค่าที่ไม่มีลงไปใน combobox ที่วงกลมไว้ จะเกิด Debug ขึ้นที่

Option Explicit
Private Sub ComboBox1_Change()
Dim id As Long

If ComboBox1.Value <> "" Then

id = ComboBox1.Value

ต้องแก้ไขยังไงค่ะ

หากไม่ให้เกิด Error ให้ใส่ on error resume next เข้ามาช่วยครับ

เช่น
เนื่่องจากตัวเลขใน Worksheet เป็น Text การประกาศตัวแปรก็กำหนดให้เป็น Text และไม่ต้องใช้ Clng ครอบครับ

แก้แล้วค่ะ ก็ยังขึ้น error เหมือนเดิม ต้องแก้ไขอย่างไรค่ะ

รูปล่าสุดนี่เป็นคนละตำแหน่งกับที่อาจารย์และเพื่อนๆ แนะนำหรือเปล่าครับ

สำหรับกรณีล่าสุด ลองประกาศตัวแปร id เป็น integer หรือ long ดูครับ
ผมเข้าใจว่าข้อมูลในช่วง sheet7.range("a1:a200") เป็นตัวเลข ดังนั้น id ที่จะเอามา match กันก็ควรเป็นตัวเลขด้วยครับ

แต่เห็นว่าเมื่อมีเบอร์ id ใหม่ใส่เข้าไป ตัวเลขจะกลายเป็น text ผมว่าควรตั้งค่ารูปแบบให้เหมือนๆ กันจะได้ลดการเกิด error ครับ การตั้งค่ารูปแบบตัวเลขให้เป็น text น่าจะทำเมื่อจำเป็นจริงๆ เช่น เลข invoice ที่ต้องมี 0 นำหน้าเยอะๆ หรืออะไรทำนองนี้ แต่กรณีนี้เป็นเลข id ผมว่าควรให้มีรูปแบบเป็นตัวเลขจะได้นำมาใช้งานง่ายๆ ครับ

พอดีต้องการค้นหาข้อมูลที่อยูในชีท แบบที่ใส่ตัวหนังสือหรือตัวเลขก็ค้นหาได้ค่ะ
พอมีโค้ดตัวอย่างที่ง่ายๆไม่ซับซ้อนแนะนำไหมค่ะ

Benmore wrote:พอดีต้องการค้นหาข้อมูลที่อยูในชีท แบบที่ใส่ตัวหนังสือหรือตัวเลขก็ค้นหาได้ค่ะ

หมายถึงว่า ให้ค้นหาได้ทั้งจาก id หรือชื่อผู้ใช้บริการ หรือเปล่าครับ

ผมว่าโค้ดที่เขียนมาก็เข้าใจง่ายดีครับ เพียงแต่สงสัยว่าทำไมจึงต้องกำหนดรูปแบบเซลล์ในชีท LOCKER SV ให้เป็น text ทั้งหมด และเหมือนกับว่ากำหนดหลังจากที่ทำตารางข้อมูลเสร็จแล้ว เวลาใส่ตัวเลขลงไปทีหลัง ตัวเลขนั้นเลยกลายเป็น text คราวนี้ก็เลยมีตัวเลขที่มีรูปแบบเป็น number และ text ผสมกันในคอลัมน์เดียว เวลาเอามาใช้ก็ไม่ค่อยสะดวกครับ คิดว่าควรปรับรูปแบบตัวเลขในชีทก่อน แล้วก็มาปรับโค้ดครับ

สำหรับโค้ดการค้นหาทำได้หลายแบบ ลองศึกษาโค้ดเหล่านี้เพิ่มเติมก็ได้ครับ
For... Next เป็นการวนลูป เราสั่งได้ว่าให้ตรวจสอบแต่ละเซลล์ในช่วงที่กำหนดเพื่อดูว่ามีข้อมูลที่เราสนใจหรือไม่ เช่น Instr เป็นการตรวจว่าข้อความที่ถูกตรวจสอบ มี key word ที่เราสนใจอยู่หรือไม่

พอมีตัวอย่างโค้ดไหมค่ะ ??
พอดีลองเอาโค้ดเก่าๆมาแก้ไขค่ะ เลยออกมาแบบนี้

ลองค้นหาจากปุ่มค้นหาด้านขวาบนของบอร์ดนี้ครับ มีหลายตัวอย่าง หรือถ้าจากกูเกิ้ลก็เช่นที่ลิ้งค์ด้านล่างครับ

https://trumpexcel.com/excel-vba-instr/

ทำได้แล้วขอบคุณมากค่ะ