Excel精英培训网

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

[已解决]字符串返回数字

[复制链接]
发表于 2014-5-14 21:07 | 显示全部楼层 |阅读模式
本帖最后由 indexmatch 于 2014-5-15 08:06 编辑

如图,在第1行输入大写字母,在第2行返回字母在26个字母中的排序。
如字母A返回1,字母J返回10。
字符长度不固定,只知道在[1,8]范围内。
需求代码,谢谢各位!
QQ图片20140514210017.jpg
最佳答案
2014-5-14 21:32
  1. Private Sub CommandButton1_Click()
  2.     Dim st As String
  3.     st = TextBox1.Value
  4.         For i = 1 To Len(st)
  5.             s = s & ASC(Mid(st, i, 1)) - 64
  6.         Next
  7.     TextBox2.Value = s
  8. End Sub
复制代码
发表于 2014-5-14 21:15 | 显示全部楼层
权作参考…………
  1. Sub Macro1()
  2. zf = "ABCDFE"
  3. For i = 1 To Len(zf)
  4.     p = p & Asc(Mid(zf, i, 1)) - 64
  5. Next
  6. MsgBox p
  7. End Sub
复制代码
回复

使用道具 举报

发表于 2014-5-14 21:32 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub CommandButton1_Click()
  2.     Dim st As String
  3.     st = TextBox1.Value
  4.         For i = 1 To Len(st)
  5.             s = s & ASC(Mid(st, i, 1)) - 64
  6.         Next
  7.     TextBox2.Value = s
  8. End Sub
复制代码
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-6-16 02:13 , Processed in 0.141703 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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