摘要:
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 阅读(1422) 评论(0) 推荐(0)
浙公网安备 33010602011771号