如何在UserForm的ComboBox中以分数格式显示选项

当你直接通过Range.Value给ComboBox赋值时，Excel会返回单元格存储的实际数值（比如1/4对应的0.25），而非单元格设置的显示格式。要让ComboBox显示分数，有两种可行方案：

方案1：直接读取单元格的显示文本 #

利用Range.Text属性获取单元格的可视化内容（即设置好的分数格式），逐个添加到ComboBox列表：

Private Sub UserForm_Initialize()
    Dim cell As Range
    ComboBox1.Clear
    For Each cell In Worksheets("Sheet1").Range("A1:A3")
        ComboBox1.AddItem cell.Text
    Next cell
End Sub

方案2：将数值格式化为分数字符串 #

如果需要保留数值的实际值（方便后续业务逻辑使用），可以用Format函数将数值转换为分数格式的字符串：

Private Sub UserForm_Initialize()
    Dim rng As Range
    Dim i As Integer
    Set rng = Worksheets("Sheet1").Range("A1:A3")
    
    ComboBox1.Clear
    For i = 1 To rng.Rows.Count
        ' 使用格式字符串将数值转为最简分数格式
        ComboBox1.AddItem Format(rng.Cells(i).Value, "# ?/?")
    Next i
End Sub

补充说明 #

• 方案1的优势是完全匹配工作表中设置的分数格式（比如你如果自定义了特定分数显示规则，会直接沿用）；
• 方案2适合需要在代码中灵活控制分数格式的场景，格式字符串# ?/?会自动将数值转换为最简分数形式。

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