สร้าง dropdown list ด้วย VBA (ข้ามชีท)
Posted: Wed Mar 20, 2013 9:00 pm
เรียนปรึกษาค่ะ
ต้องการสร้าง 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 ไปใช้ต่อค่ะ
ขอบพระคุณค่ะ
ต้องการสร้าง 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 ไปใช้ต่อค่ะ
ขอบพระคุณค่ะ