作者：绿色风
分类：
时间：2022-08-17
浏览：94
楼主
wqfzqgk |
Q：如何在Excel中对Thisworkbook及sheet的codename操作及自定义函数？
A：ALT+F11→插入模块，在模块中输入以下代码：
- Sub 更改thisworkbookname()'更改Thisworkbook的name
- On Error GoTo a
- Dim sr As String
- sr = Application.InputBox("请输入工作表的CODENAME")
- ThisWorkbook.VBProject.VBComponents(1).Name = sr
- MsgBox "当前THISworkbook的名称为" & ThisWorkbook.VBProject.VBComponents(1).Name: Exit Sub
- a:
- MsgBox "输入的名称与当前的名称相同"
- End Sub
- Sub 更改Thisworkbooksheetcodename()'更改存在表的codename
- For i = 1 To ThisWorkbook.Sheets.Count
- ThisWorkbook.VBProject.VBComponents(i + 1).Name = "a" & i + 1
- Next
- End Sub
- Function getacodename(ws As String)'取得工作表名的codename udf
- getacodename = Sheets(ws).CodeName
- End Function
- Function getacodename1(数字 As Integer)
- getacodename1 = Sheets(数字).CodeName
- End Function
- Function getallcodename()'取得所有工作表的codename udf
- Dim ws As Worksheet, arr
- ReDim arr(1 To ActiveWorkbook.Sheets.Count)
- For i = 1 To ActiveWorkbook.Sheets.Count
- arr(i) = Sheets(i).CodeName
- Next
- getallcodename = Application.WorksheetFunction.Transpose(arr)
- End Function
|
2楼
wise |
有附件上传就好了。 |
3楼
wcymiss |
补充：要修改codename，先在工具菜单--> 宏-->安全性-->可靠发行商标签中，钩选“信任对“vb项目”的访问”。
一开始一直有提示，百度了才知道。…… |
4楼
水星钓鱼 |
帮助文件都要改写了- The value that you see in the cell to the right of (Name) in the Properties window is the code name of the selected object. At design time, you can change the code name of an object by changing this value. You cannot programmatically change this property at run time.
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一