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


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

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


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

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

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


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

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

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


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

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

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


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

是的

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


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

ascii码在狐表怎样使用？

 回到顶部
帅哥哟，离线，有人找我吗？
eway168
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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.04297 秒, 5 次数据查询