PDA

View Full Version : เขียน VBA ให้เซลล์ แสดงค่า Validation อย่างไรครับ



nutty
4 Jul 2007, 16:59
ผมได้พยายาม เขียน Code เพื่อให้เซลล์ H5 ในอีก Worksheet หนึ่ง แสดงค่ารายการแบบ validation แต่เขียนไม่สำเร็จสักทีนะครับ ไม่ทราบว่าผิดพลาดตรงจุดไหน รบกวนท่านผู้รู้แนะนำด้วยนะครับ

Worksheets("sheet1").Range("H5").Validation.Modify xlValidateList, =worksheets("Sheet2").range("A1:A10")

ขอบคุณมากครับ

ปล. ไม่ทราบว่า หากต้องการเปลี่ยนจาก Validation เป็น Combo Box จะต้องเขียน Code เหมือนกันหรือเปล่าครับ

อรวีร์
4 Jul 2007, 21:06
การกำหนด Data Validation จะอ้างข้าม Sheet ไม่ได้ค่ะ คุณต้องใช้เทคนิกโดยกำหนดชื่อให้ Range บริเวณนั้นก่อน แล้วจึงนำมาใช้เป็น ValidationList

ActiveWorkbook.Names.Add "MyList", "=Sheet2!R1C1:R10C1"
Sheets("Sheet1").Range("H5").Validation.Delete
Sheets("Sheet1").Range("H5").Validation.Add xlValidateList, Formula1:="=MyList"

nutty
16 Aug 2007, 12:38
ขอบคุณ คุณอรวีร์ มากครับ