使用VBA（數據驗證）使列表下降

Question

我想要一個單元格下拉列表其數據驗證列表。我不想「創建一個下拉數據驗證列表」。我已經有了這份清單，我只是想讓它使用VBA下載。

有沒有辦法做到這一點？

例如： 如果我把數據放在單元格A1中，我希望單元格B1被選中，並且其數據驗證列表應該下拉。我已經有了選擇單元格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

選擇單元格，並使用：

Application.SendKeys ("%{UP}") 

不是在我的電腦，所以我無法驗證，但如果你需要更多的幫助，看看這裏：

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