作者：绿色风
分类：
时间：2022-08-17
浏览：108
楼主
biaotiger1 |
Q：如何依次显示当前工作簿中宏表工作表的名称？
A：ALT+F11→新建模块，并输入如下代码
- Sub 显示当前工作簿中宏表工作表的名称()
- Dim I
- For Each I In ActiveWorkbook.Excel4MacroSheets
- Debug.Print I.Name
- Next I
- End Sub
运行该程序即可在立即窗口列出当前工作簿中宏表工作表的名称。
 显示当前工作簿中宏表工作表的名称.rar
|
2楼
biaotiger1 |
Q：如何显示当前工作簿中图表工作表的名称？
A：ALT+F11→新建模块，输入如下代码
- Sub 显示当前工作簿中图表工作表的名称1()
- Dim I As Chart
- For Each I In ThisWorkbook.Charts '.Count
- Debug.Print I.Name
- Next I
- End Sub
- Sub 显示当前工作簿中图表工作表的名称2()
- Dim I
- For Each I In Sheets
- If TypeName(I) = "Chart" Then Debug.Print I.Name
- Next I
- End Sub
执行两段代码之一，即可在立即窗口中显示当前工作簿中图表工作表的名称。
显示当前工作表中图表工作表的名称.rar
|
3楼
biaotiger1 |
Q：如何依次显示当前工作簿中对话框工作表的名称？
A：ALT+F11→新建模块，并输入如下代码- Sub 显示当前工作簿中对话框工作表的名称1()
- Dim I
- For Each I In ActiveWorkbook.DialogSheets 'Excel4MacroSheets
- Debug.Print I.Name
- Next I
- End Sub
- Sub 显示当前工作簿中对话框工作表的名称2()
- Dim I
- For Each I In Sheets
- If TypeName(I) = "DialogSheet" Then Debug.Print I.Name
- Next I
- End Sub
运行以上任一代码，即可在立即窗口列出当前工作簿中对话框工作表的名称。
显示当前工作表中对话框工作表的名称.rar
|
4楼
biaotiger1 |
Q：如何获得当前工作表中图表的名称？
A：在工作表标签单击右键，弹出快捷菜单→“查看代码”→输入代码如下
- Sub 显示当前工作表中图表名称1()
- Dim I
- For I = 1 To ActiveSheet.ChartObjects.Count
- MsgBox ActiveSheet.ChartObjects(I).Name
- Next
- End Sub
- Sub 显示当前工作表中图表名称2()
- Dim I
- For Each I In ActiveSheet.ChartObjects
- MsgBox I.Name
- Next
- End Sub
运行上面任一代码，即可在对话框中依次返回当前工作表中所有图表的名称
显示当前工作表中图表名称.rar
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一