如何自动弹出下拉菜单？

1、打开VBA，在“工程”窗口选择对应的工作簿，进而选择对应的工作表，双击打开代码编辑窗口，复制以下代码：

private sub worksheet_selectionchange(byval target as range)

on error resume next

n=target.validation.type

if err= 0 then application.sendkeys"%{down}"

end sub

2、保存并关闭VBA程序，回到工作表，此时，点击相应的单元格就会自动弹出下拉菜单。