请高手和版主求助 ```````````````

s114604410

为这代码会提示“下标越界”？

用下面这段代码为什么不会呢，原理不是一样的吗



Private Sub CommandButton1_Click()
Dim a As String


a = ComboBox3
    Sheets(a).Cells(1, 2) = TextBox1.Value
End Sub



Private Sub UserForm_Initialize()

    ComboBox3.List() = Array("鞋子", "服装", "配件")
End Sub



有人说，是因为先把未经赋值的ComboBox3的值（即""）赋值给a后，才将("鞋子", "服装", "配件")赋值给ComboBox3
a = ComboBox3
    ComboBox1.Clear
     For i = 2 To 32
    ComboBox1.AddItem Trim(Sheets(a).Cells(i, 1).Value)
    Next i
    For o = 2 To Sheets(a).Range("IV1").End(xlToLeft).Column
        ComboBox2.AddItem Trim(Sheets(a).Cells(1, o).Value)
    Next o
    ComboBox3.List() = Array("鞋子", "服装", "配件")


如果是怎么的话，那应该怎么写呢？请高手帮忙

liuts

窗体录入(VBA).rar (13.41 KB, 下载次数: 0)

2011-7-10 21:28 上传

点击文件名下载附件