Question

VBA 教程 这个组合框COMBOBOX1是怎么做出来的

1我认为是不是插入窗体，在插入组合框COMBOBOX1

教程说获得焦点，没有gotfocus ,不是获得焦点是ENTER 吗
2
Private Sub ComboBox1_Enter()
Dim arr(), x, arr1, k
arr1 = Range("a1:a10")
For x = 1 To UBound(arr1)
If arr1(x, 1) > 10 Then
k = k + 1
ReDim Preserve arr(1 To k)
arr(k) = arr1(x, 1)
End If
Next x
ComboBox1.List = arr
End Sub

3最终我写的和教程结果是对的 但外观上怎么差这么多 求大神帮忙





Answer 1

你说的教程中的combobox1应该是表单中的ActiveX 控件，而你做的combobox1是窗体控件。两者虽然都叫ComboBox，但一部分事件是不相同的。你可以再到表单中插入一个ComboBox对比一下就明白了。
Enter 事件和 Exit 事件与 Visual Basic 中的 GotFocus 和 LostFocus 事件类似。与
GotFocus 和 LostFocus 事件不同的是，当窗体接收或失去焦点时 Enter 事件和 Exit 事件不发生。

追问

combobox1应该是表单中的ActiveX 控件 在哪啊，我试试操作一下

追答

附件图片是2010版的，2007应该也差不多。2003版好像在控件工具箱里，记不清啦。

Answer 2

ActiveX 控件 才有GotFocus,03版可在视图-工具栏-控件工具箱,打上勾,这个才会出来的中调出

Answer 3

你这个添加错了，不是userform1里的控件，而是在开发工具>>插入>>active控件里的combobox添加的

追问

我用的是2003好像没有开发工具哈

追答

放心吧，都有的，只是你没调出来而已，可以自己百度一下，可能名字有些不同罢了

追问

能不能给我个截图 让我看看 因为我有2003 和2007 连个版本 现在还不会这道题 好烦的