VBA技术问题：如何根据输入后缀C/F实现摄氏度与华氏度互转

原代码存在的问题 #

• 丢失单位标识：使用Val()函数处理输入会直接丢弃末尾的字母（C/F），导致后续无法判断输入的温度单位。
• 转换公式错误：摄氏度转华氏度的公式写成了(9 * temp) / (5 + 32)，正确逻辑应为(温度 × 9/5) + 32，运算逻辑完全错误。
• 变量类型不匹配：f、c被定义为字符串类型，但实际是数值计算，应使用Double类型；temp定义为字符串却被Val()转为数值，丢失了关键的单位信息。
• 判断逻辑混乱：If temp = True的条件完全不符合需求，无法根据输入的单位触发对应转换。

修正后的代码 #

Sub TemperatureConversion()
    Dim inputText As String
    inputText = Trim(InputBox("请输入温度，末尾加C表示摄氏度，加F表示华氏度（例如：32F 或 0C）"))
    
    ' 处理空输入
    If inputText = "" Then Exit Sub
    
    Dim tempValue As Double
    Dim unit As String
    
    ' 提取单位并统一为小写，兼容大小写输入
    unit = LCase(Right(inputText, 1))
    ' 提取数值部分
    tempValue = Val(Left(inputText, Len(inputText) - 1))
    
    Dim result As Double
    Dim resultText As String
    
    Select Case unit
        Case "c"
            ' 摄氏度转华氏度
            result = (tempValue * 9 / 5) + 32
            resultText = tempValue & " C 转换为 " & result & " F"
        Case "f"
            ' 华氏度转摄氏度
            result = (tempValue - 32) * 5 / 9
            resultText = tempValue & " F 转换为 " & result & " C"
        Case Else
            MsgBox "输入格式错误，请按照要求输入（例如：32F 或 0C）"
            Exit Sub
    End Select
    
    MsgBox resultText
End Sub

修正说明 #

1. 保留完整输入字符串，通过Right()提取最后一个字符作为单位，用LCase()统一转为小写，支持C/c、F/f多种输入格式。
2. 用Left()提取数值部分，再通过Val()转为数值类型，确保计算精度。
3. 修正转换公式，保证温度转换逻辑正确。
4. 增加空输入、格式错误的提示，提升交互体验。
5. 使用Select Case替代混乱的条件判断，逻辑更清晰易读。

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