จะแยก ยี่ห้อ แยกรุ่น ใน VBA ได้ป่าวคับ

[ponhuahin]

ผมต้องการ แยกยี่ห้อ แยกรุ่น
เช่น ผมกำหนด แบบฟอร์ม มา 1 ฟอร์ม มีคอนโทรล OptionButton มี6ตัว, ComboBox มี2ตัว

พอเราคลิกเลือก OptionButton คอนโทรลComboBox1 จะเปลี่ยนข้อมูลชุดใหม่
พอเราคลิกเลือก ข้อมูลใน คอนโทรลComboBox2 จะเปลี่ยนข้อมูลชุดใหม่ อีกที

ComboBox1 = ยี่ห้อ
ComboBox2 = รุ่น

ผมแนบไฟล์ RAR ให้แทนครับ รูปไม่ได้ใหญ่เกิน
ช่วยชี้แนะ น่อยครับ เหลือ ปัญหาจุดนี้จุดเดียว

แต่ถ้ามีแนวคิดอื่น ช่วยแนะนำ ให้ด้วยนะครับ

[snasui]

กระทู้นี้ได้คำตอบแล้วยังครับ viewtopic.php?f=3&t=5844

ได้คำตอบหรือไม่อย่างไร ช่วยแจ้งผลตามกฎการใช้บอร์ดข้อ 6 ด้านบนด้วยครับ

คำว่า ป่าว คือ ควรเขียนเป็น เปล่า
คำว่า คับ เป็นภาษาแชท ไม่อนุญาตให้ใช้ในบอร์ดถามตอบครับ

พยายามอย่าเขียนผิดบ่อยครับ

[ponhuahin]

กระทู้นี้ได้คำตอบแล้วยังครับ viewtopic.php?f=3&t=5844

ได้คำตอบหรือไม่อย่างไร ช่วยแจ้งผลตามกฎการใช้บอร์ดข้อ 6 ด้านบนด้วยครับ

คำว่า ป่าว คือ ควรเขียนเป็น เปล่า
คำว่า คับ เป็นภาษาแชท ไม่อนุญาตให้ใช้ในบอร์ดถามตอบครับ

พยายามอย่าเขียนผิดบ่อยครับ

ขอโทษครับ นั่งทำกระทู้ใหม่ เสร็จ แล้วนั่งแก้งาน ต่อเลย เลยไม่ได้ ไปโพสต์ ขอบคุณครับ
ส่วน เรื่องกฎ ผมดู ข้อความกระทู้ว่าผิดเปล่า 2 รอบ แต่ ลืมดู หัวข้อ กระทู้ ต้องขอโทษ จริงๆครับ

[snasui]

แนบไฟล์ Excel มาด้วย พร้อมอธิบายว่า Code ที่เขียนมาแล้วนั้นชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ

[ponhuahin]

แนบไฟล์ Excel มาด้วย พร้อมอธิบายว่า Code ที่เขียนมาแล้วนั้นชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ

ผมยังไม่ได้เขียน Code เลยครับ ถามให้แน่ใจก่อนว่า สามารถทำอย่างที่ โพสต์ ได้เปล่า
เพราะผมหา วิธี ตามหนังสือ ตามเว็บ ต่างๆ ก็ไม่มี ถ้าทำได้ แล้วจะเริ่ม ยังไง ครับ

[snasui]

VBA เป็นการเขียน Program ในทางเทคนิคแล้วย่อมทำได้ทุกอย่าง ขึ้นอยู่กับความสามารถของผู้ใช้ ส่วนจะเขียนอย่างไรผมไม่สามารถเขียนให้ก่อนได้ ทุกอย่างต้องเป็นไปตามกฎครับ

[ponhuahin]

VBA เป็นการเขียน Program ในทางเทคนิคแล้วย่อมทำได้ทุกอย่าง ขึ้นอยู่กับความสามารถของผู้ใช้ ส่วนจะเขียนอย่างไรผมไม่สามารถเขียนให้ก่อนได้ ทุกอย่างต้องเป็นไปตามกฎครับ

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

[snasui]

ให้คุณเขียนในสิ่งที่คุณพยายามมา แล้วบอกมาว่าชื่อ Procedure อะไร ติดตรงไหน อย่างไร

สิ่งที่เขียนจะต้องสื่อให้เห็นว่าต้องการทำงานนั้น ไม่ใช่ไปหยิบเอา Code ที่ไม่เกี่ยวข้องมาใช้ครับ เขียนได้เท่าไรก็เท่านั้น

ถ้าหากไม่ทราบว่าจะเขียนอย่างไร ผมคงช่วยไม่ได้ครับ เพราะการใช้ Code จะต้องเขียนและปรับเองเป็นบ้าง

[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

[snasui]

แนบไฟล์มาด้วย ตัดมาเฉพาะส่วนที่เกี่ยวข้องกับ Code นี้ แจ้งลำดับการทดสอบ และผลลัพธ์ที่ต้องการ จะได้ช่วยทดสอบได้ครับ