利用VBA进行格式化设置

《VBA经典应用69例》，是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用6：利用VBA进行格式化设置

应用6 工作表中数值的格式化（NumberFormat）处理

这个专题的应用也是来源于给学员的答疑，格式（Format）是我们在处理工作表数据时必须要面对的问题，处理的好可以让整个工作表看起来赏心悦目，处理的不好，会给人以凌乱的感觉。我们这讲的内容将总结一下在工作表中如何格式化数据，处理方案仍是结合我们日常工作中的EXCEL操作来进行。

NumberFormat是Excel Range对象的属性。Range对象可以被视为一个单元格或一组单元格，可以是单个单元格、或者是一列或是工作表的UsedRange。NumberFormat属性可用于设置时间、日期、货币/会计格式和许多其他格式的格式。通过这种格式的设置，可以让信息以最佳方式传递给阅读者。例如，我们可以在长数字中加入一些逗号，可以在把小数点长的数字向上（或向下）舍入到最接近的2或3个小数点等等。此外，NumberFormat还可以用来设置一个自定义格式。

4 利用VBA进行格式化的设置

在这节中，我们讲解利用VBA进行格式化设置，我仍是通过实例应用给大家讲解。

实例一：VBA基本的单元格格式设置

在这个实例中我们利用VBA完成单元格的数字格式属性设置。在此示例中，我们希望将单元格C2的十进制小数点位数设置为2，单元格C3添加逗号，使其更具可读性。C1和C2单元格的值都等于响应A列单元格的值。原始数据如下截图：

为了完成上面的格式要求，代码如下：

Sub mynzA()

[代码见教程]

End Sub

代码截图：

代码的讲解：（略）

代码的运行结果：

实例二：单元格格式设置的处理

这个实例中，我们仍然对C列的单元格进行设置，值的来源仍是A列的数据。C4中添加逗号，以便于读取。C5单元格，我们希望删除右边的六位数字，并改为'M'，我们不希望有任何小数点。

我们先看一下原始数据：

代码如下：

Sub mynzB()

【代码见教程】

End Sub

代码截图：

代码的讲解：'#,##0,, ''M'''，如果此设置中两个相连的逗号与两个相连的引号间不加空格， 那么在最后显示的运行结果中“1”和“M”间同样也将不存在空格。

代码的运行结果：

实例三：条件格式设置

待续

本讲内容参考程序文件：应用006.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：