Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2162|回复: 5

[已解决]请问如何录制一宏或写一个VBA执行将数值快速变为万位

[复制链接]
发表于 2013-7-27 23:32 | 显示全部楼层 |阅读模式
在工作中,经常要遇到数值是个位的要换算成万位,除了平时常用的用10000去除以外,还有没有其他更快捷的方法,比如用宏或VBA,这样就可以把宏或VBA设快捷按钮在菜单上,只要选择数值的单元格,点击这个菜单按钮,就立刻换算成万位了。
就是单元格原来数值是105000,点击按钮后就会变成10.50
希望高手指点,谢谢!
最佳答案
2013-7-27 23:43
  1. Sub test()
  2.     Dim x As Range
  3.     Dim y As Range
  4.     Dim z As Range

  5.     Set x = Selection
  6.     If TypeName(x) <> "Range" Then End
  7.     For Each y In x.Areas
  8.         For Each z In y
  9.             If IsNumeric(z) Then z = z / 10000
  10.         Next z
  11.     Next y
  12. End Sub
复制代码
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-7-27 23:40 | 显示全部楼层
菜单按钮……这个估计校长可以做出来{:3912:}
用change事件做到蛮简单的,都不用点,输入后回车自动改变,设置好区域就成。
回复

使用道具 举报

发表于 2013-7-27 23:43 | 显示全部楼层    本楼为最佳答案   
  1. Sub test()
  2.     Dim x As Range
  3.     Dim y As Range
  4.     Dim z As Range

  5.     Set x = Selection
  6.     If TypeName(x) <> "Range" Then End
  7.     For Each y In x.Areas
  8.         For Each z In y
  9.             If IsNumeric(z) Then z = z / 10000
  10.         Next z
  11.     Next y
  12. End Sub
复制代码
回复

使用道具 举报

发表于 2013-7-28 09:32 | 显示全部楼层
直接设置一下就行了吧

11.gif
回复

使用道具 举报

 楼主| 发表于 2013-7-28 16:24 | 显示全部楼层
爱疯 发表于 2013-7-27 23:43

这个我看行,谢谢斑竹啦~{:11:}我已经在菜单上设置好了按钮,非常方便。
回复

使用道具 举报

 楼主| 发表于 2013-7-28 16:34 | 显示全部楼层
无聊的疯子 发表于 2013-7-28 09:32
直接设置一下就行了吧

谢谢,非常细心,上传了这个操作动画。
如果是纯粹从输入数值开始直接转换那就用你这个方法了,如果是在原来的数值上直接转换,那用3楼斑竹的方法较好。我们平时经常从财务软件导数据出来,所以要用VBA或宏才快捷。
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 04:48 , Processed in 0.732976 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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