Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数字转字母


  共有4321人关注过本帖树形打印复制链接

主题：[求助]数字转字母
帅哥哟，离线，有人找我吗？
eway168
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00 		[求助]数字转字母  发帖心情 Post By：2013/8/28 11:59:00 [只看该作者]

求一个函数，可以把数字转成字母，在修改EXCEL报表的代码中使用的。

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/8/28 12:00:00 [只看该作者]

至少你要告诉别人怎么个转换法.

 回到顶部
帅哥哟，离线，有人找我吗？
eway168
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00 		  发帖心情 Post By：2013/8/28 12:01:00 [只看该作者]

1转成A,27转成AA，之类

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/8/28 12:02:00 [只看该作者]

27怎么得出来的AA呢?

 回到顶部
帅哥哟，离线，有人找我吗？
eway168
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00 		  发帖心情 Post By：2013/8/28 12:05:00 [只看该作者]

26个字母，这个字母呢，就是EXCEL的单元格地址：A1，AA20之类的表达方式

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/8/28 12:06:00 [只看该作者]

那28呢? AB? 29呢? AC?  55呢? BA?

 回到顶部
帅哥哟，离线，有人找我吗？
eway168
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00 		  发帖心情 Post By：2013/8/28 12:10:00 [只看该作者]

是的

 回到顶部
帅哥哟，离线，有人找我吗？
eway168
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00 		  发帖心情 Post By：2013/8/28 12:18:00 [只看该作者]

ascii码在狐表怎样使用？

 回到顶部
帅哥哟，离线，有人找我吗？
eway168
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00 		  发帖心情 Post By：2013/8/28 12:33:00 [只看该作者]

Dim sz As Integer=29   ’暂时控制在52以内
Dim zm As String
If sz>52
  Return Nothing
End If
If sz<27
  zm=chr(64+sz)
Else
  zm=chr(65) & chr(64+sz-26)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
eway168
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00 		  发帖心情 Post By：2013/8/28 12:40:00 [只看该作者]

函数：
Dim sz As Integer=args(0)
Dim zm As String
If sz>52
  Return Nothing
End If
If sz<27
  zm=chr(64+sz)
Else
  zm=chr(65) & chr(64+sz-26)
End If
Return zm

调用：
Dim sz123 As Integer=29
Dim zm123 As String
zm=Functions.Execute("sz2zm",sz123)
output.show(zm123)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询