曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速起初

EH搜索
EH技术汇-专业的职场本领充电站 妙哉!函数段子手风趣讲函数 足球办事器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造主旨竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码施行指南
察看: 180 | 回复: 7
打印 上一主题 下一主题

[求助] 如何能将数字4变为D?求大佬指点?

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
公告于 2020-9-14 20:31 | 只看该作者 回帖夸奖 | 倒序赏玩 | 阅读形式
通过循环得到列的最大标如12。
需要如何表述?求指点。谢谢

TA的精华主题

TA的得分主题

2
公告于 2020-9-14 20:37 | 只看该作者
split(cells(1,i).足球交流吧。address,"$")(1)

评分

参与人数 1 鲜花 +2 收起 理由
开开惢惢 + 2 感激赞成

察看整体评分

TA的精华主题

TA的得分主题

3
公告于 2020-9-14 20:44 | 只看该作者
Sub 数值转字母()
Dim i, col, zm
col = Cells(1, Columns.足球交流吧。Count).End(xlToLeft).Column
zm = Mid(Cells(1, col).Address,足球交流吧。 2, Len(Cells(1, col).Address) - 3)
Debug.Print zm
End Sub

TA的精华主题

TA的得分主题

4
公告于 2020-9-14 20:48 | 只看该作者
求出最大列号 col(如12), 用cells(1,col).虎扑足球论坛。address函数去除两端,col).address =$L$1, 然后用mid(cells(1。

TA的精华主题

TA的得分主题

5
公告于 2020-9-14 20:48 | 只看该作者
EXCEL小子 公告于 2020-9-14 20:37
split(cells(1,i).address,"$")(1)

牛牪犇
cui

TA的精华主题

TA的得分主题

6
公告于 2020-9-14 20:57 | 只看该作者

TA的精华主题

TA的得分主题

7
公告于 2020-9-14 22:33 | 只看该作者
本帖最后由 liuxi001 于 2020-9-14 22:40 编辑

  1. '列序号_字母转换
  2. Function abc2num(Number As Variant) As Variant
  3. Dim intI As Integer, dblNum As Double
  4. Dim strChar As String, intPos As Integer
  5. Const conStrList = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  6. If IsNumeric(Number) Then
  7. dblNum = Number
  8. Do Until dblNum = 0
  9. abc2num = abc2num & Mid(conStrList, IIf(((dblNum - 1) + 1) Mod 26 = 0, 26, ((dblNum - 1) + 1) Mod 26), 1)
  10. dblNum = (dblNum - 1) \ 26
  11. Loop
  12. abc2num = StrReverse(abc2num)
  13. Else
  14. For intI = Len(Number) To 1 Step -1
  15. strChar = Mid(Number, intI, 1)
  16. intPos = InStr(conStrList, UCase(strChar))
  17. abc2num = abc2num + intPos * 26 ^ (Len(Number) - intI)
  18. Next
  19. End If
  20. If abc2num = 0 Or abc2num = "" Then abc2num = "#VALUE"
  21. End Function
复制代码

TA的精华主题

TA的得分主题

8
公告于 2020-9-14 22:35 | 只看该作者
要是取值只是在A-Z之间
来个轻易凶残的步骤

i=12
CHR(i+64)
您需要登录后才没关系回帖 登录 | 收费注册

本版积分规则

关怀官方微信,高效办公专列,每天发车

手机版|关于我们|关联我们|曼城足球论坛

GMT+8, 2020-9-27 21:49, Processed in 0.0 second(s),足球交流论坛。 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属公告者私人意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表