迷辰:
注意工作表名的写法:一、用工作表的大名写:PrivateSubWorkbook_Open()IfApplication.CountIfs(Sheet1.Columns("B"),">25",Sheet1.Columns("C"),"否")ThenMsgBox"请进行报备",48EndSub二、用工作表的小名写:PrivateSubWorkbook_Open()IfApplication.CountIfs(Sheets("月报表").Columns("B"),">25",Sheets("月报表")....