Snasui Excel Forum

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

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

อาจารย์ครับ ลองได้แค่นี้ ComboBox3 ค่าแสดง ได้ปกติ ComboBox1 ไม่ขึ้น

[code]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[/code]

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

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

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

[quote="snasui"]:D VBA เป็นการเขียน Program ในทางเทคนิคแล้วย่อมทำได้ทุกอย่าง ขึ้นอยู่กับความสามารถของผู้ใช้ ส่วนจะเขียนอย่างไรผมไม่สามารถเขียนให้ก่อนได้ ทุกอย่างต้องเป็นไปตามกฎครับ[/quote]
ไปไม่ถูกจริงๆครับ ชี้แนะให้ สักหน่อย นะครับ ผมพึ่งเขียนเป็นครั้งแรก เลยไม่รู้ ว่าจะไปยังไงเลยครับ
แก้ผิดแก้ถูก เข้าไปดู ไปศึกษา โพสต์ของคนอื่น แล้วมานั่งทำความเข้าใจเอง จน ติด เหลือ จุดนีนี้ล่ะครับ

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

[quote="snasui"]:D แนบไฟล์ Excel มาด้วย พร้อมอธิบายว่า Code ที่เขียนมาแล้วนั้นชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ[/quote]

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

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

[quote="snasui"]:D กระทู้นี้ได้คำตอบแล้วยังครับ http://snasui.com/viewtopic.php?f=3&t=5844

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

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

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


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

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

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

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

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

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

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

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

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

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