如何使数据有效性的下拉列表自动展开？

yyf5364

9楼问题我也想知，请各位帮帮忙，谢谢了！

yyf5364

9楼问题，请各位帮帮忙，谢谢了！

yyf5364

9楼问题，请各位帮帮忙修改一下，谢谢了！

歪歪老兄

9楼问题，请各位帮帮忙，谢谢了！

northwolves

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Validation.Type = 4 Then
Exit Sub
Else
SendKeys "%{down}"
Target.Value = Split(Target.Validation.Formula1, ",")(0)
End If
End Sub

zyt760412

QUOTE:

以下是引用两袖清风在2006-1-19 21:07:34的发言：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo errH
        If Target.Validation.InCellDropdown = True Then Application.SendKeys "%{down}"
errH:
    Exit Sub
End Sub

还是不行，如果其他单元格设置了其他有效性，也出来了下拉菜单

ahkm

我现在有一个人事统计表，对人员结构进行分类，如工程系列分技术员、助理工程师、工程师、高级工程师等；经济类分为经济员、助理经济师、经济师、高级经济师等，我想用下拉列表方式，请问如何做？

七八个星_天外

VBA设置了数据有效性，怎样实现输入字符后自动筛选出含有该字符的所有条目？

opelwang

原帖由 northwolves 于 2006-3-29 09:21 发表
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next        If Target.Validation.Type = 4 Then        Exit Sub        Else        SendKeys "%{down}"        Target.Value =  ...

狼版的代碼才是實用。學習了。

yaozong

确保有效性序列中不含空白数据，下拉表展开时会显示首条（或前次选取的那条开始）。