摘要：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)RunCheckEnd SubPrivate Sub RunCheck() Dim i, jFor i = 1 To Sheet1.UsedRange.Rows.Count For j = 1 To Sheet1.UsedRange.Column... 阅读全文
posted @ 2006-01-12 10:21 Gavin 阅读(1418) 评论(0) 推荐(0) 编辑