Page 1 of 1

สร้าง dropdown list ด้วย VBA (ข้ามชีท)

Posted: Wed Mar 20, 2013 9:00 pm
by grazeKamon
เรียนปรึกษาค่ะ
ต้องการสร้าง drop down list แบบข้ามชีทค่ะ แต่อ้างอิงข้อมูลต้นทางไม่ถูก รบกวนอาจารย์ช่วยแนะนำด้วยค่ะ

Sub Add_Drop_Down_Menu_Selection()

With Worksheets("report").[c4].Validation
// สร้าง drop down list ไว้ที่cell C4 ในชีท Report เรียบร้อยแล้ว


'.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:="=$B$8:$B$1500"

//ต้องการให้ list ดึงข้อมูล จาก B8:B1500 ในชีท SAP มา

.IgnoreBlank = True
.InCellDropdown = True
End With

End Sub


** ต้องการนำข้อมูล C4.value ไปใช้ต่อค่ะ

ขอบพระคุณค่ะ

Re: สร้าง dropdown list ด้วย VBA (ข้ามชีท)

Posted: Wed Mar 20, 2013 9:22 pm
by snasui
:D การโพสต์ Code ให้เป็น Code ดูที่นี่ครับ viewtopic.php?f=3&t=1187

แนบไฟล์ตัวอย่างมาด้วยจะได้ช่วยทดสอบได้ครับ