假设在SHEET1工作表的B2单元格有下拉框。在EXCEL窗口中使SHEET1为当前活动工作表，然后用鼠标点底部SHEET1的标签名，从弹出的右键菜单中选查看代码，这时会出现一个VBA窗口，将下面代码粘贴进去，关闭VBA窗口就可以使用了。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = $B$2 Then SendKeys (%{DOWN}) End Sub
有两个方法，你可任选其一： 1、先选中这个有下拉框的单元格，然后按键盘上的“ALT+向下方向键”就可以弹出下拉框。 2、用VBA做一个代码，判断当前是否选中有下拉框的单元格，如果选中就执行弹出下拉框的操作。 真对第二个方法，假设在SHEET1工作表的B2单元格有下拉框。在EXCEL窗口中使SHEET1为当前活动工作表，然后用鼠标点底部SHEET1的标签名，从弹出的右键菜单中选查看代码，这时会出现一个VBA窗口，将下面代码粘贴进去，关闭VBA窗口就可以使用了。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = $B$2 Then SendKeys (%{DOWN}) End Sub
