布尔值/分支语句的正确用法？VBA函数写法优化咨询

嘿，我来帮你拆解下这个函数的问题，再给你几个实用的优化方向！

原函数的核心问题 #

首先最关键的是Select Case的语法完全用错了——你现在的写法逻辑根本不会按预期执行：
原代码里Select Case cleanCode是把整个字符串作为判断对象，但后面的Case Right(cleanCode , 1) = "#"是写了一个布尔条件，这完全不符合Select Case的规则（Case应该是匹配Select Case后表达式的具体值，而不是条件判断）。所以不管输入字符串末尾是什么，代码都会直接跳到Case Else分支，这就导致你的函数根本没法正确判断后缀类型！

除此之外还有几个小问题：

• 没有处理空字符串或长度小于1的输入，会触发Right函数的运行时错误
• 函数名虽然能懂，但可以更语义化（比如IsNumberSuffix，一眼就知道返回True代表末尾是#）
• 赋值语句可以更简洁，不用重复写函数名多次

优化后的版本 #

版本1：修正语法+基础健壮性

Private Function IsNumberSuffix(ByVal cleanCode As String) As Boolean
    ' 先检查输入是否有效
    If Len(cleanCode) = 0 Then
        Debug.Print "Error: Empty string provided, defaulting to #"
        IsNumberSuffix = True
        Exit Function
    End If
    
    Dim suffix As String
    suffix = Right(cleanCode, 1)
    
    Select Case suffix
        Case "#"
            IsNumberSuffix = True
        Case "%"
            IsNumberSuffix = False
        Case Else
            Debug.Print "Error: " & cleanCode & " is not formatted properly with a # or % at the end, defaulting to #"
            IsNumberSuffix = True
    End Select
End Function

版本2：更简洁的短分支写法

如果只是判断两种后缀，用紧凑的Select Case写法会更清爽：

Private Function IsNumberSuffix(ByVal cleanCode As String) As Boolean
    If Len(cleanCode) = 0 Then
        Debug.Print "Error: Empty string provided, defaulting to #"
        IsNumberSuffix = True
        Exit Function
    End If
    
    Select Case Right(cleanCode, 1)
        Case "#": IsNumberSuffix = True
        Case "%": IsNumberSuffix = False
        Case Else
            Debug.Print "Error: " & cleanCode & " is not formatted properly with a # or % at the end, defaulting to #"
            IsNumberSuffix = True
    End Select
End Function

优化点说明 #

1. 修正语法逻辑：把要判断的后缀字符放在Select Case后面，Case直接匹配具体的字符值，确保逻辑正确执行
2. 增加输入校验：先检查字符串长度，避免空字符串导致的运行时错误
3. 语义化命名：函数名改为IsNumberSuffix，让其他开发者一眼就能理解函数的作用（返回True代表后缀是#，即数字类型）
4. 简化代码结构：把后缀提取到变量里（版本1），或者直接在Select Case里使用Right（版本2），提升可读性
5. 统一错误处理：把错误提示和默认值逻辑集中在对应的分支，避免代码冗余

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