首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

多列作为条件格式的range - Worksheet_Change - alternative

多列作为条件格式的range是指在Excel中,使用Worksheet_Change事件来实现多列作为条件格式的功能。

Worksheet_Change是Excel VBA中的一个事件,当工作表中的单元格发生改变时,该事件会被触发。通过在VBA中编写代码,可以利用Worksheet_Change事件来实现对多列作为条件格式的需求。

具体实现步骤如下:

  1. 打开Excel,按下Alt + F11,打开VBA编辑器。
  2. 在左侧的项目资源管理器中,找到你想要添加多列条件格式的工作表,双击打开该工作表的代码窗口。
  3. 在代码窗口中,选择Worksheet对象,然后选择Change事件。
  4. 在Change事件的代码块中,编写VBA代码来实现多列作为条件格式的功能。

以下是一个示例代码,实现了当A列和B列的值相等时,将C列的背景色设置为红色:

代码语言:txt
复制
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Intersect(Target, Range("A:C")) '设置需要监控的列范围
    
    If Not rng Is Nothing Then
        Dim cell As Range
        For Each cell In rng
            If cell.Column = 1 Or cell.Column = 2 Then '判断是否为A列或B列
                If cell.Value = cell.Offset(0, 1).Value Then '判断A列和B列的值是否相等
                    cell.Offset(0, 2).Interior.Color = RGB(255, 0, 0) '将C列的背景色设置为红色
                Else
                    cell.Offset(0, 2).Interior.ColorIndex = xlColorIndexNone '恢复C列的背景色
                End If
            End If
        Next cell
    End If
End Sub

在上述代码中,我们首先通过Intersect函数设置需要监控的列范围,这里设置为A列到C列。然后通过循环遍历每个发生改变的单元格,判断是否为A列或B列,并判断A列和B列的值是否相等。如果相等,则将C列的背景色设置为红色,否则恢复C列的背景色。

这样,当A列或B列的值发生改变时,C列的背景色会根据条件进行相应的变化。

推荐的腾讯云相关产品:腾讯云云服务器(CVM)和腾讯云数据库(TencentDB)。

  • 腾讯云云服务器(CVM):提供弹性计算能力,可根据业务需求灵活调整配置,支持多种操作系统,适用于各类应用场景。产品介绍链接:https://cloud.tencent.com/product/cvm
  • 腾讯云数据库(TencentDB):提供多种数据库类型,包括关系型数据库、缓存数据库和分布式数据库等,具备高可用性、高性能和高安全性,适用于各类数据存储需求。产品介绍链接:https://cloud.tencent.com/product/cdb
页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

Power BI 图像在条件格式行为差异

Power BI在表格矩阵条件格式、值区域均可以放入图像,支持URL、Base64、SVG等格式。同样图像在不同区域有不同显示特性。...以上测试可以得出第一个结论:条件格式图像显示大小和图像本身大小无关;图像显示大小既受图像本身大小影响,又受表格矩阵格式设置区域区域空间影响。 那么,条件格式图像大小是不是恒定?不是。...还是36*36正方形,这里把表格字体放大,可以看到条件格式正方形图像也对应放大,图像没有变化。 所以,条件格式图像大小依托于当前列值文本格式。...下方表格长方形存放在表格,对长方形施加了正方形条件格式,可以看到二者有明显缝隙,此时他们是分离。...换一个场景,对店铺名称施加排名条件格式(SVG图像),为该设置背景色,可以看到背景色穿透了本应存在缝隙,条件格式值融为一体。

15210
  • Excel事件示例(二)

    Private Sub Worksheet_Change(ByVal Target As Range) Dim i If Not Application.Intersect(Target, Range(...("汇总表").Range("a" & j).Offset(1, 0).Value = k & " 时间" & t End Sub 由于要将“表格1”中更改内容保存到“汇总表”A,首先通过range...最后通过单元格offset属性,在“汇总表”A有数值最后一行行下一行填入变量k和变量t。 示例中只是在“表格1“模块中写入了代码,”表格2“中也写入类似的代码。...(实际操作中为了区分开,可以将“表格2”改动写在汇总表B,或者在变量k中直接加入不同工作表名称即可。)...---- 本节介绍两个事件综合示例,涉及到触发区域判断,触发事件后条件判断,事件开启和关闭,单元格end属性和offset属性应用。祝大家学习快乐。 ----

    97440

    Excel VBA事件——Worksheet

    (ByVal Target As Range) End Sub Target就是变化后选中单元格。...选中所有单元格,设置条件格式: =ROW()=selectrow 在事件中设置工作表重新计算,因为CELL("row")在单元格选择变化时候是不会重新计算 Private Sub Worksheet_SelectionChange...2、Worksheet_Change: 这个改变是指单元格数据变化后发生事件,而其实这个变化是只要单元格进入了编辑状态,再退出编辑状态时候,就是变化了: Private Sub Worksheet_Change...,比如某存放了一些文件路径,希望双击时候打开对应文件: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel...If Target.Row > 1 Then '第一行是标题,文件路径从第2行开始 If Target.Column = 2 Then '存放在B

    3K50

    VBA技巧:记住单元格更改之前

    标签:VBA,工作表事件 当工作表单元格中值被修改后,我需要将修改前值放置到其右侧单元格中。例如,单元格A1中输入有数值1,当我将其内容修改为2之后,之前数值1被放置到单元格B2中。...在该工作表代码模块中输入代码: Private Sub Worksheet_Change(ByVal Target As Range) Dim sOldValue As String Dim sNewValue...As String If Target.Address = Range("A1").Address Then Application.EnableEvents = False sNewValue...当一单元格区域中值发生改变时,需要将修改之前值放置到相邻对应单元格中,例如对于单元格区域A1:A10,其值发生改变时,原来值会自动放置到单元格区域B1:B10对应单元格中。...在该工作表代码模块中,输入代码: Private Sub Worksheet_Change(ByVal Target As Range) Dim rngToProcess As Range Dim

    31410

    将单元格作为累加器

    或者可以是两个单元格,比如说,在A1中输入数字会立即与B1中值相加。 构建累加器最可靠方法是使用Worksheet_Change()事件。...下面的代码在单元格A1中输入值,单元格B1将累加这些值,代码如下: Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target...("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True End If End If...下面的代码在单元格A1中累加在其中输入值,代码如下: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator...可以构造更复杂累加器来有条件地添加累加值(例如,仅当A1>B1时),但通常情况下,这种类型累加器是不可靠,因为不能总是阻止用户重新计算,而且很少或根本没有机会进行更正。

    18010

    Excel事件(二)工作表事件

    Worksheet_Change事件执行时,会将操作单元格Range对象传递到参数targe中,然后就用来对参数进行判断,来空值用户对参数更改。...即选中工作表中单元格就触发change事件,此时将更改单元格,作为参数传递给参数Target (target是单元格对象类型参数)。...Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Value = "...示例 平时使用excel如果数据,选某个单元格数据时容易选错行。那么下么就通过selectchange事件来实现,选中一个单元格时,所在行单元格填上颜色。...大家可以尝试下让选中单元格所在行和都标注颜色。 五、activate事件 工作表事件,图表工作表或嵌入式图表时触发activate激活事件。

    3.5K10

    Excel小技巧18:阻止Excel将某些文本自动转换为超链接

    如果我们不需要这样功能,可按以下步骤取消。 1.单击Excel左上角“文件——选项”,弹出下图1所示“Excel选项”对话框。 ?...3.在弹出“自动更正”对话框中选取“键入时自动套用格式”选项卡,取消“Internet及网络路径替换为超链接”前复选框,如下图2所示。 ?...如果只是想要某个工作表中不要将网址或者电子邮件地址自动转换成超链接,可以利用工作表事件,即在该工作表模块中输入代码: Private Sub Worksheet_Change(ByVal Target...As Range) If Target.Hyperlinks.Count 0 Then Target.ClearHyperlinks End If End Sub 然而,...下面的代码清除工作表中所有链接: Private Sub Worksheet_Change(ByVal Target As Range) Me.Cells.ClearHyperlinks End

    1.6K30

    VBA:利用高级筛选自动筛选列表

    首先要做是设置数据验证。这里有一些车辆碰撞信息,并建立了3个列表:星期几、碰撞类型和道路使用者。这三个条件将用于筛选列表数据。...示例一个优点是能够对下拉列表中选择项目进行筛选,或合并所选项目(所有项目以及单个项目)。例如,可能希望看到周日发生事故,但也可能希望看到全天发生涉及辆车事故。...对于碰撞类型和道路使用者,按照相同步骤。那么,现在有了显示每个条件一个或全部公式。...Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [K2:K4]) Is Nothing...1, [C5:E6], 0 End Sub 上文中公式在单元格区域C5:E6中,这些单元格为高级筛选提供了条件

    2.2K40

    问与答95:如何根据当前单元格中值高亮显示相应单元格?

    具体如下: 在一个工作簿中有两个工作表Sheet1和Sheet2,要求在工作表Sheet1中A某单元格中输入一个值后,在工作表Sheet2中从B开始相应单元格会基于这个值高亮显示相应单元格。...例如,在工作表Sheet1单元格A2中输入值2后,工作表Sheet2中从单元格B2开始单元格将高亮显示,即单元格B2和C2高亮显示;在工作表Sheet1单元格A3中输入值3,工作表Sheet2...中从B3开始单元格将高亮显示,即单元格B3、C3和D3加亮显示,等等。...在工作表Sheet1代码模块中输入如下代码: Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String...(WS_RANGE))Is Nothing Then With Target If IsNumeric(.Value) Then Worksheets

    3.9K20

    Excel应用实践24: 实现完美Excel公众号文章推送记录

    其中,B中使用了“数据验证”功能,可以在下拉列表中选择上图2中分类项,C中下拉列表可选择“是”或“否”。 ?...图3 如果在“待发表”工作表中填好数据后,在C相应单元格中选择“是”,则会将该单元格所在行记录复制到“已发表”工作表中。下图4是“已发表”工作表结构。 ?...图4 实现上述功能代码如下,在VBE中双击“待发表”工作表模块,输入下面的代码: Private Sub Worksheet_Change(ByVal Target As Range) '工作表变量...As Long '信息框响应 Dim iMsg As Integer '获取当前行行号 lngCurRow = Target.Row '当前单元格在C...("B" & Rows.Count).End(xlUp).Row '当前行列D中单元格值为"是"且A和B中值不为空 If Range("C"& lngCurRow) = "

    1K30

    「R」基本统计分析

    table()函数使用格式为: table(A, B) # A为行变量,B为变量 xtabs()函数可以使用公式风格输入创建联表: mytable <- xtabs(~ A + B, data...相关类型 R可以计算多种相关系数,包括Pearson相关系数、Spearman相关系数、Kendall相关系数、偏相关系数、多分格相关系数和系列相关系数(具体意义自查)。...格式为:cor.test(x, y, alternative = , method =) > cor.test(states[,3], states[, 5]) Pearson's product-moment...在多元正态性假设下,psych包中pcor.test()可以用来检验控制一个或多个额外变量时两个变量之间条件独立性。...调用格式: wilcox.test(y ~ x, data) wilcox.test(y1, y2) 默认进行双侧检验,可以添加参数exact来进行精确检验,指定alternative='less'或者

    1.6K10

    VBA自动筛选完全指南(下)

    下面的代码提供前10条记录(基于“数量”): Sub FilterRowsTop10() ActiveSheet.Range("A1").AutoFilter Field:=4, _...下面的代码将提供前10%记录(基于“数量”): Sub FilterRowsTop10Percent() ActiveSheet.Range("A1").AutoFilter Field:=...因此,这将筛选出任何包含“机”项目。 示例:复制筛选出行到新工作表 如果不仅要根据条件筛选记录,而且要复制筛选行,那么可以使用下面的宏。...图3 在数据集所在工作表代码模块中,输入下面的事件代码: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...如果不想关闭整个工作表中筛选,只想关闭特定数据集中筛选,可以使用下面的代码: Sub TurnOffAutoFilter1() If Worksheets("Sheet1").Range("

    3.7K30

    (数据科学学习手札19)R中基本统计分析技巧总结

    ;将缺失值作为一种有效值;进行行和标题标注;生成SPSS风格输出: > library(gmodels) > CrossTable(mtcars$cyl,mtcars$am) Cell...: two.sided 4.联表相关性度量 利用vcd包中assocstats()函数可以用来计算二维联表phi系数、联系数和Cramer‘s V系数: > with(assocstats(...; 利用ggm包中pcor(u,s)函数计算偏相关系数,其中u是一个数值向量,前两个数值表示要计算相关系数变量下标,其余数值为条件变量(即要排除影响变量)下标。...s为变量协方差阵: > library(ggm) > > data(iris) > > #以鸢尾花第2,4数据作为条件变量来计算第1,3数据偏相关系数 > pcor(c(1,3,2,4),cov...用以指定要计算相关类型('pearson'、'kendall'、'spearman'): > #以鸢尾花第2,4数据作为条件变量来计算第1,3数据偏相关系数 > cor.test(iris[,1

    2.5K100

    Excel自定义任意图表通用模式

    例如,可以制作填充任何图形条形图: 可以定制一个带有条件格式迷你环形图,并且安装数据变化实时更新: 可以定制一个四象限方块图,按照指标达成状况将所有店铺分为四个区域: 熟悉我公众号读者可能觉得以上图表似曾相识...使用SVG方式在Power BI和Excel自定义图表底层原理一致,都是利用了SVG图片矢量性。图表是位置、大小、形状、颜色、亮度、方向和文本组合,SVG原理正好满足图表所有属性需求。...圆点条形图例子中,内层For语句,按照数据大小生成相应数量圆;外侧For对选中每一行数据执行内层For。 2....自动刷新 ---- 刷新图表有两种方式,一种是指定一个按钮,点击刷新: 另外可以自动刷新,新建一个新宏,如下所示,借助Worksheet_Change事件,当工作表数据有变更自动促发VBA运行。...Private Sub Worksheet_Change(ByVal Target As Range) 删除图片代码 Call 四象限方块图 End Sub 以上即是完整Excel自定义图表流程

    2.8K10

    Excel函数-sumif用法实例

    ◆SUMIF函数格式 SUMIF(range,criteria,[sum_range]) 参数说明 range(必选):表示要进行条件判断单元格区域。...sum_range(可选):表示根据条件判断结果要进行计算单元格区域。如果省略该参数,则对参数 range 指定单元格区域中符合条件单元格进行求和。...◆实例3:返回大于90数据之和 =SUMIF(C:C,">90") ◆实例4:返回低于平均值数据之和 =SUMIF(C:C,"<"&AVERAGE(C:C)) 注意,当使用其他公式作为求和条件时,如果在求和条件公式前使用大于...=SUMIF(A:A,TODAY(),C:C) ◆实例10、返回忽略错误值销售额 =SUMIF(C:C,"<9e307") 求和参数省略,以条件区域C:C作为求和区域,求和条件是<9e307,相当于对所有数值求和...◆实例11、返回B中如花和秋花C数据之和 =SUM(SUMIF(B:B,{"如花","秋花"},C:C)) 三键 ◆实例12、返回A满足条件数据之和 单数之和=SUM(SUMIF(A:

    1.8K10
    领券