vba如何实现条件格式？表格锁定如何展开折叠？

Question

如题2个问题：1、如图，两列数据，当左边盘点列的数量大于右边库存列时，左边的单元格显示绿色，小于时显示黄色（这效果我用vba实现了，但vba是一次执行的，当执行完以后，我再修改盘点列的数据时就无效了，用条件格式能实现，但条件格式无法用宏录制，不知道是不是因为我是苹果mac系统的原因），所以如果要用vba来实现对表格设置条件格式，要如何写代码？2、表格有部分行我设置了折叠合并，当把表格加密锁定后，点击展开则无效了，所以有没有办法在表格锁定状态下能让表格的折叠的行也能展开？请高手指点，谢谢！

Answer 1

方法/步骤

首先我们打开一个工作样表作为例子。



请点击输入图片描述

条件格式解释起来就是excel中对单元格中的字体，字体颜色和背景颜色等进行格式设置，来达到突出显示的效果。比如图例中以红色显眼标错，蓝色突出对比等等都属于条件格式设置。



请点击输入图片描述

而条件格式属于FormatConditions属性，format即格式。这里我们设置的是所选区域，也就是Selection对象，用鼠标框取的这一部分作为对象。



请点击输入图片描述

我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub FormatConditions() 

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="10" 

Selection.FormatConditions(1).Font.ColorIndex = 3 

End Sub



请点击输入图片描述

这里的条件格式设置可以使用add方法来添加条件的需求，其中包括条件的类型，条件的运算格式，以及运算后的值等。



请点击输入图片描述

这里可以直接使用指定对象的方式，比如font对象，也可以进行修改使用modify方法。这里大家可以多试验几次来掌握对条件格式的设置。



请点击输入图片描述

追问

Sub FormatConditions()
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="10"
Selection.FormatConditions(1).Font.ColorIndex = 3
End Sub
这段代码我试了，没反应啊