Question

我想要一个单元格下拉其数据验证列表。我不想＆＃34;创建一个下拉数据验证列表＆＃34;。我已经有了这个列表，我只想让它使用VBA下载。

有没有办法做到这一点？

实施例：如果我将数据放在单元格A1中，我希望选择单元格B1，并且其数据验证列表应该下拉。如果单元格A1有任何值，我已经有了选择单元格B1的代码，但我还没弄清楚如何使单元格列表下拉。

示例代码：

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

使用VBA使列表下拉（数据验证）

1 个答案: