高校问答伞修abo文包:Excel中数据的问题！十万火急
来源：百度文库 编辑：高校问答 时间：2024/04/28 00:24:19
在Excel中录入工资数据时，
8.01
8.09
要求：
小数0.05以上的进1元 即8.09记9元
小数0.05以下的进5毛 即8.01记8.5元
请问如何进行操作那？数据很多不能一一改啊，如何直接统一进位变化？
万分的感谢！实习中遇到的问题，要马上解决，所以求助网络上的能人！
8.01
8.09
要求：
小数0.05以上的进1元 即8.09记9元
小数0.05以下的进5毛 即8.01记8.5元
请问如何进行操作那？数据很多不能一一改啊，如何直接统一进位变化？
万分的感谢！实习中遇到的问题，要马上解决，所以求助网络上的能人！
教你，比如A1是8.05，在B1里输入以下函数
=IF(A1-INT(A1)>=0.05,INT(A1)+1,INT(A1)+0.5)
则B1自动变为9。
你可以在A列输入原始值，B列套用公式就行了，自己灵活运用吧。
不明白加 4058337
楼上Ψ星泪的对，
就是利用这种简单的逻辑公式：
IF(A1-INT(A1)>=0.05是用来确认判断差值是在0.05以上还是0.05以下的，然后根据判断，运行INT(A1)+1,INT(A1)+0.5)
INT(A1)指的是取数字的整数部分，A1指原数字
谢谢supperST给我回了信息，让我也学了一招！
加我qq38967098
把文件发过来，
我和你慢慢说。
这一句半句说不清楚。
我和他：Ψ星泪 的办法是一样的。
=IF(A1-INT(A1)>=0.05,INT(A1)+1,INT(A1)+0.5)
按以下步骤可以实现
1.视图／工具／控件工具箱，选左边第二个（查看代码）
2.进到VB窗口后选（左边）Worksheet,右边选BeforeDoubleClick
3.在第一个程序模块内输入三条语句
If Application.Selection - Int(Application.Selection) > 0.05 Then
Application.Selection = Int(Application.Selection) + 1
End If
4.关闭VB窗口，双击相应单元格，如果该单元格为8.05则自动变成9,如果是8.04则不变
Ψ星泪 的公式用得好
其实这种类似A1-int(A1)取小数的方法在帮助里已经有示范的
短一点：
=INT(A1)+IF(MOD(A1,1)<0.05,0.5,1)