数字的球形填充

yhy95331 · 发表于 2024-5-29 19:24

Function 转数(rng As String)
If CInt(AscW(rng)) = CInt(9471) Then
转数 = CInt(AscW(rng)) - CInt(9471)
Else
转数 = CInt(AscW(rng)) - CInt(10101) - 20
End If
End Function

yhy95331 · 发表于 2024-5-29 19:27

Function 转球(s)
Dim str

If IsNumeric(s) Then str = ChrW(IIf(s = "0", 9471, 10101 + s))

Next
转球 = str
End Function

yhy95331 · 发表于 2024-5-29 19:29

把两位大师代码结合了一下，用于单个转换，谢谢！！

yhy95331 · 发表于 2024-5-30 08:41

Function 转球(s As Integer )
转球 = ChrW(IIf(s = "0", 9471, 10101 + s))
End Function

yhy95331 · 发表于 2024-5-30 13:21

Function 球转数(rng As String)
球转数 = IIf(Val(AscW(rng)) - 9471 = 0, "0", Val(AscW(rng)) - 10101)
End Function

		自动登录	找回密码
密码			免费注册

[求助] 数字的球形填充