姚庆贺15751382316:
PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)OnErrorGoTo100IfNotApplication.Intersect(Target,Range("G2:O50000"))IsNothingAndTarget.Count=1ThenIfVal(Trim(Target))=0ThenMsgBox"该项没有数据,不能标红!"Cancel=TrueExitSubEndIfIfTarget.Int....