用VBA程序如何实现设置单元格为百分比格式

ShinnyZhang 2005-04-26 09:43:59

用VBA程序如何实现设置单元格格式为百分比格式，且小数位置保留两位？

...全文

3083 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

meigo 2005-04-26

打赏
举报

回复

大兄弟，录制一个执行这个操作的宏，然后吸取精华，把关键部分吸收过来用不就成了？
呵呵
这个是比较懒惰的方法，呵呵
偶经常用！

大雄 2005-04-26

打赏
举报

回复

如果是A1单元格
Range("A1").NumberFormatLocal = "0.00%"

作者：iamlaosong 将一个系统的数据导出再导入到另一个系统，虽然都是Excel文件，但格式略有不同，所以需要进行转换。功能不复杂，直接引用都可以，但是还是比较麻烦，不如写个工具，进行转换。这样导入文件干干净净，比较好。唯一要注意的是信息中有身份证号码，在赋值到单元格中时，变成了科学格式或者后面几位都变成0，所以赋值前需要将单元格格式设成文本型（直接将导入模板文件中身份证列设成文本也可以），即： Cells(row1, 2).NumberFormat = "@" '号码单元...

算的是红框占绿框的百分比 难点在保留原数据的情况下，把百分比加在后面。通过公式我是不会，但程序实验也不难。搞定！代码 Attribute VB_Name = "模块1" Sub cal1() Dim range1 As Range Set range1 = Application.InputBox("选择区域", Type...

示例---将所有单元格设置为文本格式： _Application app; //Excel应用程序接口 Workbooks books; //工作薄集合 _Workbook book; //工作薄 Worksheets sheets; //工作表集合 _Worksheet sheet; //工作表 Range range; //Excel中针对单元格的操

一、生成表格 Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range Set mRange = ActiveDocument.Range mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Ra

Office开发/ VBA

5,174

社区成员

17,906

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章