vba添加工具栏
PrivateSubWorksheet_SelectionChange(ByValTargetAsExcel.Range)IfTarget.Row>=2ThenOnErrorResumeNext[ChangColor_With1].FormatConditions.DeleteTarget.EntireRow.Name="ChangColor_With1"With[ChangColor_With1].FormatConditions.Delete.AddxlExpression,,"TRUE"
下载地址
用户评论
