这里有一个有点迂回的策略： 1.定义一个名称，比如rActive，并将其设置为引用常量=FALSE 1.条件使用公式=rActive化所需范围 1.添加工作表选择更改事件Private Sub Worksheet_SelectionChange(ByVal Target As Range) ThisWorkbook.Names("rActive").RefersTo = _ Not Application.Intersect(ActiveCell, [A1:D4]) Is Nothing End Sub 结果是：根据名称rActive的值有条件地格式化范围。 rActive在您每次更改选定单元格时由事件更新。
1条答案
按热度按时间rkttyhzu1#
这里有一个有点迂回的策略：
1.定义一个名称，比如
rActive，并将其设置为引用常量=FALSE1.条件使用公式
=rActive化所需范围1.添加工作表选择更改事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ThisWorkbook.Names("rActive").RefersTo = _ Not Application.Intersect(ActiveCell, [A1:D4]) Is Nothing End Sub结果是：根据名称
rActive的值有条件地格式化范围。rActive在您每次更改选定单元格时由事件更新。