[已解决]问题在那？

ypbnyn

Private Sub UserForm_Initialize()
ComboBox2.List = Array("高 一", "高 二", "高 三")
ComboBox3.List = Array("省 级", "州 级", "外 校", "本 校", "本年级")
ComboBox4.List = Array("州 统", "年级交叉", "本年级流水")
With Sheets("教师名单")
        ROW1 = .Range("A65536").End(xlUp).Row
        ARR1 = .Range("A1:A" & ROW1)
        ComboBox1.List = ARR1
    End With
    Sheets("sheet10").Range("o1:o2").ClearContents
End Sub
出错代码（9）
下标越界（无出错标识）
能从代码看出问题吗？又该如何解决？

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

爱疯

需要上传附件，才好找啊。

studyexcel

哪一句下标越界呀

gdgzlyh

列表框控件和 List 属性示例

下例中，交换多列列表框的列。该示例以两种方法使用 List 属性：

在列表框中访问和交换单个值。在这种用法中，List 有下标，指明特定值的行和列。


最初用来自数组的值加载列表框。在这个用法中，List 没有下标。
若要使用该示例，请将示例代码复制到某窗体的声明变量部分。请确保该窗体包含名为 ListBox1 的列表框和名为 CommandButton1 的命令按钮。

Dim MyArray(6, 3)           
'数组含有列表框的列值。

Private Sub UserForm_Initialize()
    Dim i As Single

ListBox1.ColumnCount = 3        
'这个列表框包含三个数据列

    '加载整数值 MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
        MyArray(i, 1) = Rnd
        MyArray(i, 2) = Rnd
    Next i

    '加载 ListBox1
    ListBox1.List() = MyArray

End Sub
Private Sub CommandButton1_Click()
'交换 1 列和 3 列的内容

    Dim i As Single
    Dim Temp As Single

    For i = 0 To 5
        Temp = ListBox1.List(i, 0)
        ListBox1.List(i, 0) = ListBox1.List(i, 2)
        ListBox1.List(i, 2) = Temp
    Next i
End Sub

9lee

楼主上个附件，才好判断

ypbnyn

我把这句删了：Sheets("sheet10").Range("o1:o2").ClearContents
出错提示消失，但关联的第二个复合框失效（下拉框内无内容了）

无聊的疯子

Sheets("sheet10").Range("o1:o2").ClearContents
你有没有名为sheet10的工作表呢？没有就是下标越界了！如果有就不是这句的问题

ypbnyn

有名为sheet10的工作表

ypbnyn

但把Sheets("sheet10").Range("o1:o2").ClearContents
改为sheet10.Range("o1:o2").ClearContents
无错误提示，可两关联的复合框第二级失效了

FF7

呵呵，真累！！上传一个简单的附件，所有问题都解决了！！