[已解决]求助~~~ 如何用代码展开序列中的下拉菜单？？？

a123456b0

   如题，使用数据--有效性--序列，创建的下拉选项，但下拉菜单默认是闭合的，怎样可以用代码实现对指定位置的下拉菜单展开呢？？   如我下图所示的效果  （以单元格b5为例）

最佳答案

月排行榜 / 总排行榜

mxg825

2012-7-30 10:03

1. '使用选取单元格事件，展开菜单 快捷键 ALT+↓
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Target.Address = "$B$5" Then Application.SendKeys "%{down}"
   
4. End Sub
   

复制代码

跳转到最佳答案楼层

mxg825

1. '使用选取单元格事件，展开菜单 快捷键 ALT+↓
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Target.Address = "$B$5" Then Application.SendKeys "%{down}"
   
4. End Sub
   

复制代码

a123456b0

mxg825 发表于 2012-7-30 10:03

高手啊~~~   非常感谢~~~

hvail

学习一下              

weishikey

学会了一招{:171:}