Office中国论坛/Access中国论坛

标题: [求助]999999999999oooooo [打印本页]

作者: sunyanzi88 时间: 2005-7-12 23:23
标题: [求助]999999999999oooooo
请问在excel里通过计算公式得出来的结果是小数，如果只取小数点的后两为那么第三位采用四舍五入的方法进位，请问怎么才能改成到6才进一位呢！！！请各位大虾指教谢谢！！！！！！真的很着急[em12][em12][em12][em12]

作者: zha_hg 时间: 2005-7-13 01:22
很简单啊!选中单元格,然后点工具栏中的格式,点单元格选项,在弹出的对话框中,点数字,然后选数值,在右边的小数位数中选6位,就OK了!

作者: 晓月清风 时间: 2005-7-13 18:44
Function rnd6(i, j As Double)

'i为引用单元格或数据，j为数值参数,如0.001

'六入：rnd6(12345.12656,0.01)返回12345.13

'如果第三位小数小于6则不进位

'如果是要让第四位小数进行六入法，则将参数j改为0.001，依此类推

Application.Volatile

a = Int(i / j * 10) Mod 10

b = (Int(i / j) Mod 10) Mod 2

If a <= 5 Then  '四舍

rnd6 = Int(i / j) * j

ElseIf a >= 6 Then '六入

rnd6 = Int(i / j + 1) * j

Else

If b = 0 Then

   rnd6 = Int(i / j) * j

Else

   rnd6 = Int(i / j + 1) * j

End If

End If

End Function

楼主，以后请勿重复发贴！谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)