首页 > Office专区 > Excel教程 >

Excel一键设置所选区域小数位数(四舍五入法)2

来源:互联网 2023-02-21 16:34:09 359

本教程通过VBA直接调用Excel中的round函数来实现该功能。M8R办公区 - 实用经验教程分享!

Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

工具/原料

  • Excel(教程用的是13版)

方法/步骤

  • 1

    本教程以下列表格中数据为例,将他们全保留两位小数。M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 2

    制作一个控制代码的按钮,教程以插入一个矩形形状为例。M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 3

    编辑且设置矩形形状格式。M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 4

    切换到VBA界面,具体操作如下。M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 5

    插入一个模块。M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 6

    复制粘贴以下代码到该模块:M8R办公区 - 实用经验教程分享!

    Sub SSWR()M8R办公区 - 实用经验教程分享!

    Dim k%M8R办公区 - 实用经验教程分享!

    Dim rng As RangeM8R办公区 - 实用经验教程分享!

    Set rng = SelectionM8R办公区 - 实用经验教程分享!

    k = InputBox("请输入需要保留小数的位数")M8R办公区 - 实用经验教程分享!

    For Each rng In SelectionM8R办公区 - 实用经验教程分享!

    rng = Application.WorksheetFunction.Round(rng, k)M8R办公区 - 实用经验教程分享!

    NextM8R办公区 - 实用经验教程分享!

    End SubM8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 7

    返回Excel界面为形状指定宏。M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 7该信息未经许可获取自百度经验
  • 8

    选中区域,点击形状,弹出输入窗口,输入数字2,点击确认即可。M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

    Excel一键设置所选区域小数位数(四舍五入法)2M8R办公区 - 实用经验教程分享!

  • 注意事项

    • 如果对您有点帮助,请帮忙支持一下,谢谢!

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!M8R办公区 - 实用经验教程分享!


    标签: excelVBA设置选区小数

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码