某网友发帖:请高手写个模块，实现单击组合框自动下拉

高手能否写个模块，实现单击组合框自动下拉，我只会用下面的笨办法实现，假设组合框有很多个这样方法就很麻烦，

Private Sub 籍贯_GotFocus()
Me.籍贯.Dropdown
End Sub

Private Sub 性别_GotFocus()
Me.性别.Dropdown
End Sub

Private Sub 姓名_GotFocus()
Me.姓名.Dropdown
End Sub

所以我想要用模块功能写出来，我思考了一段时间,这模块功能还不会实现，请高手指点帮忙

根据上述要求这里整理了一个循环实现的语句,用For Each语句实现

附   件:

点击下载此附件

演   示: