vba 判断目标单元格内容改变的代码_【VBA小代码】批量改变单元格部分字符格式...

有朋友问：能不能批量将单元格中的部分字符改变格式，比如改变字体，字号，改变颜色……举个例子，如下图所示，将“领导”两个字……字体变成15号，红色加粗……

干了这碗毒鸡汤，天黑就闭眼……

代码如下：

Sub MyCharacters()        Dim arr, s$, i&, l&, n&    s = "领导" '需要改变格式的字符串    n = Len(s) '变量s的长度    arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)    For i = 1 To UBound(arr)        l = InStr(1, arr(i, 1), s, vbTextCompare)'查找变量s在arr(i,1)中首次出现的位置，不区分字母大小写        Do While l '如果l不为0，也就是存在s的话那么……            With Cells(i, 1).Characters(l, n).Font                 .Size = 15 '15号字体                 .FontStyle = "加粗"                 .Color = -16776961 '红色            End With            l = InStr(l + n, arr(i, 1), s, vbTextCompare)  '寻找变量s下一个出现的位置        Loop    Next    MsgBox "处理完毕!"End Sub

小贴士：1，代码使用了characters对象。其语法是Characters(start, length)，其中 start 为起始字符号，而 length 为要返回的字符个数。2，代码使用了instr函数查找指定字符在字符串中最先出现的位置，其语法是InStr([start]，string1, string2, [compare])。start是可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果指定了 compare 参数，则一定要有 start 参数，例如本例小代码。string1是必要参数。接受搜索的字符串表达式。string2是必要参数。被搜索的字符串表达式。Compare可选参数。指定字符串比较。简单理解，如果省略则区分字母大小写，如果指定参数为vbTextCompare则忽略字母大小写。3，坦白的说，Excel 和VBA处理这类问题的效率并不高，即便搭配正则，效率同样还是不高。处理这类问题最高效的方法是——找隔壁老王Word呀，它才是文档排版的绝顶高手——图文制作：看见星光

vba 判断目标单元格内容改变的代码_【VBA小代码】批量改变单元格部分字符格式...相关推荐

单元格内容分列多行_姓名太多，放在一列打印时浪费纸张，可以分成多行多列打印...
在日常工作中,往往会碰到这种情况(如下图):只有一列数据,而且比较多,如果打印起来就浪费纸张,然后复制.粘贴把表格变成几列,方便打印.今天小编和大家分享不用复制.粘贴,就能快速完成一列分成几列几行的方 ...
excel 某个单元格不是等于空值_将数据合并到一个单元格，用函数也OK
工作中总会遇到一些奇葩要求,比如将符合数据的结果放到同一单元格.我们可以使用函数来实现,也可以用PQ来实现.今天我们来讲一下,如何用函数来实现我们的目的. 首先我们来看一下源数据: 操作步骤:1.在D ...
单元格内容分列多行_『如何将excel单个表格里的多行数据分列』
excel中怎样分列不规律的数据 1.我们打开 Excel 表的数据方式, 我们可以看到于歌曲的和对歌手数响应, 那么如果我们想把这个道路数据分成两个数据. 2.首先用鼠标点击列数据顶部, 列数据称为 ...
dijkstra算法代码_深度好文：改变了我们生活方式最有影响力的5种图算法
作者:Rahul Agarwal编译:刘静图灵联邦编辑部出品本文作者Rahul Agarwal是一位数据科学家,近期,他在Medium上分享了常用的5种图算法的介绍和代码实现.以下是具体博文内容:作为 ...
java改变this指向_$.on()方法和addEventListener改变this指向
jQuery $.on()方法和addEventListener改变this指向标签(空格分隔): jQuery JavaScript jQuery $.on() jq的绑定事件使用$([selec ...
java 改变文件路径_在C＃中改变文件路径
我正在创建C#Windows窗体,它从共享驱动器中检索文件作为电子邮件附件 . 我试图自动化文件检索过程,但我可用的文件路径根据日期而有所不同 . 例如: V:\....\Dec-03\filenam ...
龙贝格求积分算法例题_数值分析实习作业之龙贝格求积
北京化工大学数值分析,龙贝尔求积, 实习题五:用龙贝格求积公式法计算习题五第一题积分,是结果尽可能准确(eps = 0.000001) 主程序: %习题五:用龙贝格求积公式计算下列积分 clear c ...
单元覆盖测试排除某些类烧苗_智慧树人体生理学第一单元章节测试网课答案选修课慕课答案...
[填空题(主观)]PCM30/32的每一帧占用的时间是[ ]μs,每帧的频率为[ ]帧/秒,一帧包含[]时隙,每个时隙[]bit,帧长是[ ]bit. A. 125 B. 8000 C. 32 D. ...
java改变图片颜色_使用java代码实现证件照换背景色
思路:我们知道,每张图片都是由众多的像素点组成,那么我们是不是就可以根据像素点的范围来修改这个图片的像素点的颜色,进而就可以达到修改证件照背景颜色的效果啦!我们可以配合取色器获取颜色的rgb,并修改为 ...

vba 判断目标单元格内容改变的代码_【VBA小代码】批量改变单元格部分字符格式...

vba 判断目标单元格内容改变的代码_【VBA小代码】批量改变单元格部分字符格式...相关推荐

最新文章

热门文章