Excel 数值格式四舍五入出现不统一问题。

问题：

在excel中设置了数值格式，不保留小数点。在把数值导入其他系统时，使用oledb,但出现问题，

（455560.5）455561 455561（进位）

（473602.5）473602 473602（舍去）

在同样的格式中出现不统一的四舍五入。

原因分析：

1.本以为是oledb的原因，查找后不是

2.在手动输入数值是，不会造成这个问题，以为是excel版本问题。最后否定。

3.是选择性黏贴造成的。原理无法解释，有待研究

解决方案：

1，填写excel注意点（但不是解决办法的根本原因）

2.让列进行round计算，这样就要每个值进行一次round计算，造成不便

3.写宏。当修改数值时，出发change,对数值进行四舍五入。

代码如下：针对不保留小数点的。

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next '错误处理

Dim sum As Range

Dim k As Range

Dim b As Range

Set sum = Range("T:T") '列集

If Not Intersect(Target, sum) Is Nothing Then '由于是对整个表的，所以判断修改的单元是否是要处理的单元。

Set k = Intersect(Target, sum) '交差部分

For Each b In k '对修改单元进行循环处理，如果没有循环，则不能进行整表黏贴时的触发。

If IsNumeric(b) And b <> Fix(b) Then

If Int(b) Mod 2 = 0 And b - Int(b) = 0.5 Then

b.Value = Int(b) + 1

Else

b.Value = Round(b, 0)

End If

End If

Next

End If

End Sub

有关知识

选择性黏贴，+宏