VBA标红

最新推荐文章于 2023-11-15 14:11:59 发布
最新推荐文章于 2023-11-15 14:11:59 发布
阅读量1k 收藏
点赞数
文章标签： vba excel vb java
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/dzl84394/article/details/6048601
版权

上级发来一个EXcel表格很长，要求把数据不连续的地方标注，本准备加工一下搞成数组然后用java来处理，悲剧的是溢出了，

知道有一个对excel处理的东东叫vba，查了一下，就用它了，这是我第一个VBA程序，（没有VB基础），哈哈，贴上来留做纪念

 

Sub test1()
For i = 2 To 24335
    If CLng(Right(Sheet1.Cells(i, 4), 6)) - CLng(Right(Sheet1.Cells(i - 1, 4), 6)) <> 1 Then
       Sheet1.Cells(i, 4).Interior.ColorIndex = 3
Sheet1.Cells(i, 5) = 1

    End If
  Next
End Sub

dzl84394
关注
以下我写的VBA代码执行到红色的那句就出现错误提示，无法运行，请求您的帮助
DZ_CCP_CCP_C的专栏
04-26 919
<br />Sub 过上年帐册()<br />Dim LuJin As Variant<br />If Workbooks("GZ.xls").Sheets("CK").Cells(2, 19) = "☆" Then<br />MsgBox "您已经记过帐,，请勿重复！！"<br />Else<br />Application.Run "GZ.xls!源路径"<br />LuJin = Workbooks("GZ.xls").Sheets("CK").Cells(2, 20)<br />If LuJin =
VBA查找单元格内指定文字并标红加粗
shunsui110616233的博客
12-12 3622
【代码】VBA查找单元格内指定文字并标红加粗。
VBA EXCEL 给单元格设置颜色
最新发布
hajual2019的博客
11-15 1429
EXCEL VBA 给单元格设置颜色
VBA 查找指定内容所在行并标红
weixin_42602368的博客
02-13 1358
下面是一段 VBA 代码来实现查找指定内容所在行并标红的操作： Sub HighlightRows() Dim cell As Range Dim searchText As String searchText = InputBox("请输入您要查找的内容：") If searchText = "" Then Exit Sub For Each cell...
Excel 使用宏批量修改单元格内指定文字为红字
weixin_33770878的博客
09-23 2390
-> step 1:新建宏，进入编辑，使用如下代码： Sub Ss()Dim c As RangeFor Each c In ActiveSheet.UsedRange i = 1 While InStr(i, c, "木木", 0) > 0 i0 = InStr(i, c, "木木", 0) If i0 > 0 Then c.Characters(i0, 2...
VBA批量标色&删除两列重复值
m0_55341949的博客
02-10 1444
批量标色表格两列的重复值为不同颜色，以及删除重复项和一列
VBA：根据某个单元格的值，判断在另一个单元格内是否有并标红
Cyber的博客
06-09 4411
前言：最近在做一个地址标准化的竞赛，里面包括了地址提取、分词、清洗、匹配等一系列动作，等这次竞赛结束后会专门写一篇文章分享源码。 之所以要做标题的事情，是因为用了这么多年的Excel，还是习惯Excel的界面，而且因为这次初赛数据量并不大（500条），分数也达到了了一个瓶颈（98.2分），不清楚应该如何提升，所以就想一条条看看到底错在那里。第一步就是要判断提取出来的地址是否准确。 如上图所示，我想要的结果就是根据C列，判断B列里是否有一样的内容，如果有的话就用红色标记，使用VBA很简单，不过也查了蛮多资料
VBA案例：求总分、平均分、成绩等级、标记颜色
犇犇的学习笔记
06-05 1880
需求 计算出单个人员的总分、平均分、成绩等级 解决方法 Option Explicit Sub TEST() Dim HANG, ZONG, PING, LIE HANG = 2 Do While Cells(HANG, 1) <> "" ZONG = Cells(HANG, 2) + Cells(HANG, 3) + Cells(HANG, 4) + Cells(HANG, 5) '总成绩 Cells(HANG, 6) = ZONG
VBA脚本实例-对比两个Excel数据是否一致
10-20
VBA脚本，对比两个Excel数据是否一致，把不同两个Excel中的不同数据标红；请按ALT+F11查看代码；
Excel·VBA单元格重复值标记颜色
hhhhh_51的博客
04-12 5096
《excelhome提问-标记重复值的问题》，对同一行的多列内容都重复的标记颜色 仅需选中要标记颜色的多列，即可运行代码；且不同的重复值标记不同颜色 注意：由于使用了Union函数，故不支持单列；区分字母大小写 选中列重复标记颜色
vba 监听手动修改单元格后内容的变化，发生改变后将字体设为红色
aasdf245的博客
05-24 3800
最近因某项目的客户需求，需要使用vba，监听某工作簿的某工作表内单元格的值是否发生变化（在已有值上手动修改或者在空白处添加新值），如果有变化设置变化后的单元格的字体为红色。 作为初学vba的小白，在网上查了很多教程，但大多有漏洞，故在此记录一下。 一、最简单的处理 首先，查到的第一个简单的写法是直接在excel中选中工作表，右键查看代码，直接插入 Private Sub Worksheet_Change(ByVal Target As Range) Target.Font.Color...
VBA将excel表格中关键字标红
mr_xinL的博客
03-22 5114
转载 Sub 将某一关键词标红() Dim Rng As Range, RngStart As Range, Str$, N% On Error GoTo skip '设置出错跳转 Str = InputBox("请输入要查找的内容：", "输入") '利用输入框输入要查找的内容 If Cells.Find(Str) Is Nothing Then '如果工作表未找到要查找的内容及提示 ...
10, excel vba 修改单元格的颜色
热门推荐
keepiss的博客
03-07 7万+
 看数据总是很累的,一堆密密麻麻的.哪个数据才是我想要的呢? 比如一列里有各种各样的数据,我想知道哪些单元格的数据大于11的?又比如一列里有各种各样的数据,我想知道哪些单元格的数据大于111的?这里比较好的一种方法就是给单元格加一些色彩.看起来更直观.又或者有些人比较好色.比如觉得看绿色让他很舒服.也可以设置单元格的颜色了.在vba中一种颜色都对应着一个数字或者说序列吧. 比如红色. 它对应的序列...
批量修改Excel单元格内某些文字的颜色
SugarWithSmile的博客
12-06 1万+
批量标注单元格内部分文字颜色
excel单元格内将某个文字标红
周嫣雨的博客
03-14 3019
alt+F11，打开宏编辑器运行如下代码： Sub AA() Dim R As Range, L As Long, S As String Application.ScreenUpdating = False S = “???” //文字内容 L = Len(S) For Each R In Selection If InStr(R, S) > 0 Then R.Characters(InStr(R, S), L).Font.Color = vbRed Next End Sub 转载于:https:/
实现搜索框功能（将搜索关键字标红，点击就加入到文本框中）
Wrj6811的博客
11-06 4486
类似于百度的搜索框，当输入一个字或词的时候，自动检索有没有该内容，有的话把输入的关键字标红 代码如下： <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>百度搜索框设置</title> <style&...
VBA 查找M列内容为 FALSE 的单元格所在行并标红
08-16
### 回答1： 以下是 VBA 代码示例，可以实现在某一工作表中查找 M 列中内容为 FALSE 的单元格所在行，并将其颜色标红： ``` Sub HighlightFalseCells() Dim i As Long For i = 1 To Cells(Rows.Count, "M").End(xlUp).Row If Cells(i, "M").Value = False Then Cells(i, "M").Interior.Color = RGB(255, 0, 0) End If Next i End Sub ``` 在使用此代码前，请确保当前工作表是您要操作的工作表。 ### 回答2： 使用VBA编写一个宏来查找M列中内容为FALSE的单元格所在的行，并将该行标记为红色。 首先，打开Excel文件并按下Alt+F11打开VBA编辑器。在VBA编辑器中，选择适当的工作表，然后点击插入->模块，输入以下代码： ```vba Sub FindAndHighlightFalseCells() Dim ws As Worksheet Dim lastRow As Long Dim i As Long '选择适当的工作表 Set ws = ThisWorkbook.Sheets("Sheet1") '获取M列的最后一行 lastRow = ws.Cells(ws.Rows.Count, "M").End(xlUp).Row '遍历M列中的每个单元格 For i = 1 To lastRow '如果单元格的值为FALSE，则标红该行 If ws.Cells(i, "M").Value = False Then ws.Rows(i).Interior.Color = RGB(255, 0, 0) '红色 End If Next i End Sub ``` 请将"Sheet1"替换为你想要在其中执行此操作的工作表名称。然后，按下F5或运行按钮执行宏。 执行完宏后，M列中内容为FALSE的单元格所在的行将会被标记为红色。 以上就是使用VBA查找M列内容为FALSE的单元格所在行并标红的方法。 ### 回答3： 在VBA中，可以使用循环遍历M列的每一个单元格，然后判断其内容是否为FALSE，如果是，则将所在行的单元格标红。 具体实现的代码如下： ```vba Sub 标红() Dim lastRow As Long Dim rng As Range Dim cell As Range '获取M列的最后一行 lastRow = Cells(Rows.Count, "M").End(xlUp).Row '设置需要遍历的范围为M列的所有单元格 Set rng = Range("M1:M" & lastRow) '遍历每一个单元格 For Each cell In rng '判断单元格内容是否为FALSE If cell.Value = False Then '将所在行的单元格标红 cell.EntireRow.Interior.Color = RGB(255, 0, 0) End If Next cell End Sub ``` 以上代码首先找到M列的最后一行，并将需要遍历的范围设置为M列的所有单元格。然后通过遍历每一个单元格，判断其内容是否为FALSE，如果是，则将其所在行的单元格标红。最后可以通过运行这段VBA代码来实现查找M列内容为FALSE的单元格所在行并标红的功能。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值