Excel 2010 VBA 入门 038 按颜色查找单元格

最新推荐文章于 2023-02-13 07:46:33 发布
最新推荐文章于 2023-02-13 07:46:33 发布
阅读量2.1k 收藏 11
点赞数 2
分类专栏： # Excel 2010 VBA 入门
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ngbshzhn/article/details/115667104
版权

目录

示例：

实现代码：

单元格对象的Clear方法

动态表示数据区域

单元格对象的Copy方法

示例代码2.0

单元格对象的选择性粘贴(PasteSpecial)方法

参数Paste表示选择性粘贴的内容，可以为下表中的任何一个。

参数Operation为粘贴的附加操作，可以为下表中的任何一个。

参数SkipBlanks表示是否跳过空白单元格，若为True，则表示不将剪贴板中的空白单元格复制到目标区域。

参数Transpose表示是否转置，若为True，则表示转置。

示例：

    如图所示，该表为某公司某月销售人员的销售数据。在进行数据核对时，发现某些有问题的数据并将填充色改为灰色。现在需要将这些数据一次性筛选出来并复制到F:H列，该如何利用VBA实现？

销售地区 销售人员 销售金额
广州 程建华 135000
深圳 李国敏 67200
深圳 袁志刚 79500
深圳 周汉林 225000
广州 骈永富 15400
广州 孙玉梅 2500
上海 陈亚菁 37400
上海 康小芸 12000
上海 刘晨 22500
广州 齐光 73500
广州 于健惠 235000
山东 王文群 136500
山东 曾国安 21000
广州 刘志峰 16000
广州 刘玉录 78000
广州 俞卫广 36000
广州 杨建军 170000
深圳 曲波 38000
深圳 林革壮 73500
深圳 李卫卿 45000
广州 申玲 132000
上海 孙正发 63000
上海 毛传阳
最低0.47元/天 解锁文章
ngbshzhn
关注
  • 2
    点赞
  • 踩
  • 11
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
VBA分别计算Excel的每一行填充颜色的单元格。把结果写到行最后
Percy1993的博客
04-12 1214
Sub Colorsum() Dim i, j, k, c As Long Set mysheet1 = ThisWorkbook.Worksheets For i = 3 To 26 '行 （需要计算的标黄的有哪些行） k = 0 For j = 1 To 190 '列 （需要计算的标黄的有哪些列） c = Cells(i, j).Interior.Color If c <> 16777215 Then '不为无填充 （即该单元格有填充颜色不一定是黄色什么色都行） I
VBA 根据Find方法根据特定内容查找单元格
weixin_34368949的博客
12-31 7177
http://club.excelhome.net/thread-940744-1-1.html 2. Find方法的语法[语法]<单元格区域>.Find (What，[After]，[LookIn]，[LookAt]，[SearchOrder]，[SearchDirection]，[MatchCase]，[MatchByte]，[SearchFormat])'_____...
how use VBA in excel move active cell!
06-02 1188
Sub instab()    Dim flag As Boolean    Dim rs1 As String    Dim rs2 As String    flag = True    Range("A5:A6").Select    With Application.FindFormat.Font        .Subscript = False        .ColorIndex =
【VBA研究】Excel信息对比及单元格颜色设置
驽马十驾 才定不舍
09-10 3566
作者：iamlaosong 1、需求是对一个文件中某个工作表中的邮件号码在另一个文件中进行查找，找到后比较附加信息，如果不一致或者有重复，则进行记录，同时对比较的号码进行标注。找不到当然也会记录。为此做了以比较通用的工具，工具可以实现一个文件工作表中的号码对比另一个文件中一个或所有工作表中的号码，同时还可以比较 最多6列附加信息。如果发现不一致，则记录原表信息和不一致的附加信息，同时，按照设定的...
vba获取单元的背景颜色
fabbychips的专栏
11-22 1万+
Sub 宏1() ' ' 宏1 宏 ' ' 'Cells(7, 2).Interior.ColorIndex Worksheets("dsp3.0 pc").Range("B1").Value = InteriorColor(Range("G2")) End Sub Function InteriorColor(CellColor As Range) Applicati
VBA学习笔记之利用查找颜色拾取进行颜色汇总
aiyin1399的博客
09-08 751
教程代码： 1 Sub 根据查找功能拾取的颜色求平均() 2 On Error GoTo 100 3 Dim erng As Range, rng As Range, i As Long 4 i = Application.FindFormat.Interior.Color 5 Set erng = Cells(Rows.Count, "e")...
Excelvba.rar_Excel VBA_excel vba入门
09-19
这篇文档“Excelvba.doc”将引导初学者入门Excel VBA。 在Excel VBA中，主要涉及以下几个关键知识点： 1. **VBA编辑器**：这是编写VBA代码的地方。通过点击“开发者”选项卡（在Excel界面中可能需要开启），然后...
Excel VBA视频教程 80集
最新发布
05-17
第016集:单元格查找 第017集:excel事件程序(上) 第018集:工作簿事件 第019集:excel程序事件 第020集:VBA数组-1:数组基础 第021集:BA数组-2读取 第022集:数组-3 第023集:数组-4:数组与函数 第024集:VBA数组-5:数组与...
Excel 进阶VBA代码入门开发实战案例
04-03
《Excel进阶VBA代码入门开发实战案例》是针对Excel用户深入学习VBA编程的一份宝贵资源。VBA，全称Visual Basic for Applications，是Microsoft Office应用程序中的编程语言，允许用户自定义工作流程，自动化重复任务...
EXCEL_VBA常用代码实战大全.docx
07-31
5. **查找单元格** - `Find`和`FindNext`方法是VBA中用于查找特定值的强大工具。它们允许设置搜索条件，如匹配模式、搜索方向等。 6. **其他常用技巧** - **For Each...Next循环**：遍历每个单元格或范围进行操作...
MI11609_Example_ExcelVBA巨集入门_VBa_
10-01
"MI11609_Example_ExcelVBA巨集入门_VBa_"这个标题暗示了这是一个关于学习和理解Excel VBA基础的教程或指南，目标是帮助用户快速掌握如何使用VBA来创建巨集，从而实现工作自动化，提升办公速度。 描述中的“Excel ...
ColorRangeSum 查找区域内包含指定颜色的单元格
JSY
04-12 298
Function ColorRangeSum(数组行 As Range, Optional 目标颜色行A As Range) As Integer Application.Volatile '将用户定义的函数标记为可变函数。 每当工作表上的任何单元格发生计算时, 都必须重新计算可变函数 Dim ColorCell As Range For Each ColorCell In 数组行 If ColorCell.Interior.ColorIndex = 目标颜色行A.Interior.ColorIndex .
VBA：设置单元格是否填充单元格颜色
youngmiffy的博客
12-22 4413
Sub lsy() Range("f9:f10").Font.ColorIndex = 2 Range("g9").Font.ColorIndex = 2 If Range("g10") < 0# Then Range("g10").Font.ColorIndex = 3 Else Range("g10").Font.ColorIndex = 2
写一个用excel的vba提取有颜色的单元格内容到第十三列的代码
weixin_35756690的博客
02-13 549
以下是一段使用 VBA 代码，它可以提取带有颜色的单元格的内容，并将其输出到第十三列： Sub ExtractColoredCells() Dim i As Long Dim j As Long Dim lastRow As Long Dim lastCol As Long Dim cellColor As Long Dim targetCol As...
关于查找方法(Find方法)的应用(一)
国际海员
01-26 6659
关于查找方法(Find方法)的应用(一)在Excel中，选择菜单“编辑”——“查找(F)…”命令或者按“Ctrl+F”组合键，将弹出如下图01所示的“查找和替换”对话框。在“查找”选项卡中，输入需要查找的内容并设置相关选项后进行查找，Excel会将活动单元格定位在查找到的相应单元格中。如果未发现查找的内容，Excel会弹出“Excel找不到正在搜索的数据”的消息框。500){this.resize
VBA，群里的例子，关于worksheetfunction.find() ，range.find(), object.find()的用法，还有按颜色，等格式查找
奔跑的犀牛先生
02-10 4922
1 QQ群的问题和答案 1.1 原始问题 别人的提问 别人的回答 我只是旁观 1.2 尝试了下问题，确实存在 猜想原因，可能是worksheetfunction.find() 设计就是给string 用的，查数字里可能就会有问题 代码 Sub test1() Debug.Print Application.WorksheetFunction.Find...
VBA实战(11) - 工作表(Sheet) 操作汇总
jie_ming514的博客
08-06 4893
下面案例为读取所有的 Sheet 页，检查是否有“模切绩效工资汇总表” Sheet 页。
VBA(13)单元格的属性(三)附单元格颜色图/FIND函数
q14091355的博客
07-20 2230
VBA(13)单元格的属性(三)附单元格颜色图/FIND函数
vba clear清除公式、内容、格式的使用
热门推荐
ribut9225的专栏
08-10 1万+
vba clear清除公式、内容、格式的使用 一、清除所有属性 Sheet9.Cells.Clear 清除默认表Y1:Z10这个范围的所有属性 Range("Y1:Z10").Clear 所指定的范围的单元格中的格式、值、批注等全部被清空。 二、清除指定范围的格式 Sheet9.Cells.ClearFormats 清除默认表Y1:Z10这个范围的单元格的格式 Range("Y1:Z10").ClearFormats 注意哦，ClearFormats只清除格式，比如字体、字号、加
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值