窗体复合框下拉实时显示数据问题求助

shaozhenpeng

目的：想制作如图的下拉条，当选择1，在cells(2,1)显示1，选择2，在cells(2,1)显示2，是实现实时显示的功能，我的代码如下：
Private Sub UserForm_Activate()
UserForm1.ComboBox1.AddItem ("1")
UserForm1.ComboBox1.AddItem ("2")
UserForm1.ComboBox1.AddItem ("3")
UserForm1.ComboBox1.AddItem ("4")
Sheet1.Cells(2, 1).Value = UserForm1.ComboBox1.Value
End Sub
应该是事件没有选择正确，求各位大神帮忙解决！

gxhcswj

既然知道事件没有选择正确还不换另个一个事件
分两步 第一步在UserForm1 的active事件 UserForm1.ComboBox1.AddItem ("1")
UserForm1.ComboBox1.AddItem ("2")
UserForm1.ComboBox1.AddItem ("3")
UserForm1.ComboBox1.AddItem ("4")
在ComboBox1的相应事件写 Sheet1.Cells(2, 1).Value = UserForm1.ComboBox1.Value

网海遨游

在复合框添加下拉列表，如果用到窗体，就放在窗体初始化事件中
Private Sub UserForm_Initialize()'窗体初始化
'。。。。。。
end sub
Private me.combobox1_change()
       cells(2,1)=combobox1.text
end sub

shaozhenpeng

gxhcswj 发表于 2020-3-12 11:25
既然知道事件没有选择正确还不换另个一个事件
分两步 第一步在UserForm1 的active事件 UserForm1.ComboBox ...

关键在ComboBox1的什么事件上进行填加？

gxhcswj

shaozhenpeng 发表于 2020-3-12 12:05
关键在ComboBox1的什么事件上进行填加？

Private Sub ComboBox1_Change()
Range("a1") = ComboBox1.Text
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
End Sub
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

gxhcswj

ComboBox就那几个事件 一个一个试一下不就知道了 有什么关键一说呢
你不是你怎么知道其它事件是咋玩意 什么时候该用那些事件呢

shaozhenpeng

多谢多谢，知道是怎么回事了。