自定义进制转换函数中十六进制A-F字符输入问题求助

我帮你找到了问题的核心所在，咱们一步步拆解解决：

问题根源 #

你的代码里 c = Str(ipt) 这一行是触发异常的关键！Str() 函数在VBA里的作用是把数值转换成字符串，当你传入"A"这类字母字符串时，它会直接抛出「类型不匹配」错误——因为它根本没法把字母转成数值，这就是输入A-F时出问题的原因。

修改后的完整函数 #

Function prevdeset(base As Integer, ipt As String) As String
    Dim x As Integer
    Dim u As Long ' 改用Long类型避免溢出，Integer的范围太小（仅-32768~32767）
    Dim p As Integer
    Dim i As Integer ' 补全循环变量的声明，避免隐式变量问题
    Dim currentChar As String
    
    x = Len(ipt)
    u = 0
    
    For i = x To 1 Step -1
        currentChar = UCase(Mid(ipt, i, 1)) ' 统一转大写，兼容用户输入小写a-f的情况
        
        ' 用Select Case替代一连串ElseIf，代码更整洁易读
        Select Case currentChar
            Case "A": p = 10
            Case "B": p = 11
            Case "C": p = 12
            Case "D": p = 13
            Case "E": p = 14
            Case "F": p = 15
            Case Else: p = Val(currentChar)
        End Select
        
        ' 新增合法性检查：避免输入的字符值大于等于进制数（比如5进制里输入A=10）
        If p >= base Then
            prevdeset = "非法输入：字符值不能大于等于当前进制数"
            Exit Function
        End If
        
        p = p * (base ^ (x - i))
        u = u + p
    Next i
    
    prevdeset = CStr(u)
End Function

关键优化说明 #

• 彻底移除了错误的 Str(ipt) 转换，直接使用传入的字符串参数，从根源解决类型不匹配问题
• 新增大写转换逻辑，兼容用户输入小写a-f的场景
• 把累加变量u改为Long类型，避免大数值转换时的溢出错误
• 加入输入合法性校验，防止出现进制逻辑错误（比如5进制里出现大于等于5的字符）
• 补全所有变量声明，建议你在VBA编辑器里开启「要求变量声明」（工具→选项→编辑器），避免隐式变量导致的奇怪问题

现在测试一下：调用 prevdeset(16, "A") 会返回"10"，prevdeset(12, "B") 返回"11"，完全符合预期。

内容的提问来源于stack exchange，提问作者Ferazhu