一、判断该菜单是否可以使用
Set cp = Application.CommandBars("Worksheet menu bar").Controls("工具(T)").Controls("选项(O)...")
With cp
If .Enabled = True Then
inlg = True
Else
inlg = False
End If
End With
二、调用Excel内置菜单
为了在调用菜单代码运行时,还可以继续操作需要用到 DoEvents来转移控制权,例如:Application.CommandBars("Worksheet menu bar").Controls("工具(T)").Controls("选项(O)...").Execute
Do While inlg = True
DoEvents
Loop
评论