使用VBA设置数字格式

在Excel工作表中，使用自定义格式可以轻松实现指定宽度（数字个数）格式，例如设置单元格格式为“000”，输入数字6，则单元格显示内容为006，如下图所示。

在VBA中如何实现类似的数据格式转换呢？

有的小伙伴可能说这个很简单，可以使用Range对象的Text数据，例如Cells(1,1).Text可以得到显示内容为006。

这个方法是可行的，其实还有更简单的方法。

接下来创建一个自定义函数实现格式转换，函数提供了两个参数

参数number：待转换的数字
参数digits：指定宽度

Function FormNum1(number, digits)FormNum = Right(Application.Rept("0", digits) & number, digits)
End Function

代码解析：
Application.Rept("0", digits)调用工作表函数Rept，生成指定个数的0组成的字符串，以下简称为填充字符串。
试用&连接符将填充字符串和数字合并，然后使用Right函数提取字符串从右侧开始的指定位数。

调用自定义函数也非常简单

Sub demo()Debug.Print FormNum(6, 3)
End Sub

直接使用VBA的Format函数实现，更简单。

Function FormNum1(number, digits)FormNum = Format(number, Application.Rept("0", digits))
End Function

代码解析：
同样调用工作表函数Rept，生成指定个数的0组成的字符串，只是此处作为格式字符，相当于Excel中的自定义格式。

使用VBA设置数字格式相关推荐

python字典的键设置条件格式_openpyxl条件格式设置数字格式
我试图以条件格式设置数字格式.我已经找到了如何设置字体,边框和填充颜色,但我无法设置数字格式.我公司目前拥有的代码是:openpyxl条件格式设置数字格式 from openpyxl import l ...
Excel设置数字格式
在Excel2016中,用数字表示的内容很多,例如,小数.货币.百分比和时间等.在单元格中改变数值的小数位数.为数值添加货币符号的具体操作步骤如下. 选择单元格区域B4:E16. 单击[开始]选项卡下 ...
VBA设置word格式（页面，段落，表格，图片）
Sub glkCurrentDocPageSetup() Dim glkDoc As Document '定义变量 Set glkDoc = Application.ActiveDocument ' ...
使用win32com模块对excel表内整列设置数字格式
import win32com.clientxlapp = win32com.client.Dispatch("Excel.Application") xlapp.Visible ...
表格数字乘以百分比怎么算_EXCEL记住这两个快捷键，1秒种设好数字格式
你还在用右键设置单元格格式来设置千分位吗? 你还在用右键设置单元格格式来设置百分比吗? 今天小马教大家两个快捷键,记住这两个快捷键,1秒钟设好数字格式. 设置数字的千分位 Ctrl+Shift+1 可 ...
phpexcel 数字格式_将文本转换为phpexcel中的数字格式
我使用PHPExcel制作了这张表我用数组填充它. 它具有百分比形式的值,默认情况下将其视为文本形式. 如何将我的所有列转换为数字形式,以便我可以在其上应用一些数学公式. $excel_out_Qu ...
用Tableau自定义数字格式创建高端表格
作者:Janie 公众号<溜溜笔记说>,纯干货分享 Tableau制作表格,注意事项: 1.整体配色不要太花哨. 2.数字字体与汉字字体可以设置成不同的字体. 3.数字正负需要显得直观些 ...
python数据分析办公自动化实战(六)：excel条件格式、单元格格式、数字格式
#简介# 本篇是使用openpyxl库的一点经验总结,涉及到以下功能:操作excel.设置边框背景颜色居中等格式.设置数字格式(小数百分数).百分比条件格式.插入行列等,依然是代码+注释+总结. 任务 ...
Word控件Spire.Doc 【脚注】教程(5)：单词脚注的位置与数字格式
Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库.在于帮助开发人员无需安装 Microsoft Word情况下,轻松快捷高效地创建.编辑.转换和打印 Micr ...

使用VBA设置数字格式

使用VBA设置数字格式相关推荐

最新文章

热门文章