在工具栏选上以后拉出来 直接落在上面工具条上 不在去自己动她就不会动 了 始终在那里
Private Sub ComboBox1_Change()ComboBox1.List = Array("a", "b", "c", "d")Range("a1").Value = ComboBox1.ValueEnd Sub
