省市县级联菜单

今铭昔

ctp_119

值得肯定！！！

ctp_119

在此基础上改造，动态，可以添加项目：左右键菜单都可以！

ctp_119

代码稍作了修改，


tree结构.rar (70.09 KB, 下载次数: 34)

2023-8-18 10:54 上传

点击文件名下载附件

kuangben8

做的太棒了！就是少了一个省份

ctp_119

kuangben8 发表于 2023-8-18 13:28
做的太棒了！就是少了一个省份

好像没有看见台湾省，是吧！！！

ctp_119

改进后：





树.rar (209.54 KB, 下载次数: 48)

2023-8-18 15:10 上传

点击文件名下载附件

ctp_119

都是楼主修改的，我只是参与讨论和代发！！！版权归楼主

ctp_119

1. function Region() {
   
2.         if (!(this instanceof Region)) throw new Error("请使用new实例化对象")
   
3.         //if (Region._instance != null) return Region._instance
   
4.         const cityTree = main()
   
5.         const menuName = "省市县级联菜单"
   
6.         try { CommandBars.Item(menuName).Delete() } catch {}
   
7.         const popupMenu = CommandBars.Add(menuName, msoBarPopup)                // 弹出菜单
   
8.         popupMenu.Control = popupMenu                                                                        // 扩充一个属性，方便递归
   
9.         const setPopupMenuControl = function(cityTree, popupControl, addr) {
   
10.                 let cities = Object.keys(cityTree)
    
11.                 let subPopupMenu, subTree
    
12.                 cities.forEach(city => {
    
13.                         subTree = cityTree[city]
    
14.                         if (subTree != null) {
    
15.                                 if (city != addr) {
    
16.                                         subPopupMenu = popupControl.Control.Controls.Add(msoControlPopup)
    
17.                                         setPopupMenuControl(subTree, subPopupMenu, addr + city + ",")        // 递归添加组件
    
18.                                 } else {
    
19.                                         subPopupMenu = popupControl                                                                // 减少一个层级
    
20.                                         setPopupMenuControl(subTree, subPopupMenu, city)                // 递归添加组件
    
21.                                 }
    
22.                         } else {
    
23.                                 subPopupMenu = popupControl.Control.Controls.Add(msoControlButton)
    
24.                                 subPopupMenu.Tag = addr + city
    
25.                                 subPopupMenu.OnAction = "setCity"
    
26.                         }
    
27.                         subPopupMenu.Caption = city
    
28.                 })
    
29.         }
    
30.         setPopupMenuControl(cityTree, popupMenu, "")
    
31.        
    
32.         let city = ""
    
33.         const P = Region.prototype
    
34.         setCity = () => { city = CommandBars.ActionControl.Tag }
    
35.         P.getCity = () => {                // 获取选择的城市
    
36.                 city = ""
    
37.                 CommandBars.Item(menuName).ShowPopup()
    
38.                 return city.replace(",", "")
    
39.         }
    
40.         P.getCities = () => {        // 获取选择的城市数组
    
41.                 CommandBars.Item(menuName).ShowPopup()
    
42.                 let cities = city.split(",")
    
43.                 return cities.length > 0 ? cities : []
    
44.         }
    
45.         return Region._instance = this
    
46. }
    
47. 
    
48. function setCity() {}        // 弹出菜单组件中的OnAction指向，只为服务于Region对象
    
49. 
    
50. function Workbook_SheetSelectionChange(sht, rng) {
    
51.         if (rng.Count > 1||sht.Name!="菜单") return
    
52.         Application.Cursor=xlDefault
    
53.         rng.Value2 = new Region().getCity()
    
54. }
    
55. 
    
56. function Workbook_SheetBeforeRightClick(Sh, rg, cancel)
    
57. {       
    
58.         if (rg.Count > 1||Sh.Name!="右键菜单") return
    
59.         Application.CommandBars("Cell").Enabled = false
    
60.         Application.Cursor=xlDefault
    
61. //        const arr = [new Region().getCities()]
    
62. //        rg.Resize(arr.length, arr[0].length).Value2 = arr
    
63.         const arr = new Region().getCities()
    
64.         rg.Resize(1, arr.length).Value2 = arr
    
65. }

复制代码

xd3210

能否给一个右键菜单示例？