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

 

 

 

 

有关知识

选择性黏贴，+宏