Page 1 of 1
การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Sun May 10, 2015 6:59 pm
by Cs.Hwan
เรียนอาจารย์ทุกท่าน ดิฉันต้องการทราบว่าเราสามารถใช้comboboxเพียงอันเดียวเลือกข้อมูล(select model)ให้โชว์ในTextbox
เงื่อนไขคือ
- อยากให้เลือก select model ครั้งที่1 แล้วโชว์ข้อมูลในtextboxแถวที่1ทั้งหมด
select model ครั้งที่2 แล้วโชว์ข้อมูลในtextboxแถวที่2ทั้งหมด
select model ครั้งที่3 แล้วโชว์ข้อมูลในtextboxแถวที่3ทั้งหมด
select model ครั้งที่4 แล้วโชว์ข้อมูลในtextboxแถวที่1ทั้งหมด... วนลูปไปเรื่อยๆคะ
โดยใช้ combobox เพียงอันเดียวคะ
ตอนนี้ดิฉันใช้combobox3อันในการเลือกคะ....มีไฟล์แนบคะ
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Sun May 10, 2015 8:09 pm
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Dim cbClickCount As Long
Private Sub ComboBox1_Change()
On Error Resume Next
cbClickCount = cbClickCount + 1
With Worksheets("sheet2")
Select Case cbClickCount Mod 3
Case 1
txtmodel.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 2, False)
txttarget.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 3, False)
txtoutput.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 4, False)
txtremain.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 5, False)
Case 2
TextBox10.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 2, False)
TextBox5.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 3, False)
TextBox4.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 4, False)
TextBox3.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 5, False)
Case 0
TextBox9.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 2, False)
TextBox8.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 3, False)
TextBox7.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 4, False)
TextBox6.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 5, False)
End Select
End With
End Sub
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Sun May 10, 2015 8:20 pm
by Cs.Hwan
ได้แล้วคะอาจารย์ ขอบคุณมากๆคะ
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Sun May 10, 2015 9:29 pm
by Cs.Hwan
อาจารย์คะมีปัญหาเพิ่มเติมคะ เมื่อมีข้อมูลเข้า(ยิงบาร์โคีด)ผลที่ textbox มันเลื่อนคะทำอย่างไรดีคะ
(ข้อมูลที่เข้า เช่น PAL1010E5UTA0085name_AL101.mllay)
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Sun May 10, 2015 9:30 pm
by snasui
ไม่เข้าใจครับ
การยิง Barcode เกี่ยวอะไรกับ TextBox อธิบายขั้นตอนการทำงานมาด้วยครับ
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Sun May 10, 2015 10:15 pm
by Cs.Hwan
ขั้นตอนการทำงาน
1.เปิดuserformแล้ว เลือก select model
2.ยิง barcode (หรือพิมพ์codeเช่นPAL1010E5UTA0085name_AL101.mllayแล้วenter)เข้าตรงช่อง serail number มี 2ช่อง
3.ข้อมูลจะเข้าไปยังชีทและทำการสรุปผลด้วยpivot table จากนั้นดึงข้อมูลไปshowใน textbox ที่Userformขณะนั้นเลยคะ
ขั้นตอนประมาณนี้คะ
มีไฟล์แนบที่แก้ไขcode ตามอาจารย์คะ
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Mon May 11, 2015 9:59 am
by snasui
ให้ลบบรรทัด
cbClickCount = cbClickCount + 1 ที่
TextBox1_Exit และ
TextBox2_Exit ทิ้งไป ใช้ที่
ComboBox1_Change เท่านั้น ไม่ใช้ในทุก Control ครับ
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Mon May 11, 2015 5:09 pm
by Cs.Hwan
Re: การเลือกcomboboxโชว์ในtextboxหลายอัน
Posted: Fri Jul 24, 2015 2:54 pm
by belmont
