作者：乔山办公网日期：
返回目录：excel表格制作
1、首先打开excel表格，在单元格中输入一组小数数值，选中该单元格。
2、然百后点击鼠标右键，在弹出的选项中点击“设置单元格格式”度。
3、在弹出的“设置单元格格式”对话框中，选择“数值”并回将小数位数更改为“0”。
4、点击确定按答钮，即可发现选中的单元格中小数位数消失了，显示的只是整数位数字。
楼主要实现的功能，可以采用VBA程序进行实现，简单的几行代码就可以搞定百。（单元格的格式为“常规”）
（一）VBA程序代码如下：度
Sub ColorIn()
Dim i, j, k
On Error Resume Next '忽略运行过程中可能出现的错误版
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
For i = 2 To 100 '从第2行到100行
If mysheet1.Cells(i, 3) <> "" Then '如果单元格不是空白，则
mysheet1.Cells(i, 3) = Round(mysheet1.Cells(i, 3), 2) '四舍五入，保留两位小数
If mysheet1.Cells(i, 3) < 0 Then '如果单元格的数值小于0
mysheet1.Cells(i, 3).Interior.Color = RGB(255, 0, 0) '填充红色
End If
End If
Next
End Sub
（二）实权现的结果如下：