ALT+F11 组合键调出 VBA编辑器
左边工程确认当前工作薄的名称,然后 插入--模块
复制以下代码进去,最后按F5 运行
左边工程确认当前工作薄的名称,然后 插入--模块
复制以下代码进去,最后按F5 运行
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
MsgBox "该工作薄含有 " & num & " 个工作表"
End Sub参考链接:http://zhidao.baidu.com/question/117442892.html
本文介绍了如何通过ALT+F11组合键调用VBA编辑器,进而插入模块并编写代码来获取当前工作簿内工作表的数量,并通过消息框展示结果。
1万+

被折叠的 条评论
为什么被折叠?



