Office中国论坛/Access中国论坛

标题: 请教 [打印本页]

作者: 西岭雪 时间: 2005-7-3 18:30
标题: 请教

<COLGROUP>

<COL style="WIDTH: 161pt; mso-width-source: userset; mso-width-alt: 6880" width=215>

<COL style="WIDTH: 97pt; mso-width-source: userset; mso-width-alt: 4128" width=129>

<COL style="WIDTH: 122pt; mso-width-source: userset; mso-width-alt: 5184" width=162>

<COL style="WIDTH: 83pt; mso-width-source: userset; mso-width-alt: 3520" width=110>

5,474,563.23

想把A列的数据的单位从元直接变成万元或千元，有什么其它的好办法

547

就向这个，旦这个是除了10000，要直接在A列

23,178,789.35

2,318

78,945,678.23

7,895

56,456,678.78

5,646

4,561.12

0

1,245,678.98

125

41,223.54

4

78,945.12

8

作者: 晓月清风 时间: 2005-7-3 18:58
Sub 千位()

For Each xcell In Selection

xcell.Value = xcell.Value * 1000 '如果是万元的话，则乘10000

Next xcell

End Sub选择要转换的单元格，如A1：A10，然后执行相应的宏即可实现直接在A1：A10将数据转换

作者: 西岭雪 时间: 2005-7-3 19:56
呵呵，我是一个新手，对宏不懂啊，请你帮帮忙！谢谢了[attach]11653[/attach]

[此贴子已经被作者于2005-7-3 11:57:39编辑过]

作者: 晓月清风 时间: 2005-7-3 21:08
按ALT+F11打开VBE窗口，右键点击VBProject(Book1)插入一个模块，将代码复制粘贴进去，保存，要使用宏只须按ALT+F8，然后选择要运行的宏即可。

[attach]11654[/attach]

作者: 红池坝 时间: 2005-7-3 22:15
是指A列的所有数自动除以10000吧（万元）。这个不需要VBA的，用选择性粘贴即可：

1、在一个空白的单元格里输入10000（如果是千元就输入1000），复制该单元格

2、选中要改变数值的单元格，比如A1:A20

3、执行“选择性粘贴”，在运算里选择“除”，按“确定”后A1到A20的数值自动被除以10000

个人感觉把单位从“元”变成“万元”应该用除法吧，怎么清风兄用了乘法呢？

[此贴子已经被作者于2005-7-3 14:17:21编辑过]

作者: 西岭雪 时间: 2005-7-6 06:13
呵呵，谢谢俩位楼主了，哦可能是除以1000，或1000！Sub 千位()

For Each xcell In Selection

xcell.Value = xcell.Value /1000 '如果是万元的话，则除10000

Next xcell

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)