Snasui Excel Forum

ขอบคุณมากครับ

รบกวนสอบถามอาจารย์ครับ ข้อมูลใน combobox ที่เหมือนกันให้แสดงเพียงค่าเดียวครับ
ตัวอย่าง ใน Sheet 1 column A มี ข้อมูลดังนี้ครับ 1,1,2,2,3,3,4,5,5,6,7,7,7,8 ถ้าต้องการให้ใน combobox1 แสดงข้อมูล 1,2,3,4,5,6,7,8 อยู่ใน UserForm_Initialize


Private Sub UserForm_Initialize()
Dim LastRow As Integer ...

พอดีมีปัญหาอีกนิดหนึ่งครับอาจารย์เวลาที่ผมค้นชื่อ ในช่อง Name (combobox1) เวลาที่มีเครื่องหมาย "[]" รวมอยู่ในชื่อผมค้นจาก combobox1 แล้วมันค้นไม่เจอครับ เช่น ชื่อ Peter[JS] code อยู่ในปุ่ม Search commandbutton1 ครับ ผมแนบไฟล์เพิ่มมาด้วย ควรแก้ไขอย่างไรดีครับ


Private Sub CommandButton1_Click()
Dim ...

ครับ ผมค้น DATE OF BIRTH เช่น ผมใส่ วันที่ (1/1/1982) ใน textbox1 และ (1/1/1985) ใน Textbox2 หลังจากนั้น
ใน listbox1 แสดงการค้นคือ

150002 David James B-com b-movie b-state 15/9/1982 15/3/2015
150006 Bandeck Netter BBBBBC a-movie d-state 12/8/1982 19/4/2015

แต่พอผมทดสอบแล้วมันค้นไม่ได้ครับ

ขออนุญาตต่อจากของเดิมนะครับเพราะคล้าย ๆ กัน ผมลองเขียนโค๊ด ค้นระหว่างสอง ID ได้แล้วและกำลังทำค้นระหว่างสองวันที่ โดยดูตัวอย่างโค๊ดจากของเดิม โดยเปลี่ยน data type จากเดิมเป็น integer เป็น date โค๊ดอยู่ที่ UserForm1 ปุ่ม SEARCH(CommandButton1)


Dim a As Long
Dim sCrit As String
Dim tCrit, uCrit As ...

ผมลองใช้โค๊ดของอาจารย์ พบปัญหานิดหนึ่ง ครับ เวลาผมเลือก a (combobox1) จะได้ ก,ด,พ,ผ,ป (combobox2) แต่พอเลือก b ต่อจาก a (combobox2) ผลปรากฏว่า มันได้ ก,ด,พ,ผ,ป,ส,ว,ง,ล ซึ่งไม่ตรงกับ b (ผมแนบไฟล์ภาพมาด้วยครับ) ควรแก้ไขอย่างไรดีครับ

แต่ที่ผมโค๊ดมีปัญหา เวลาเปลี่ยนเป็น sheet อื่นที่ไม่ใช่ Sheet1 มันไม่ขึ้น

แต่ของอาจารย์ใช้ได้ไม่มีปัญหา ทุก sheet ครับ

ครับ ขอบคุณมากครับอาจารย์
ผมลองฝึกเขียนดูได้อีกแบบครับ

Private Sub ComboBox1_Change()

Dim i, m, n As Integer
Dim lRow As Long


With Application.WorksheetFunction

i = Val(.Index(Sheets("sheet1").Range("a2:a10000"), .Match(Me.ComboBox1, Sheets("Sheet1").Range("b2:b10000"), 0)))
End With
On ...

คือผมต้องการให้แสดงหลายค่า เช่น ถ้าผมเลือก "a" ใน (combobox1) แล้ว "a" match กับ "1" ในคอลัมน์ A แล้ว จะให้ "1" ในคอลัมน์ F math กับ "ก,ด,พ,ผ,ป" ในคอลัมน์ G แล้วแสดงทุกค่าใน (combobox2) ควรทำอย่างไรดีครับ ลองทำแล้วมันขึ้นแค่ค่าเดียว คือ ก ตัวแรก

Private Sub ComboBox1_Change()

Dim i, j As Integer ...

If ComboBox3.Value <= deg7.Value <= ComboBox4.Value & "*" Then

คือผมต้องการไอดีที่อยู่ระหว่าง ไอดี ที่ใส่ใน combobox3 และ combobox4 ผมให้ deg7.value แทนค่าที่ของไอดีที่อยู่ระหว่าง สองค่าเช่น ผมใส่ 150002 (combobox3) และ 150006(combobox4) เวลาค้นแล้วต้องได้


150002 < =(น้อยกว่าหรือเท่ากับ ...

ขอบคุณมากครับ

ผมลองทำต่อไปอีก ติดปัญหาตรง การค้นหาระหว่าง สอง ID case สุดท้าย กรณี ID1 < ID2 รบกวนช่วยดูให้หน่อยครับ


'ID1<ID2

If ComboBox1.Value = "" And ComboBox2.Value = "" And ComboBox3.Value < ComboBox4.Value Then

For sat = 2 To Sheets("Sheet1").Cells(10000, "a").End(xlUp).Row
Set deg7 ...

ผมลองใช้ vba ในการค้นข้อมูล โดยติดปัญหาที่เวลาใช้ ชืือ(name) และ นามสกุล(surname) ในการค้นพร้อมแล้ว ไม่สามารถค้นได้

code อยู่ UserForm 1 ที่ปุ่ม ค้น (Search,commandbutton1)

'case 3 name & surname search รบกวนอาจารย์หรือผู้รู้ช่วยหน่อยครับ


Private Sub CommandButton1_Click()


Dim sat, sat2, s ...

ขอบคุณครับ ไม่ติดบั๊กแล้ว ข้อ 2



สำหรับข้อ (1) เมื่อบันทึกข้อมูลแล้วต้องการให้เลขที่มันรันโดยอัตโนมัติ เริ่มจาก 5800001 โดย 58 คือปีที่บันทึก และ 00001 คือเลขที่ที่รัน


ผมต้องการให้เลขที่เปลี่ยนตามปี เช่น ปี 58 เก็บถึง 580678 เลขต่อไป ปี 59 ต้องเป็นเลขท่ี 590679 ..... ผมลองเอาเรื่องการบันทึกว ...

ขออนุญาต อาจารย์หรือผู้รู้ช่วยให้คำแนะนำด้วยครับ

จากไฟล์ที่แนบมามีปัญหาดังนี้ครับ
(1) เมื่อบันทึกข้อมูลแล้วต้องการให้เลขที่มันรันโดยอัตโนมัติ เริ่มจาก 5800001 โดย 58 คือปีที่บันทึก และ 00001 คือเลขที่ที่รัน

(2) การค้นข้อมูล ผมใช้ชื่อค้นแล้ว ต้องการให้เลขที่ขึ้น แต่มันฟ้อง error

Me.Label9 ...