通常,在单元格或单元格区域中单击鼠标右键时,会弹出一个快捷菜单,能让我们迅速使用常用的命令。有时,根据单元格内容的不同,这些快捷菜单的内容会有所差异,因此我们也称之为“上下文菜单”。
我们可以创建自已的上下文菜单。 这样,当用户在含有特定内容的单元格中单击右键时,会出现我们自已定义的命令。而这些命令指定了我们可以对该单元格的操作。
下面是一个创建自已的上下文菜单的示例,你可以根据需要修改和扩展。
在当前工作簿的任何工作表中,当你右键单击内容为“完美Excel”、“excelperfect”或“Data”的单元格时,会弹出不同的自定义菜单。
类模块 在VBE中,插入一个类模块,将其命名为“clsMyMenu”,输入代码: 代码确保在工作簿任意工作表中单击右键时,都能根据目标单元格的内容,确定弹出哪个菜单。
标准模块 在VBE中,插入一个标准模块,输入代码: 在模块顶部声明相关的全局变量。SetupAllWksEvents过程设置工作簿中所有工作表都能响应弹出自定义菜单事件。CreateSubMenu过程用来创建自定义菜单。
ThisWorkbook模块 在Workbook_Open事件过程中,输入代码: 代码创建自定义菜单,调用SetupAllWksEvents过程。
扩展 可以利用这个技巧,创建自已的解决方案,限制用户只能执行特定的操作功能。
|
|