Private Sub ComboBox1_Change()
Dim A
A = ComboBox1.Text '赋值给变量
End Sub
Private Sub ComboBox1_GotFocus()
Dim I As Long
ComboBox1.Clear
For I = 1 To UsedRange.Rows.Count
ComboBox1.AddItem Range("A" & I).Value '添加到combox
Next
ComboBox1.ListIndex = 0 '选中第一项
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024