SubExample() ThisWorkbook.Worksheets(1).Range("A1").SelectWithThisWorkbook.Worksheets(1).Range("B1") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1=1".FormatConditions(1).Interior.ColorIndex =46EndWithEndSub ...
SubExample() ThisWorkbook.Worksheets(1).Range("A1").SelectWithThisWorkbook.Worksheets(1).Range("B1") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1=1".FormatConditions(1).Interior.ColorIndex =46EndWithEndSub ...
2. 插入一个模块 -> 编写以下代码： Sub HighlightCells() Dim rng As Range Set rng = Application.InputBox("请选择一个范围:", Type:=8) rng.Select With Selection .FormatConditions.Delete .FormatConditions.Add Type:=xlConditionFormatTypeCellIs, Operator:=xlGreater, Formula1:...
1 先看动图演示吧 2 选择diy工具箱操作 3 选择最左侧的收纳箱工具 4 弹出对话框我们选择一个本地新建的操作 5 弹出对话框我们输入如下的代码Sub 删除当前工作表的条件格式()ActiveSheet.Cells.FormatConditions.DeleteEnd Sub 6 然后进行函数说明和所属类别的设置，并添加到本地 7 好了我们搜索找到新建的命令，单...
r.FormatConditions.Delete'删除条件格式 With r.FormatConditions.Add(xlCellValue, xlEqual, xAddr)'新建条件格式 With .Font'设置条件格式字体 .Bold = True .Italic = True .ColorIndex = 3 .Underline = True End With With .Interior'设置条件格式背景颜色 .Color = RGB(255, 205, 25).Pattern = xl...
("Enter Greater Than Value", "Enter Value") Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, _ Operator:=xlGreater, Formula1:=i Selection.FormatConditions(Selection.FormatConditions.Count).S tFirstPriority With Selection.FormatConditions(1) .Font.Color = RGB(0, 0, ...
Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Cells.FormatConditions.Delete Next ThisWorkbook.SaveEnd Sub代码解析：1、工作表SelectionChange事件，首先删除所有条件格式。2、对当前工作表设置条件格式。设置条件格式而不是直接设背景色，就不会影响到单元格原来的格式了：3、工作表Deac...
rng应该是一个变量的名称 据我估计应该是声明的Range变量 那么这句代码的意思是删除该单元格区域的所有条件格式
25 Sheets(“sheet1”).Delete或 Sheets(1).Delete 删除工作表1 26 ActiveWorkbook.Sheets(i).Name 获取工作表i的名称 27 ActiveSheet.UsedRange.FormatConditions.Delete 删除当前工作表中所有的条件格式 28 Cells.Hyperlinks.Delete 取消当前工作表所有超链接 29 ActiveSheet.PageSetup.Orientation=...
1 首先在开发工具中打开VBA编辑器 2 在单元格区域当中输入一些内容作为例子 3 在VBA编辑器中插入模块 4 在模块当中输入如下代码，然后运行Sub 图标条件格式() Range("C3:C" & [C1048576].End(xlUp).Row).Select '对C列设置条件格式 With Selection .FormatConditions.Delete '删除以前的条件格式 ....