使用Characters对象可修改包含在全文本字符串中的任意字符序列。 使用字符(开始,长度) ,其中start是起始字符号,长度是字符数,以返回Characters对象。 示例 下例向单元格 B1 中添加文本,并将第二个单词设置为加粗。 VB WithWorksheets("Sheet1").Range("B1") .Value ="New Title".Characters(5,5).Font.Bold ...
代码如下：Sub aa()With Range("A1").Clear.Value = "字符串格式".Characters(4, 2).Font.FontStyle = "加粗"End WithEnd SubSub Bold()'' Bold Macro''Range("A1").SelectWith ActiveCell.Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"End WithRange("A1").SelectEnd Sub...
Sub test()ActiveCell.Characters(Start:=InStr(ActiveCell, "L"), Length:=1).Font.FontStyle = "倾斜"End Sub 这是当前单元格的L变为斜体 如果是一列，如A列都要这样把第一个L变为斜体 代码如下 Sub test()Dim i&, x& For x = 1 To Range("A65536").End(xlUp).Row i = InStr(C...
If i > 1 Then cell.Characters(Start:=i - 1, Length:=1).Font.ColorIndex = 0 End If cell...
当然,Selection是一个Range,Characters、Words、Sentences也是Range,Paragraphs(n). Range, Sections(2). Range也是Range,那我们就可以将Selection.后面的语句嫁接到前面这些Range之后,就不用先.Select了。 录制的宏,通过嫁接或者复制到EXCEL VBA之后,有的运行会出错,此时应检查以下几项: ...
下面是VBA代码: Sub colorX()For r = 1 To 10lenr = Len(Cells(r, 1))For c = 2 To 4lenc = Len(Cells(r, c))For i = 1 To lenrFor j = 1 To lencIf Mid(Cells(r, c), j, 1) = Mid(Cells(r, 1), i, 1) ThenCells(r, c).Characters(Start:=j, Length:=1).Font.ColorIn...
Sub 字体颜色()On Error Resume NextS = InputBox("请输入要查询的关键字", "查询")Dim i, x, KFor i = 2 To Range("a65536").End(xlUp).RowFor K = 1 To 2 'A到B列Cells(i, K).Selectx = WorksheetFunction.Find("中国", Cells(i, K))With ActiveCell.Characters(Start:=x,...
Excel中用VBA实现把单元格中后四个字符修改颜色，其实就是一个Font的Color参数的修改。代码如下:Sub FontColor()For i = 3 To 14SStr = Len(Range("J" & i)) - 3Range("J" & i).Characters(Start:=SStr, Length:=4).Font.Color = -16776961Next iEnd Sub代码原图:这里用了一个For...
Characters对象不是集合。 示例 此示例将 Sheet1 中 A1 单元格第三个字符的格式设为加粗。 VB WithWorksheets("Sheet1").Range("A1") .Value ="abcdefg".Characters(3,1).Font.Bold =TrueEndWith 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅Office VBA 支持和反馈,获取有关如何接收支持和...
在VBA中使用正则表达式,可以通过下列途径实现: 创建正则表达式对象: 前期绑定:在VBA代码编辑器中的"Tools"菜单中,选中"References...",然后引用Microsoft VBScript Regular Expressions 5.5类库,然后直接定义对象:Dim reg As New RegExp。 后期绑定:使用CreateObject方法定义对象:CreateObject("VBSCRIPT.REGEXP")。