Page 1 of 1
จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 3:02 pm
by ponhuahin
ผมต้องการ แยกยี่ห้อ แยกรุ่น
เช่น ผมกำหนด แบบฟอร์ม มา 1 ฟอร์ม มีคอนโทรล OptionButton มี6ตัว, ComboBox มี2ตัว
พอเราคลิกเลือก OptionButton คอนโทรลComboBox1 จะเปลี่ยนข้อมูลชุดใหม่
พอเราคลิกเลือก ข้อมูลใน คอนโทรลComboBox2 จะเปลี่ยนข้อมูลชุดใหม่ อีกที
ComboBox1 = ยี่ห้อ
ComboBox2 = รุ่น
ผมแนบไฟล์ RAR ให้แทนครับ รูปไม่ได้ใหญ่เกิน
ช่วยชี้แนะ น่อยครับ เหลือ ปัญหาจุดนี้จุดเดียว
แต่ถ้ามีแนวคิดอื่น ช่วยแนะนำ ให้ด้วยนะครับ
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 4:26 pm
by snasui
กระทู้นี้ได้คำตอบแล้วยังครับ
viewtopic.php?f=3&t=5844
ได้คำตอบหรือไม่อย่างไร ช่วยแจ้งผลตามกฎการใช้บอร์ดข้อ 6 ด้านบนด้วยครับ
คำว่า ป่าว คือ ควรเขียนเป็น เปล่า
คำว่า คับ เป็นภาษาแชท ไม่อนุญาตให้ใช้ในบอร์ดถามตอบครับ
พยายามอย่าเขียนผิดบ่อยครับ
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 4:43 pm
by ponhuahin
snasui wrote: กระทู้นี้ได้คำตอบแล้วยังครับ
viewtopic.php?f=3&t=5844
ได้คำตอบหรือไม่อย่างไร ช่วยแจ้งผลตามกฎการใช้บอร์ดข้อ 6 ด้านบนด้วยครับ
คำว่า ป่าว คือ ควรเขียนเป็น เปล่า
คำว่า คับ เป็นภาษาแชท ไม่อนุญาตให้ใช้ในบอร์ดถามตอบครับ
พยายามอย่าเขียนผิดบ่อยครับ
ขอโทษครับ นั่งทำกระทู้ใหม่ เสร็จ แล้วนั่งแก้งาน ต่อเลย เลยไม่ได้ ไปโพสต์ ขอบคุณครับ
ส่วน เรื่องกฎ ผมดู ข้อความกระทู้ว่าผิดเปล่า 2 รอบ แต่ ลืมดู หัวข้อ กระทู้ ต้องขอโทษ จริงๆครับ
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 4:44 pm
by snasui
แนบไฟล์ Excel มาด้วย พร้อมอธิบายว่า Code ที่เขียนมาแล้วนั้นชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 4:59 pm
by ponhuahin
snasui wrote: แนบไฟล์ Excel มาด้วย พร้อมอธิบายว่า Code ที่เขียนมาแล้วนั้นชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ
ผมยังไม่ได้เขียน Code เลยครับ ถามให้แน่ใจก่อนว่า สามารถทำอย่างที่ โพสต์ ได้เปล่า
เพราะผมหา วิธี ตามหนังสือ ตามเว็บ ต่างๆ ก็ไม่มี ถ้าทำได้ แล้วจะเริ่ม ยังไง ครับ
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 5:20 pm
by snasui
VBA เป็นการเขียน Program ในทางเทคนิคแล้วย่อมทำได้ทุกอย่าง ขึ้นอยู่กับความสามารถของผู้ใช้ ส่วนจะเขียนอย่างไรผมไม่สามารถเขียนให้ก่อนได้ ทุกอย่างต้องเป็นไปตามกฎครับ
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 6:59 pm
by ponhuahin
snasui wrote: VBA เป็นการเขียน Program ในทางเทคนิคแล้วย่อมทำได้ทุกอย่าง ขึ้นอยู่กับความสามารถของผู้ใช้ ส่วนจะเขียนอย่างไรผมไม่สามารถเขียนให้ก่อนได้ ทุกอย่างต้องเป็นไปตามกฎครับ
ไปไม่ถูกจริงๆครับ ชี้แนะให้ สักหน่อย นะครับ ผมพึ่งเขียนเป็นครั้งแรก เลยไม่รู้ ว่าจะไปยังไงเลยครับ
แก้ผิดแก้ถูก เข้าไปดู ไปศึกษา โพสต์ของคนอื่น แล้วมานั่งทำความเข้าใจเอง จน ติด เหลือ จุดนีนี้ล่ะครับ
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 7:12 pm
by snasui
ให้คุณเขียนในสิ่งที่คุณพยายามมา แล้วบอกมาว่าชื่อ Procedure อะไร ติดตรงไหน อย่างไร
สิ่งที่เขียนจะต้องสื่อให้เห็นว่าต้องการทำงานนั้น ไม่ใช่ไปหยิบเอา Code ที่ไม่เกี่ยวข้องมาใช้ครับ เขียนได้เท่าไรก็เท่านั้น
ถ้าหากไม่ทราบว่าจะเขียนอย่างไร ผมคงช่วยไม่ได้ครับ เพราะการใช้ Code จะต้องเขียนและปรับเองเป็นบ้าง
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Wed Dec 04, 2013 10:21 pm
by ponhuahin
อาจารย์ครับ ลองได้แค่นี้ ComboBox3 ค่าแสดง ได้ปกติ ComboBox1 ไม่ขึ้น
Code: Select all
Private Sub ComboBox3_DropButtonClick()
Application.EnableEvents = False
With ComboBox3
.Clear
.AddItem "HP"
.AddItem " Intel "
.AddItem "AMD"
.AddItem "ASUS"
End With
Application.EnableEvents = True
End Sub
Private Sub ComboBox1_DropButtonClick()
With ComboBox1
Select Case ComboBox3
Case "HP"
.AddItem "aaaaaaas"
.AddItem "dsdsdsdsd"
.AddItem "adadadadad"
.AddItem "dsdsdsdsds"
.AddItem "dsadsadsa"
Case " Intel "
.AddItem "po212"
.AddItem "45fgd"
.AddItem "f5g4d5f4g"
.AddItem "5dfg4"
.AddItem "sdfrr4e5"
Case "AMD"
.AddItem "¡´à´à´à"
.AddItem "´à´éà¡´à"
.AddItem "Ë¡Ë¡Ë¡Ë¡"
.AddItem "¾Ó¾Ó¾Ó¾"
.AddItem "Í´Í´Í´Í´Í"
Case "ASUS"
.AddItem "ewgg"
.AddItem "1f1g2d"
.AddItem "21d5f45"
.AddItem "45dsf454"
.AddItem "wer13"
End Select
End With
End Sub
Re: จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ
Posted: Thu Dec 05, 2013 6:45 am
by snasui
แนบไฟล์มาด้วย ตัดมาเฉพาะส่วนที่เกี่ยวข้องกับ Code นี้ แจ้งลำดับการทดสอบ และผลลัพธ์ที่ต้องการ จะได้ช่วยทดสอบได้ครับ