如何修复修改ComboBox格式后出现的「无效属性值」错误

我来帮你搞定这个问题——咱们先拆解下问题根源，再给你两种靠谱的解决办法：

问题出在哪？ #

你在ComboBox5_Change事件里直接给ComboBox5赋值格式化后的百分比字符串，这里有两个坑：

1. 如果你的ComboBox5是「仅下拉选择」（Style属性为fmStyleDropDownList），控件只接受列表里已存在的项，格式化后的字符串和原列表的数值项不匹配，直接触发错误。
2. 直接在Change事件里修改控件值会导致事件递归触发，雪上加霜。

方案1：只改显示文本，保留原数值（推荐） #

这种方法不会改变ComboBox的实际值（还是和原单元格的数值一致），只是把显示内容改成百分比格式，同时避免递归触发事件：

Option Explicit

Private Sub ComboBox5_Change()
    ' 先禁用事件，防止递归触发Change事件
    Application.EnableEvents = False
    
    ' 只有当值是数字时才格式化显示
    If IsNumeric(ComboBox5.Value) Then
        ComboBox5.Text = Format(ComboBox5.Value, "00%")
    End If
    
    ' 重新启用事件
    Application.EnableEvents = True
End Sub

' CODE MIMIC "DATA VALIDATION"
Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Worksheets("B16.5 & B16.47 SERIES A").Range("R15:R16").Value
    Me.ComboBox2.List = Worksheets("B16.5 & B16.47 SERIES A").Range("U5:U9").Value
    Me.ComboBox3.List = Worksheets("B16.5 & B16.47 SERIES A").Range("B5:B40").Value
    Me.ComboBox4.List = Worksheets("B16.5 & B16.47 SERIES A").Range("R5:R12").Value
    Me.ComboBox5.List = Worksheets("B16.5 & B16.47 SERIES A").Range("T5:T10").Value
    Me.ComboBox6.List = Worksheets("B16.5 & B16.47 SERIES A").Range("R18:R19").Value
    
    ' 初始化时就把默认项格式化为百分比显示
    If IsNumeric(ComboBox5.Value) Then
        ComboBox5.Text = Format(ComboBox5.Value, "00%")
    End If
End Sub

方案2：提前把列表项格式化为百分比字符串 #

如果你希望ComboBox的下拉列表本身就显示百分比（而不是背后的数值），可以在初始化控件时就把列表项转换成格式化后的字符串：

Option Explicit

Private Sub UserForm_Initialize()
    Dim rng As Range
    Dim itemArr As Variant
    Dim i As Integer
    
    Me.ComboBox1.List = Worksheets("B16.5 & B16.47 SERIES A").Range("R15:R16").Value
    Me.ComboBox2.List = Worksheets("B16.5 & B16.47 SERIES A").Range("U5:U9").Value
    Me.ComboBox3.List = Worksheets("B16.5 & B16.47 SERIES A").Range("B5:B40").Value
    Me.ComboBox4.List = Worksheets("B16.5 & B16.47 SERIES A").Range("R5:R12").Value
    
    ' 处理ComboBox5的列表项，批量转成百分比字符串
    Set rng = Worksheets("B16.5 & B16.47 SERIES A").Range("T5:T10")
    itemArr = rng.Value
    For i = LBound(itemArr) To UBound(itemArr)
        If IsNumeric(itemArr(i, 1)) Then
            itemArr(i, 1) = Format(itemArr(i, 1), "00%")
        End If
    Next i
    Me.ComboBox5.List = itemArr
    
    Me.ComboBox6.List = Worksheets("B16.5 & B16.47 SERIES A").Range("R18:R19").Value
End Sub

' 这时候Change事件就不需要了，因为列表项已经是格式化好的字符串
' Private Sub ComboBox5_Change()
' End Sub

额外提醒 #

• 检查ComboBox5的Style属性：如果是fmStyleDropDownList（仅下拉选择），一定要保证赋值的内容在列表里；如果需要手动输入，可以改成fmStyleDropDownCombo。
• 确认T5:T10单元格里的是数值（比如0.1代表10%），不是文本类型，否则Format函数会失效。

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