' 修改第一个条件格式的公式 rng.FormatConditions(1).Formula1="=200"' 删除第一个条件格式 rng.FormatConditions(1).Delete 4. 清除所有条件格式 如果你想要清除范围内的所有条件格式,可以调用Range.FormatConditions.Delete方法,但请注意这会删除范围内的所有条件格式,而不仅仅是第一个。 代码语言:javascript 代码...
方法是利用FormatConditions的Add方法来实现。具体参数如下图所示：新建格式对象 Range.FormatConditions.Add(xlCellValue, xlEqual, xAddr)上述代码表示，在Range单元格建立一个条件格式，xlCellValue是以单元格值为指定条件。xlEqual表示条件判断为"等于"，"=$A$8"表示与条件格式关联的单元格。如下示例，设置了一个条...
表示是第1个条件格式，对于 2003来说，一个单元格最多只能设置三个条件格式，所以需要只有 1、2、3 三种情况 其他版本多些。但是意思是一样的。都是表示第几个条件格式。非常赞同楼下的方法受教了
新建条件样式 Private Sub CommandButton1_Click()With Range("A4:F10").FormatConditions.Add(xlCellValue, xlGreater, "=$B$3")With .Borders '设置边框样式.LineStyle = xlContinuous.Weight = xlThin.ColorIndex = 9End WithWith .Font '设备字体样式.Bold = True.ColorIndex = 3End WithEnd WithEnd Sub...
Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Cells.FormatConditions.Delete Next ThisWorkbook.SaveEnd Sub代码解析：1、工作表SelectionChange事件，首先删除所有条件格式。2、对当前工作表设置条件格式。设置条件格式而不是直接设背景色，就不会影响到单元格原来的格式了：3、工作表Deac...
是FormatConditions.Add(可能是你问题中的错别字) xlGreaterThan不是有效的选项。也许你的意思是xlGreaterEqual。有关选项列表,请参见文档。 100%相当于1。Dim cond As FormatCondition Set cond = ThisWorkbook.ActiveSheet.Range("A3").FormatConditions.Add(xlCellValue, xlGreaterEqual, 1) ...
SubExample() ThisWorkbook.Worksheets(1).Range("A1").SelectWithThisWorkbook.Worksheets(1).Range("B1") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, _ Formula1:="=A1=1".FormatConditions(1).Interior.ColorIndex =46EndWithEndSub ...
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=...
简单地来讲，可以通过录制宏的方式生成代码 题主截图没有提供行列号，假定截图单元格区域是A1:E9，那么可以用如下VBA代码设置条件格式：Sub Less0Format()Range("A1:E9").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _Formula1:="=0"Selection.FormatConditions(Selection...
("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, ...