Page 1 of 1

สอบถามการทำดรอปดาวลิส และ การแสดงข้อมูล

Posted: Thu Mar 28, 2019 4:53 pm
by thanadul611
จุดประสงค์ของผมคือ

- การทำดรอปดาวลิส แบบสองชั้น "ทำใน User Form"
- คือเลือกประเภท แล้วเลือก รายการ ที่ดรอปดาวลิสที่ 2
- ผมคิด ใช้วิธีนี้เนื่องจากข้อมูลมีไม่มาก
- สอบถามเพิ่มเพิ่ม ว่ามีวิธีอื่น พอเป็นแนวทาง ทำดรอปดาวลิส 2 ชั้นได้ไหมครับ

Code: Select all

Private Sub UserForm_Initialize()
With Box1
.RowSource = "Type!B3:B6"

End With
With Box2
.RowSource = "DATA1!B3:B15"
End With
End Sub

Re: สอบถามการทำดรอปดาวลิส และ การแสดงข้อมูล

Posted: Thu Mar 28, 2019 7:50 pm
by snasui
:D ยังไม่เข้าใจความต้องการครับ

สำหรับ Code ที่ให้เติมค่าในเซลล์ A1 เมื่อเลือก ComboBox อันบนคือด้านล่างครับ

Code: Select all

Private Sub Box1_Change()
    Sheets("Data1").Range("A1").Value = Me.Box1.Value
End Sub

Re: สอบถามการทำดรอปดาวลิส และ การแสดงข้อมูล

Posted: Thu Mar 28, 2019 10:17 pm
by thanadul611
ได้ผลตามที่ต้องการแล้วครับ ของคุณครับ