สอบถามเกี่ยวกับ Code ของ ComboBox ใน VBA
Posted: Tue Apr 24, 2018 1:11 am
สวัสดี อาจารย์ และ ท่านผู้รู้
ผมมีเรื่องอยากถามว่า
อยู่ใน VBA ผมได้สร้าง UserForm1 ขื้นมา
แล้วสร้าง ComboBox1 ลงไปใน UserForm1
แล้วผมเขียน Code ลงไปดั่งนี้
แล้วตรงที่ Properties ของ ComboBox1 ผมได้ใส่ code ลงไปในช่อง RowSource ว่า
Datelist คือ cell(k3:k33) เป็น list ของวันเดือนปีที่ผมสร้างขื้นมาเป็นตัวอย่างโดยใส่ Define Name ว่า Datelist นั้นเอง
แล้วผลที่ได้ก็ okay ครับ
แต่ที่ผมอยากถามก็คือ
ผมไม่อยากมา update วันเดือนปีที่ผมสร้างขื้นมานั้นทุกเดือน ดั่งนั้น ผมต้องเขียน code ยังไงลงไปใน ComboBox1
หรือ ว่าผมต้องทำยังไงเพื่อให้มัน update เองได้ โดยไม่ต้องลิ้ง define name ที่ผมสร้างมาอีกครับ
ผมมีเรื่องอยากถามว่า
อยู่ใน VBA ผมได้สร้าง UserForm1 ขื้นมา
แล้วสร้าง ComboBox1 ลงไปใน UserForm1
แล้วผมเขียน Code ลงไปดั่งนี้
Code: Select all
Private Sub ComboBox1_DropButtonClick()
UserForm1.ComboBox1.Value = Application.Text(UserForm1.ComboBox1.Text, "dd/mm/yyyy") 'เป็นการกำหนดรูปแบบ
End Sub=Datelist
Datelist คือ cell(k3:k33) เป็น list ของวันเดือนปีที่ผมสร้างขื้นมาเป็นตัวอย่างโดยใส่ Define Name ว่า Datelist นั้นเอง
แล้วผลที่ได้ก็ okay ครับ
แต่ที่ผมอยากถามก็คือ
ผมไม่อยากมา update วันเดือนปีที่ผมสร้างขื้นมานั้นทุกเดือน ดั่งนั้น ผมต้องเขียน code ยังไงลงไปใน ComboBox1
หรือ ว่าผมต้องทำยังไงเพื่อให้มัน update เองได้ โดยไม่ต้องลิ้ง define name ที่ผมสร้างมาอีกครับ
เปลี่ยนการ Define Name ให้เป็นลักษณะ Dynamic คือข้อเพิ่มลดตามปริมาณข้อมูลจะได้ไม่ต้องคอย Define Name ใหม่บ่อย ๆ ดูตัวอย่างได้ที่ Link นี้ครับ