'DoubleClick'双击单元格后执行
Select Case e.Col.Name Case "格式设置","组成" e.Cancel = True e.Col.OpenDropDownEnd Select
以上代码无法实现:双击单元格自动打开下拉列表