Page 1 of 1

สั่ง box ให้ทำงานตอนหลัง

Posted: Sun Mar 29, 2015 12:19 pm
by yodpao.b
สั่ง box ให้ทำงานตอนหลัง
Capture.JPG
จากรูป ต้องการให้ box ที่ลูกสอนชี้ทำงานหลังจากดลิก box ที่วงกลม
สามารถทำได้ไหมครับ เช่น "box ที่ลูกสอนชี้" ห้ามทำงาน หรือ ล็อค หรือ Enable หรือ อื่น

ที่ผมลองทำใช้โคดดังนี้

Code: Select all

Sub Macro2()
Sheets("VAR").Select
Sheets("VAR").DropDown13.ListFillRange = "ListName2"
Sheets("VAR").Select
End Sub
จาก code ด้านบน เมื่อ box ที่วงกลมทำงาน ให้ DropDown13 ค่อยทำงาน
ผลที่ที่ EEror ครับ (ใน format contro ช่อง input ผมไม่ใส่ข้อมูล ไม่ทราบว่าผิดหรือเปล่า เพราะจุดประสงต์ยังไม่ให้มันทำงาน)ครับ ดังรูปด้านล่าง
Capture1.JPG

Re: สั่ง box ให้ทำงานตอนหลัง

Posted: Sun Mar 29, 2015 1:07 pm
by snasui
:D เมื่อคลิก ComboBox1 และ DropDown13 ทำงานแล้ว หลังจากนั้นจะให้ DropDown13 ไม่ทำงานเมื่อเกิดเหตุการณ์ใด หรือว่าหลังจากนั้นแล้วให้ทำงานได้ตลอดครับ :?:

การกำหนดให้ทำงานเมื่อคลิก ComboBox1 ปรับ Code เป็น

Code: Select all

Sheets("VAR").DropDowns("DropDown13").ListFillRange = "ListName2"

Re: สั่ง box ให้ทำงานตอนหลัง

Posted: Sun Mar 29, 2015 2:09 pm
by yodpao.b
สุดยอดครับ