<em>Excel</em> <em>VBA</em>中 单元格格式和数

Sub ss()
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 = "加粗"

单元格里的数据类型zhidao系统是根据数据内容确定的，比如：你将A列单元格格式设为保留两位的数值型，当你在A1输入 5 时，它就显示为5.00，如果输入 ABC，它就不会变成数值型，而是文本型，如果将文本改为数字后，又回到你设置的保留两位小数格式。所以单元格设置格式只能对能转换的数据有效。（当你设置为文本型后，所有输入字符都能转换为文本，可以理解为文本型才是单元格真正能设置的格式）
在VBA中的引用单元格数据时，数据类型由VBA中确定，当数据能转换时就直接专赋值，不能转换时出现数据类型不匹配错误。举例来说，在单元格中输入4.56 数据，格式设为文本型，当在VBA中引用时，赋给整数型Long Integer结果是 5（自动四舍五入），Double型结果为属 4.56，String型结果是"4.56"。

实际中不必太在意数据类型，VBA运算时会自动转换数据，必要时才用函数进行类型转换。

ActiveCell.NumberFormat = "@"

用VBA设置单元格的格式类型步骤如下：

1、首先我们打开一个工作样表作为例子；

2、单元格的格式类型解释起来就是zdexcel中对单元格中的字体，字体颜色和背景颜色等进行格式设置，来达到突出显示的效果，比如图例中以红色显眼标错版，蓝色突出对比等等都属于条件格式设置。

3、单元格的格式属于FormatConditions属性，format即格式。这里我们设置的是所选区域，也就是Selection对象，用鼠标框取的这一部分作为对象。

4、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub FormatConditions() 

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="10" 

Selection.FormatConditions(1).Font.ColorIndex = 3 

End Sub

输入以上代码后就用VBA设置完权成单元格格式类型了。