|
楼主 |
发表于 2012-3-27 19:19
|
显示全部楼层
hbqjzzz 发表于 2012-3-27 17:46
不知道为什么出入库单不能自动计算,我调整了计算选项,也保存了,重新打开还是手动计算,请老师指点
将以下红色语句注销掉试试
Sub 高级筛选()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Application.Calculation = xlCalculationManual 手动重算
ActiveSheet.Range("A5:S65536").ClearFormats
Sheets("数据库").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:S2"), CopyToRange:=Range("A4:S4"), Unique:=False
Application.Calculation = xlCalculationAutomatic
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub |
|