注册    登录
今天看啥  ›  专栏  ›  完美Excel

VBA初学者程序示例：匹配多个条件并执行相应操作

完美Excel  · 公众号  · Excel  · 2024-05-19 21:41
学习Excel技术，关注微信公众号：excelperfect标签：VBA这是在vbaexpress.com上看到的一个示例，相对较简单，但是运用了数组及一些VBA语句，初学者可以参考。如下图1所示，在名为“Test_Data”的工作表中，我想查找A列中的“Apple”“Banana”，同时B列中对应为“SS”或“PP”，将满足这两个条件的行设置红色背景。图1打开VBE，插入一个标准模块，输入下面的代码：Sub Set_Patterns() Dim i As Long Dim d As Range Dim Source As Worksheet Dim fruit As Variant Dim rSS As Range Dim rPP As Range  Set Source = ActiveWorkbook.Worksheets("Test_Data")  fruit = Array("Apple", "Banana", "Cherry") For i = LBound(fruit) To UBound(fruit) Set rSS = Nothing Set rPP = Nothing    For Each d In Source.Range("A2:A10").Cells If d = fruit(i) Then Select Case d.Of ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  说说Excel中的多条件汇总
2 天前
Excel之家ExcelHome  ·  任意条件查数据，简单才是硬道理
3 天前
完美Excel  ·  也来瞎扯一下《庆余年》
昨天
Excel之家ExcelHome  ·  HR必会的Excel数据处理技巧
4 天前
Excel之家ExcelHome  ·  WPS表格中的这几个新函数，优秀！
1 周前
富昌电子  ·  【富昌芯动态】直播回顾——Q1, 机电及连接器交付趋势简报
3 月前
欧欧医疗  ·  6月相约重庆！球托5S数字化系统矫正学术交流会即将开启！
2 年前
东吴大都督  ·  【东吴计算机周报】: 实体清单到底是什么？
3 年前
储能网  ·  福建省国资委、省政府发展研究中心联合举办储能产业发展座谈会
3 年前
河北交通广播  ·  【992 | 气象】雪终于有消息啦！大风、降温也来了！
3 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号