设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2623|回复: 5
打印 上一主题 下一主题

[基础应用] 请教

[复制链接]
跳转到指定楼层
1#
发表于 2005-7-3 18:30:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式


<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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-7-3 18:58:00 | 只看该作者
Sub 千位()

For Each xcell In Selection

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

Next xcell

End Sub选择要转换的单元格,如A1:A10,然后执行相应的宏即可实现直接在A1:A10将数据转换
3#
 楼主| 发表于 2005-7-3 19:56:00 | 只看该作者
呵呵,我是一个新手,对宏不懂啊,请你帮帮忙!谢谢了



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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
发表于 2005-7-3 21:08:00 | 只看该作者
按ALT+F11打开VBE窗口,右键点击VBProject(Book1)插入一个模块,将代码复制粘贴进去,保存,要使用宏只须按ALT+F8,然后选择要运行的宏即可。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
5#
发表于 2005-7-3 22:15:00 | 只看该作者
是指A列的所有数自动除以10000吧(万元)。这个不需要VBA的,用选择性粘贴即可:

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

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

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

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





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

6#
 楼主| 发表于 2005-7-6 06:13:00 | 只看该作者
呵呵,谢谢俩位楼主了,哦可能是除以1000,或1000!Sub 千位()

For Each xcell In Selection

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

Next xcell

End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-2 19:27 , Processed in 0.076277 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表