主题：窗口的中表如何实现这样的筛选功能

？ 

此主题相关图片如下：未命名.bmp

路径错误啊

 

\\ip地址\共享文件名

大红袍回贴太及时了，精神可嘉。不好意思，图片上传错误。现在这张图是对的。

本来就有的。

 

新建一个项目，导入系统菜单模板，去看快捷菜单->Cell，你自己也做一个这样的菜单即可

这样可以筛选的。但来了一个新问题，原来的菜单没有了。

叫你拷贝人家测cell放到自己的菜单里去。

 

'以下代码用于将Cell快捷菜单中部分命令复制到Range快捷菜单中

'如果自行设计了Range菜单,或者调整了有关菜单命令的名称,请自行修改或删除以下代码

Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")

Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")

If mnu2.Items.Count = 0 '如果Range快捷菜单中没有命令,说明用户没有自行设计Range快捷菜单

    mnu2.Items.Add(ContextMenus("Cell").Items("Cut"),False)

    mnu2.Items.Add(ContextMenus("Cell").Items("Copy"))

    mnu2.Items.Add(ContextMenus("Cell").Items("Paste"))

    mnu2.Items.Add(ContextMenus("Cell").Items("RowMenu"))

    mnu2.Items.Add(ContextMenus("Cell").Items("ColMenu"))

    mnu2.Items.Add(ContextMenus("Cell").Items("Ascending"))

    mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))

    mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))

End If

 

 

这段代码放在什么事件中？

汗 这是因为我们在菜单的Load事件中加入了下面一段代码：

不是明知故问，真是不知道怎么做。请一步步请清楚，先谢了。

1、你可以自己新建菜单啊；

 

2、你可以直接在事件里写代码生成；

 

3、好好看系统菜单是怎么做的啊。