Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗"
End With
End Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"
Sub aa()
With Range("A1")
.Clear
.Value = "字符串格式"
.Characters(4, 2).Font.FontStyle = "加粗"
End With
End Sub
'
' Bold Macro
'
'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select
End Sub
希望对你有帮助。
在EXCEL中,如何使用VBA设置单元格内指定字符串格式
Sub 这个代码可以让你的格式两个字在任意位置 如果你A1是固定的这几个字，那么一句话搞定 Range("A1").Characters(Start:=4,Length:=2).Font.FontStyle = "加粗"
Excel中VBA函数引用单元格字符串代码的操作方法
Excel中VBA函数引用单元格字符串代码的操作步骤如下：单击Visual Basic工具栏上的安全按钮，在弹出的安全性对话框中可靠发行商标签项底下的‘信任对于“Visual Basic 项目”的访问’前打√。ALT+F11打开VBE编辑器，单击菜单工具-引用，在弹出的引用-VBAProject对话框中，选择引用Microsoft Visual Basic 6.0...
VBA--单元格的文本设置(二)
首先，如何让单元格内文字自动换行？利用Wrap Text属性，单元格内文字会根据列宽自动换行。当字符串长度超过列宽时，设置Wrap Text属性，字符串自动换行，同时自动调整行高以显示所有文字。其次，如何缩小文字以完全显示在单元格？StrinkToFit属性能够根据列宽缩小文字，使过长的字符串在单元格内完全显示。如果...
用VBA如何设置单元格的格式类型
1、首先我们打开一个工作样表作为例子；2、单元格的格式类型解释起来就是excel中对单元格中的字体，字体颜色和背景颜色等进行格式设置，来达到突出显示的效果，比如图例中以红色显眼标错，蓝色突出对比等等都属于条件格式设置。3、单元格的格式属于FormatConditions属性，format即格式。这里我们设置的是所选区域...
批量对Excel单元格中指定的“部分文字”,进行内容替换、格式更改!含 ...
然而，借助VBA编程，这个问题变得简单起来。只需右键点击工作表标签，进入VBA编辑器，复制以下代码：Range("A1:B3").Replace "Excel", "Word"代码中的"Range("A1:B3")"定义了查找范围，"Replace "Excel", "Word""则替换目标。对于其他格式修改，如字体、字号、颜色和加粗，可以添加相应语句，如：Rn...
用vba给Excel单元格赋值vba单元格数值格式赋值给变量
材料\/工具：Excel2010 1、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。2、接着，在表格中输入简单的表格，比如水果表格。3、然后在VBA控件下拉菜单中，选择按钮控件。4、接着在表格中绘制出按钮控件，并修改控件名称。5、然后，鼠标左键单击【查看代码】按钮。6、接着，在代码窗口中输入给...
[VBS]请问在excel单元格中插入字符串的问题。
假设你有一个公式需要在当前单元格之外的特定位置应用，比如在当前单元格上一行、左一列的单元格。如果使用的是公式"=Sheet1!A2"，这会将公式引用到Sheet1工作表的A2单元格。然而，这并不适用于想要动态更新引用，特别是当涉及到相对位置时。为了解决这个问题，你可以使用另一种引用方法，即"=Sheet1!
如何在Excel中用vba语言表示一个单元格的字符串的格式
MsgBox ActiveCell.NumberFormat
excel 使用vba设置条件格式更改字体字号
此题无解，条件格式无法改变字体、字号，本来以为下面的代码满足你的要求：Sub Macro1() Range("A1:Y161").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""（此项空白）""" With Selection.FormatCondi...
使用VBA解决Excel单元格中字符串分割的案例
1. 从A1单元格获取字符串内容。2. 利用VBA将字符串按中文顿号分隔，形成一个数组。3. 逐个将数组中的元素写入A列。借助VBA实现的代码如下：注解提示：1. 通过UBound函数获取数组元素数量，注意数组索引从0开始。2. 如果在VBA代码中不支持输入中文顿号“、”，可以先将所有中文顿号替换为英文反斜杠"\\"...
