[求助]如何限制工作薄中工作表的数量?

nodbird · 发表于 2005-1-2 06:12

最近遇到一个问题,就是在使用EXCEL做统计表时,需要对新建工作表的数量进行限制,一个工作薄最多不能超过8个工作表,如果超出的时候,新建工作表会弹出对话框提示工作表已经达到最大数量.

请各位高手帮助一下,用什么语句可以实现.

第2个问题,一个工作薄中有很多工作表,第一个命名为total.第二个为DTT1,第三个为DTT2,依次类推.名为DTT的工作表数量不确定,请问怎么能实现自己统计除TOTAL工作表之外其他工作表的数量,并分别对每个工作表进行处理,比如复制,粘贴,引用之类,请给为高手给个提示~

taller · 发表于 2005-1-2 21:18

利用类模块可以实现Application级的事件

EiHyHuSr.zip (8.68 KB, 下载次数: 377)

taller · 发表于 2005-1-3 16:55

button兄说的对,我的示例考虑欠周到,代码可以改为

'------------------------------------------------------ThisWorkbook------------------------------------------------------
Private Sub Workbook_Open()
Set myApp.xlApp = Application
End Sub
'---------------------------------------------------------Class1---------------------------------------------------------
Public WithEvents xlApp As Application
Private Sub xlApp_SheetActivate(ByVal Sh As Object)
If Sh.Parent.Sheets.Count > 5 Then
MsgBox "Max Sheets are 5. New sheet will be delete!"
With Application
.DisplayAlerts = False
Sh.Delete
.DisplayAlerts = True
End With
End If
End Sub
'--------------------------------------------------------Module1--------------------------------------------------------
Public myApp As New Class1

复制代码

[此贴子已经被作者于2005-1-3 17:01:10编辑过]

[ 本帖最后由 taller 于 2009-1-12 11:17 编辑 ]

nodbird · 发表于 2005-1-3 21:50

感谢taller帮助对初学者的关心，上面有些语句我还是不懂，但我会努力去弄懂它，再次感谢。

FENGJUN · 发表于 2005-5-11 09:17

不错的类示例

button · 发表于 2005-1-2 21:31

taller斑竹的示例关键对新建工作表的事件监视，但是如果不是从新建工作表方式来的，比如是复制工作表，Workbook_NewSheet事件就不会激活，是否可以考虑同时加上Workbook_SheetActivate事件呢，由于从事件的发生顺序上看，Workbook_NewSheet先于Workbook_SheetActivate，完全可以双重监视避免不同的错误。

xiaoliangzi · 发表于 2009-3-12 23:27

thanks a lot

fyd_excel · 发表于 2009-8-21 17:27

经典。。

thithin · 发表于 2009-9-9 15:50

学习好

为啥 · 发表于 2009-11-6 23:11

一定要好好学。

		自动登录	找回密码
密码			免费注册