使用VBA（数据validation）使列表下降

我想要一个单元格下拉其数据validation列表。 我不想“创build一个下拉数据validation列表”。 我已经有了这个列表，我只是想让它使用VBA下载。

有没有办法做到这一点？

例如：如果我把数据放在单元格A1中，我希望单元格B1被选中，并且其数据validation列表应该下拉。 我已经有select单元格B1的代码，如果单元格A1有任何值，但我还没有想出如何使单元格的列表下拉。

示例代码：

Private Sub Worksheet_Change(ByVal Target As Range) With Sh1 ' If row 1 in active column has a "1" in it, ' we want to select the column to the right and drop down its list If .Cells(1, Target.Column).Value = 1 And Target.Value <> "" Then Target.Offset(0, 1).Select ' Code for dropping down the cell's list End If End With End Sub 

Answer 1

select单元格并使用：

 Application.SendKeys ("%{UP}") 

不在我的电脑，所以我无法validation，但如果你需要更多的帮助看这里：

http://www.mrexcel.com/forum/excel-questions/789601-excel-2010-visual-basic-applications-code-open-drop-down-list.html