如何修复错误代码424,需要对象

时间:2019-01-14 08:36:54

标签: excel vba

我有一个ActiveX列表框和组合框,我试图根据列表框来动态填充组合框列表。代码有效,但出现错误

  

错误代码424,需要对象

打开Excel时。调试时,它发生在ComboBox1.ListFillRange = "=ComboBox_Last6months"

我也尝试过将=放在名称范围的前面,即ComboBox1.ListFillRange = "ComboBox_Last6months"

ComboBox_Last6months / ComboBox_Lastquarter / ComboBox_Lastyear被命名为范围。

Sub ListBox1_Click()
    If ListBox1.ListIndex = 0 Or ListBox1.ListIndex = 3 Then
        ComboBox1.ListFillRange = "=ComboBox_Last6months"
        ComboBox1.ListIndex = 0
    ElseIf ListBox1.ListIndex = 1 Then
        ComboBox1.ListFillRange = "=ComboBox_Lastquarter"
        ComboBox1.ListIndex = 0
    ElseIf ListBox1.ListIndex = 2 Then   
        ComboBox1.ListFillRange = "=ComboBox_Lastyear"
        ComboBox1.ListIndex = 0
    End If
End Sub

0 个答案:

没有答案