【VBA编程】excel表格中特定文字加上下划线

效果如下：

Public Sub 加下划线()

Cells(7, 1) = Cells(5, 12) + Cells(6, 12) + Cells(7, 12)
Dim St$, i&, j&
St = [A7]

i = InStr(St, "我单位已完成了")
j = InStr(St, "□单元工程")
With [A7].Characters(Start:=i + 7, Length:=j - i - 7).Font
.Underline = xlUnderlineStyleSingle
End With
End Sub

Public Sub R替换()
Dim St$, i&, j&
Dim myRange As Range

Dim myChr As Characters

Set myRange = Range("A7")

St = [A7]

i = InStr(St, "R")
With myRange

Set myChr = .Characters(Start:=i, Length:=1)

With myChr.Font

.Name = "Wingdings 2"

.Size = 15

.Bold = True

.Italic = False

.ColorIndex = 1

End With

Set myChr = Nothing

Set myRange = Nothing

End Sub

Public Sub 加下划线2()
Call 加下划线
Call R替换
End Sub

【VBA编程】excel表格中特定文字加上下划线相关推荐

用VBA得到EXCEL表格中的行数和列数
用VBA得到EXCEL表格中的行数和列数每种方法中上面的是Excel的行数,下面的是Excel的列数. 方法1: ActiveSheet.UsedRange.Rows.Count ActiveShe ...
(转贴)用VBA得到EXCEL表格中的行数和列数
<script type="text/javascript"></script> <script src="http://pagead2.g ...
Excel表格中如何快速生成下拉菜单
Excel表格中如何快速生成下拉菜单目录 Excel表格中如何快速生成下拉菜单 1.例如下表先手动输入前几组的"等级"类别"优良中差" 2.同时按住 alt ...
怎样在表格中选出同一类_如何在excel表格中同一个框选择下一行 - 卡饭网
在excel表格中怎样设置选择下拉列表? 在excel表格中怎样设置选择下拉列表? 在excel表格制作中,经常会遇到固定选项输入,例如性别( 男女),婚否(是, 否),在制作考勤表的时候也可以利 ...
excel表格数据库表字段带下划线转驼峰
数据库表字段(小写字母带下划线)转驼峰字段,excel表格,可使用公式: LEFT(A2,1)&MID(SUBSTITUTE(PROPER(A2),"_","&q ...
输入文字加下划线_微信昵称这样设置，文字加上下划线！
Hi 大家好我是机哥今天是周末,最近有小伙伴问,微信带线的昵称是怎样设置的,其实很简单,我们先来看一下. 就是在文字的下面加一条下划线,感觉还是挺与众不同的,这个文字大家可以聊天使用,也可以设置微 ...
Excel表格中如何获得筛选下拉项的集合？
如下图: 若某列已经做了筛选,该如何获得下拉项的集合呢? 直接上代码: Private Sub Worksheet_Activate() '页面激活触发事件 Dim x As Integer, y A ...
如何让word表格中的文字紧贴下横线？
主要设置两个地方: 效果图测试1的设置: 测试2的设置: 主要设置两个地方: 行距的模式,选择固定值,根据字体大小设置值. 字体里面高级选项的位置设置为下降.(通过Ctrl+D或cmd+D调出字体选 ...
input框中的文字加下划线
需求: 要求input框中的文字有下划线解决: <input type="text" name="mailpassword" value="已 ...

【VBA编程】excel表格中特定文字加上下划线

【VBA编程】excel表格中特定文字加上下划线相关推荐

最新文章

热门文章