[已解决]怎样用VBA把数字和字母互转 改正

liangwiebang

比如在数字转字母：A1输入260  B1等于IZ
           字母转数字:  A2输入IQ  B2等于 251
不好意思昨晚写错了

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-5-24 09:58

liangwiebang 发表于 2012-5-24 09:57
这个公式，只能计表格中以有的例数。如果表中没这么多的列就出错了（我的2003只有256列，数值大于256就出 ...

转换字母刚给你了，这个转换数字的

1. Function zhnum(zm As String) As Long
   
2.     Dim i As Integer, j As Integer
   
3.     zm = VBA.UCase(Trim(zm))
   
4.     j = Len(zm)
   
5.     Application.Volatile
   
6.     For i = j To 1 Step -1
   
7.         zhnum = (Asc(Mid(zm, i, 1)) - 64) * 26 ^ (j - i) + zhnum
   
8.     Next
   
9. End Function

复制代码

跳转到最佳答案楼层

lotte

1. =IF(ISNUMBER(A1),SUBSTITUTE(ADDRESS(1,A1,4),1,""),COLUMN(INDIRECT(A1&1)))

复制代码

liangwiebang

lotte 发表于 2012-5-24 09:47

这个公式，只能计表格中以有的例数。如果表中没这么多的列就出错了（我的2003只有256列，数值大于256就出错了）。能不能做VBA，超出这个极限呢。

hrpotter

liangwiebang 发表于 2012-5-24 09:57
这个公式，只能计表格中以有的例数。如果表中没这么多的列就出错了（我的2003只有256列，数值大于256就出 ...

转换字母刚给你了，这个转换数字的

1. Function zhnum(zm As String) As Long
   
2.     Dim i As Integer, j As Integer
   
3.     zm = VBA.UCase(Trim(zm))
   
4.     j = Len(zm)
   
5.     Application.Volatile
   
6.     For i = j To 1 Step -1
   
7.         zhnum = (Asc(Mid(zm, i, 1)) - 64) * 26 ^ (j - i) + zhnum
   
8.     Next
   
9. End Function

复制代码

liangwiebang

hrpotter 发表于 2012-5-24 09:58
转换字母刚给你了，这个转换数字的

好，这就是想要的效果。非常感谢。

02761752696

学习