Question

在EXCEL中的VB中combobox的使用方法,

在FORM窗体中如何实现这种?

Answer 1

先把各个等级存在工作表内，比如sheet3的A2：A8中，然后再窗体initialize事件中添加如下代码。

Private Sub UserForm_Initialize()
  dim r as Integer
  r = Application.WorksheetFunction.CountA(Sheet3.Range("A2:A100")) + 1
    With ComboBox1
        For i = 2 To r
            .AddItem Sheet3.Cells(i, 1).Value
        Next
    End With
End Sub

追问

你好,你说的这个我试了,为什么调试不出来呢?总弹出一个,运行时错误'424''' 要求对象 拜托了

你好,你说的这个我试了,为什么调试不出来呢?总弹出一个,运行时错误'424''' 要求对象 拜托了

追答

那你在窗体中有没有插入combobox控件？或者控件名称是不是combobox1?