左边工程确认当前工作薄的名称,然后 插入--模块
复制以下代码进去,最后按F5 运行
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
MsgBox "该工作薄含有 " & num & " 个工作表"
End Sub
参考链接:http://zhidao.baidu.com/question/117442892.html
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
MsgBox "该工作薄含有 " & num & " 个工作表"
End Sub
檢查自己的excel文件格式是否是xls 若是,另存爲爲xlsx格式,重新打開即可使用此快捷鍵。
在你危急的時候,是誰一次又一次盡心竭力地幫你擺脫困境? 在誰的扶持下,你可以像現在這樣好好地一直走下去? 你總是在索取,從來沒有給予。 從現在開始你一定要做一個有良心,懂得感恩圖報的人。