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

？ 

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

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

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

 

'以下代码用于将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

 

 

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

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

唉，还是不知道怎么做。

我只要那个截图的功能，其他的不要。要做哪些？请一步步讲下去。注：原来的菜单功能保持不变。