×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载随时随地聆听大师开讲/课堂酷素材!视频教程打包下手绘教程
咔咔摄影抠图教程路径专辑photoshop cs3视频教程 
查看: 2475|回复: 12

求助:数字转换的问题,请高手指点

[复制链接]

该用户从未签到

发表于 2007-8-23 22:26:37 | 显示全部楼层 |阅读模式
要在A列中输入数字(阿拉伯数字)例如:“34”,回车让它后显示“三四”。如果在单元格式设置中设置-特殊-中文小写数字,它显示的是“三十四”。现在是不想要数字中间的“十”。
请问如何设置。
高手们,请指教啊。谢谢!

该用户从未签到

发表于 2007-8-23 22:55:10 | 显示全部楼层
编一个宏
Sub replace()
    Application.ScreenUpdating = False
    With Range(Range("a1"), Range("a65536").End(xlUp))
    .replace What:="1", Replacement:="一"
    .replace What:="2", Replacement:="二"
    .replace What:="3", Replacement:="三"
    .replace What:="4", Replacement:="四"
    .replace What:="5", Replacement:="五"
    .replace What:="6", Replacement:="六"
    .replace What:="7", Replacement:="七"
    .replace What:="8", Replacement:="八"
    .replace What:="9", Replacement:="九"
    .replace What:="0", Replacement:="十"
    End With
    Range("a1").Select
    Application.ScreenUpdating = True
End Sub
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2007-8-23 23:10:22 | 显示全部楼层
非常感谢版主的指导。谢谢
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 19:19:45 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 18:40:52 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 18:58:28 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 19:19:21 | 显示全部楼层
LZ真是人才
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 18:35:48 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 20:50:29 | 显示全部楼层
楼主是超人
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:06:51 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:13:56 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:31:09 | 显示全部楼层
LZ真是人才
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:37:33 | 显示全部楼层
好帖子要收藏
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [免费注册]

本版积分规则