查看: 614|回复: 7
如何快速的将不连续数值区域四舍五入保留三位小数，求教？
阅读权限30
在线时间 小时
各位大师好！我想把A2：H，J2：S,T2：AS三个区域有数值单元格，将原数值四舍五入保留3位小数（不是有多位小数只显示3位）覆盖原单元格数据，用VBA 有什么样方法速度回比较快，试用application.round ，因数据量达到8万多行，速度就特别慢了。
(68.98 KB, 下载次数: 1)
09:10 上传
09:10 上传
点击文件名下载附件
1.15 MB, 下载次数: 16
阅读权限100
在线时间 小时
同时选择这些列，用数据格式化设置即可。
阅读权限30
在线时间 小时
& & & & & & & &
同时选择这些列，用数据格式化设置即可。
多谢蓝桥版主！我是想在VB运行完程序后，自动可以将核算的数据四舍五入保留几位小数。
阅读权限30
在线时间 小时
同时选择这些列，用数据格式化设置即可。
能否麻烦蓝版写几句代码，如何区域数据格式化，达到实际保留三位数字四舍五入的结果？ 看了您的提示，百度没有实现结果，谢谢
阅读权限95
在线时间 小时
Range(&A:H,J:S,T:AS&).NumberFormatLocal = &0.000_ && && & 蓝版的方法，录制的宏代码。
阅读权限30
在线时间 小时
Range(&A:H,J:S,T:AS&).NumberFormatLocal = &0.000_ && && & 蓝版的方法，录制的宏代码。
和题意不符，和round的结果不一致，题主括号注明不是这种方式了
阅读权限95
在线时间 小时
够用就行，何必非要显示的位数和实际位数一致，有必要吗？
真要如此，把已用区域装入数组，用 Round 函数处理完后再贴回原处也就是了。
阅读权限30
在线时间 小时
如果你就I和T列不需要去掉小数点后三位的数，则见代码：
Sub test()
& & Dim r&, iArr, tArr
& &
& & r = ActiveSheet.UsedRange.Rows.Count
& & iArr = Range(&I1:I& & r).Value
& & tArr = Range(&T1:T& & r).Value
& &
& & ActiveWorkbook.PrecisionAsDisplayed = True
& & Range(&A:H,J:S,T:AS&).NumberFormatLocal = &0.000_ &
& & ActiveWorkbook.PrecisionAsDisplayed = False
& &
& & Range(&I1:I& & r) = iArr
& & Range(&T1:T& & r) = tArr
End Sub
复制代码
代码的思路是，先用数组把不需要处理的列数据保存下来，然后打开“将精度设为所显示精度”的开关（选项的高级里有），将需处理的列设置小数位，然后关闭“将精度设为所显示精度”的开关，最后将开始数组保存下来的数据重新填入到列。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师当前位置：
＞＞＞一个两位小数，四舍五入后保留整数是3，这个两位小数最小是_____..
一个两位小数，四舍五入后保留整数是3，这个两位小数最小是______，最大是______．
题型：填空题难度：中档来源：不详
“四舍”得到的3最大是3.49，“五入”得到的3最小是2.50，故答案为：2.50，3.49．
马上分享给同学
据魔方格专家权威分析，试题“一个两位小数，四舍五入后保留整数是3，这个两位小数最小是_____..”主要考查你对&&求小数的近似值&&等考点的理解。关于这些考点的“档案”如下：
现在没空？点击收藏，以后再看。
因为篇幅有限，只列出部分考点，详细请访问。
求小数的近似值
求近似数：是根据需要用“四舍五入法”保留一定的小数位数。方法点拨：求近似数时：保留整数，表示精确到个位；保留一位小数，表示精确到十分位；保留两位小数，表示精确到百分位……如：豆豆身高0.984米 求：1、保留两位小数：如果保留两位小数，就要第三位数省略。&2、保留一位小数：&如果保留一位小数，就要把第二、三位小数省略。在表示近似数时，小数末尾的0不能去掉。 3、保留整数部分：&≈1省略个位后面的尾数
发现相似题
与“一个两位小数，四舍五入后保留整数是3，这个两位小数最小是_____..”考查相似的试题有：
26781977011100836110943433746555553四舍五入小数点，打三个数字_百度知道
四舍五入小数点，打三个数字
我有更好的答案
可以使用ROUNDUP()函数具体:若数据在A1中，则在B1中输入=ROUNDUP(A1,0)
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。编写程序。输入一个double类型的数，使该数保留小数点后两位，对第三位小数进行四舍五入，然后输出？ - 知乎有问题，上知乎。知乎作为中文互联网最大的知识分享平台，以「知识连接一切」为愿景，致力于构建一个人人都可以便捷接入的知识分享网络，让人们便捷地与世界分享知识、经验和见解，发现更大的世界。1被浏览147分享邀请回答暂时还没有回答，开始写第一个回答不积跬步无以至千里，不积小流无以成江海！
JS保留两位、三位小数(带四舍五入)
js保留2位小数toFixed(xxxx)
alert(a.toFixed(2));
alert(Number.toFixed(9.39393));
返回的是9.39
对于一些小数点后有多位的浮点数，我们可能只需要保留2位，但js没有提供这样直接的函数，所以我们得自己写函数实现这个功能，代码如下：
function changeTwoDecimal(x)
var f_x = parseFloat(x);
if (isNaN(f_x))
alert('function:changeTwoDecimal-&parameter error');
f_x = Math.round(f_x *100)/100;
return f_x;
功能：将浮点数四舍五入，取小数点后2位
用法：changeTwoDecimal(3.1415926) 返回 3.14
changeTwoDecimal(3.1475926) 返回 3.15
js保留2位小数（强制）
对于小数点位数大于2位的，用上面的函数没问题，但是如果小于2位的，比如：
changeTwoDecimal(3.1)，将返回 3.1，如果你一定需要3.10这样的格式，那么需要下面的这个函数：
function changeTwoDecimal_f(x)
var f_x = parseFloat(x);
if (isNaN(f_x))
alert('function:changeTwoDecimal-&parameter error');
f_x = Math.round(f_x*100)/100;
var s_x = f_x.toString();
var pos_decimal = s_x.indexOf('.');
if (pos_decimal & 0)
pos_decimal = s_x.
s_x += '.';
while (s_x.length &= pos_decimal + 2)
s_x += '0';
return s_x;
功能：将浮点数四舍五入，取小数点后2位，如果不足2位则补0,这个函数返回的是字符串的格式
用法：changeTwoDecimal(3.1415926) 返回 3.14
changeTwoDecimal(3.1) 返回 3.10
parseFloat 方法
返回由字符串转换得到的浮点数。
parseFloat(numString)
必选项 numString 参数是包含浮点数的字符串。
parseFloat 方法返回与 numString 中保存的数相等的数字表示。如果 numString 的前缀不能解释为浮点数，则返回 NaN （而不是数字）。
parseFloat("abc")
// 返回 NaN。
parseFloat("1.2abc")
// 返回 1.2。
可以用 isNaN 方法检测 NaN。
&%@ Page Language="C#" AutoEventWireup="true"
CodeFile="Default.aspx.cs" Inherits="_Default" %&
&!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""&
&html xmlns="" &&head runat="server"&
&title&无标题页&/title&
function changetText() {
document.getElementById("txtB").value = document.getElementById("txtA").
&/head&&body&
&form id="form1" runat="server"&
&asp:TextBox ID="txtA" runat="server" onblur="changetText()"&&/asp:TextBox&
&asp:TextBox ID="txtB" runat="server"&&/asp:TextBox&
&/form&&/body&&/html&
&%@ Page Language="C#" AutoEventWireup="true"
CodeFile="Default.aspx.cs" Inherits="_Default" %&
&!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""&
&html xmlns="" &&head runat="server"&
&title&无标题页&/title&
　　　　//把数值保存3位有效值function changeThreeDecimal_f(varObj){
var x = varObj.
var f_x = parseFloat(x);
if (isNaN(f_x))
f_x = Math.round(f_x*;
var s_x = f_x.toString();
var pos_decimal = s_x.indexOf('.');
if (pos_decimal & 0)
pos_decimal = s_x.
s_x += '.';
while (s_x.length &= pos_decimal + 3)
s_x += '0';
varObj.value = s_x;}
&/head&&body&
&form id="form1" runat="server"&
&asp:TextBox ID="txtA" runat="server" onblur="changeThreeDecimal_f(this)"&&/asp:TextBox&
&asp:TextBox ID="txtB" runat="server"&&/asp:TextBox&
&/form&&/body&&/html&
没有更多推荐了，
加入CSDN，享受更精准的内容推荐，与500万程序员共同成长！