Excel独立文本框小数转上下标分数的VB代码求助

以下是直接针对独立文本框的VBA解决方案，能将小数转换为带上下标分数格式（如1.25转为1¼）：

完整VBA代码 #

Sub ConvertDecimalToFractionTextBox()
    Dim targetTextBox As Shape
    Dim inputDecimal As Double
    Dim intPart As Long
    Dim fracNumerator As Long
    Dim fracDenominator As Long
    Dim tempDecimal As Double
    Dim gcdVal As Long
    
    ' 指定目标文本框（替换为你实际的文本框名称）
    Set targetTextBox = ActiveSheet.Shapes("TextBox1")
    ' 输入要转换的小数，可改为InputBox手动输入：inputDecimal = InputBox("请输入小数：")
    inputDecimal = 1.25
    
    ' 处理纯整数情况
    If inputDecimal = Int(inputDecimal) Then
        targetTextBox.TextFrame2.TextRange.Text = CStr(inputDecimal)
        Exit Sub
    End If
    
    ' 拆分整数与小数部分
    intPart = Int(inputDecimal)
    tempDecimal = inputDecimal - intPart
    
    ' 将小数转为分数并化简
    fracDenominator = 1
    Do While tempDecimal <> Int(tempDecimal)
        tempDecimal = tempDecimal * 10
        fracDenominator = fracDenominator * 10
    Loop
    fracNumerator = tempDecimal
    gcdVal = GCD(fracNumerator, fracDenominator)
    fracNumerator = fracNumerator / gcdVal
    fracDenominator = fracDenominator / gcdVal
    
    ' 拼接基础文本
    Dim fullText As String
    If intPart > 0 Then
        fullText = CStr(intPart) & " " & CStr(fracNumerator) & "/" & CStr(fracDenominator)
    Else
        fullText = CStr(fracNumerator) & "/" & CStr(fracDenominator)
    End If
    targetTextBox.TextFrame2.TextRange.Text = fullText
    
    ' 设置上下标格式
    Dim startPos As Long, lenNum As Long, lenDen As Long
    lenNum = Len(CStr(fracNumerator))
    lenDen = Len(CStr(fracDenominator))
    
    startPos = IIf(intPart > 0, Len(CStr(intPart)) + 2, 1)
    
    ' 分子设为上标
    With targetTextBox.TextFrame2.TextRange.Characters(startPos, lenNum).Font
        .BaselineOffset = 10 ' 偏移量可按需调整
    End With
    
    ' 分母设为下标
    With targetTextBox.TextFrame2.TextRange.Characters(startPos + lenNum + 1, lenDen).Font
        .BaselineOffset = -10 ' 偏移量可按需调整
    End With
    
    ' 隐藏中间的斜杠
    targetTextBox.TextFrame2.TextRange.Characters(startPos + lenNum, 1).Font.Fill.Visible = msoFalse
End Sub

' 辅助函数：计算最大公约数用于化简分数
Function GCD(a As Long, b As Long) As Long
    Do While b <> 0
        Dim temp As Long
        temp = b
        b = a Mod b
        a = temp
    Loop
    GCD = a
End Function

使用说明 #

1. 按Alt+F11打开VBA编辑器，插入新模块并粘贴上述代码。
2. 修改targetTextBox = ActiveSheet.Shapes("TextBox1")中的文本框名称为你实际使用的名称。
3. 运行ConvertDecimalToFractionTextBox过程即可完成转换，也可调整inputDecimal的赋值方式实现手动输入。

核心细节 #

• 自动处理纯整数、纯分数、带整数的分数三种场景。
• 通过最大公约数将分数化简为最简形式，避免冗余格式。
• 利用BaselineOffset实现上下标效果，偏移量可根据文本框大小自行调节。
• 隐藏斜杠让分数显示更接近标准上下标样式。

内容的提问来源于stack exchange，提问作者Garrod James Hutchison