Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: bifengxia

[练习]整数倒序输出

  [复制链接]
发表于 2008-9-28 12:36 | 显示全部楼层
回复

使用道具 举报

发表于 2008-9-28 12:59 | 显示全部楼层

<p>Function dx(s)<br/>dx = VBA.StrReverse(s)<br/>End Function</p><p>Function daoxu(dx)<br/>&nbsp;&nbsp;&nbsp; a = Len(dx)<br/>&nbsp;&nbsp;&nbsp; For i = a To 1 Step -1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; b = Mid(dx, i, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; daoxu = daoxu &amp; b<br/>&nbsp;&nbsp;&nbsp; Next i<br/>End Function</p><p>以上2个代码都可以。</p>
回复

使用道具 举报

发表于 2008-9-28 13:01 | 显示全部楼层
回复

使用道具 举报

发表于 2008-9-28 16:01 | 显示全部楼层

<p>学习一下</p>
回复

使用道具 举报

发表于 2008-9-28 16:02 | 显示全部楼层

[em01]
回复

使用道具 举报

发表于 2008-10-8 10:52 | 显示全部楼层

[em05][em05]
回复

使用道具 举报

发表于 2008-10-29 16:26 | 显示全部楼层

<p>学习</p>
回复

使用道具 举报

发表于 2008-11-23 17:45 | 显示全部楼层

学习
回复

使用道具 举报

发表于 2008-11-23 18:23 | 显示全部楼层

学习
回复

使用道具 举报

发表于 2008-11-24 22:42 | 显示全部楼层

kankana
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-9 17:26 , Processed in 0.285427 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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