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

foshan · 发表于 2006-1-19 15:56

上传的附件中，A列的单元格设置了数据有效性，如何实现当选中A列的单元格时，数据有效性的下拉列表会自动展开，而不必要再点击那个三角符能会使数据有效性的下拉列表展开？谢谢! 我记得好像家园里有一个这样的例子，不过搜索后找不到，请大家帮帮忙，谢谢!

QlpjTtet.rar (1.42 KB, 下载次数: 149)

plxmm · 发表于 2006-1-19 16:07

Sub FirstRunThis()
Application.OnKey "~", "yy"
End Sub
Sub yy()
Application.SendKeys "%{down}"
End Sub
忘记是哪位大侠的了。注意放在模块里运行 FirstRunThis 即可得到效果噢。

foshan · 发表于 2006-1-19 20:46

谢谢 plxmm 女神! 好像是放在 SelectionChange 事件中。但放在 SelectionChange 事件中，就遇到一个问题：当中任何一个单元格时，不管该单元格是否已设置了数据有效性，都会出现一个下拉列表框。能否有一个更加完美的方案来解决这个问题，请大家继续出手相助，谢谢大家! Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.SendKeys "%{down}" End Sub

VnKsOiNU.rar (6.61 KB, 下载次数: 218)

青山依旧 · 发表于 2006-1-19 20:49

锁定选择单元格区域看看.

两袖清风 · 发表于 2006-1-19 21:07

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

foshan · 发表于 2006-1-19 21:14

谢谢两袖清风兄!可行!

jackyqxl · 发表于 2006-3-20 23:03

补充问一个问题,

怎么让下拉列表在点击选择以后,总是让你从第一个值选择,而不是从最后的开始

okmhy · 发表于 2006-3-21 17:32

我是一个菜鸟，学习了，有待研究！

jackyqxl · 发表于 2006-3-22 03:18

怎么让下拉列表在点击选择以后,总是让你从第一个值选择,而不是从最后的开始

这个问题,哪位有办法?

yyf5364 · 发表于 2006-3-22 08:56

9楼问题我也想知，请各位帮帮忙。

		自动登录	找回密码
密码			免费注册

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