ID列表

lanhan

用commandbars好像可以循环测试的吧，只是如果大家有，咱就不做重复劳动了不是，谢谢谢谢【我是鲜花表情】

谁有列表，分享个，谢谢谢谢哈【我是鲜花表情】

阿童木

写个代码其实很方便的

1. Sub Test()
   
2.     Dim d As Object
   
3.     Dim cmd As CommandBar
   
4.     Dim ctl As CommandBarControl
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     For Each cmd In Application.CommandBars
   
7.         For Each ctl In cmd.Controls
   
8.             If Not d.exists(ctl.ID) Then
   
9.                 d(ctl.ID) = ctl.Caption
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     Cells.Clear
    
14.     Range("A1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
15.     Range("B1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.items)
    
16.     Range("A:B").Sort Range("A1"), xlAscending, Header:=xlNo
    
17. End Sub

复制代码

lanhan

阿童木 发表于 2011-1-6 15:54
写个代码其实很方便的

我只会一个一个弄，看效果，写名字，这样就好受多了，挖井人啊，挖得真深，真好【我是鲜花表情】

sunjing-zxl

学习学习！！！

xdwy81129

回复 阿童木 的帖子

获得的这些数字的代码可以怎么用呢？？

一点不懂有什么用~~~

轩辕轼轲

学习了

lnykwrz

学习……………………………………

zleeson

学习学习123456789