EXCEL 36进制转10进制函数

15868921447

在网上找个一段vba代码
         
Function s(a As Double)
Dim v As String, j, m As Integer
v = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
j = 0
Do
If Int(a / 36 ^ j) = 0 Then Exit Do
m = Int(a / 36 ^ j - (36 * Fix(a / 36 ^ j / 36)))
s = Mid(v, m + 1, 1) & s
j = j + 1
Loop
End Function

10进制转为36进制，觉得很好用。

但是找了很久，没找到36进制转10进制，请问怎么VBA函数应该怎么写。

我是小黑屋

1. Function s(a As String) As Double
   
2.     Dim v As String, j, m As Integer
   
3.     v = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
4.     s = 0
   
5.     For j = Len(a) To 1 Step -1
   
6.         m = InStr(1, v, Mid(a, j, 1)) - 1
   
7.         s = s + m * 36 ^ (Len(a) - j)
   
8.     Next j
   
9. End Function
   

复制代码

15868921447

我是小黑屋 发表于 2023-4-11 16:15

好像不行，我排查不出来问题。

高个子

高个子

求助.zip (25.61 KB, 下载次数: 2)

2023-4-11 16:24 上传

点击文件名下载附件

15868921447

我是小黑屋 发表于 2023-4-11 16:15

可以的，谢谢你。我复制改了名字，没改里面的内容。