[已解决]设置下拉莱单（多页）

cyj153

下拉莱单引用（多页）.rar (13.48 KB, 下载次数: 2)

2014-2-26 13:08 上传

点击文件名下载附件
谢谢大家！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-26 13:31

1. Private Sub UserForm_Initialize()
   
2.     Me.ComboBox1.List = Sheets("1").Range("g2:g9").Value
   
3.     Me.ComboBox4.List = Sheets("1").Range("i2:i9").Value
   
4. End Sub

复制代码

CHANGE事件根据需要，这里可以不写。
如果换成TabStrip控件，则需要change事件。

这里的多页控件，每一页里的控件全是独立的，在Tabstrip里则所有页都是一样的。

跳转到最佳答案楼层

hwc2ycy

两个页里的COMBOBOX不一样。
一个是combobox1,一个是combobox4

1. Private Sub MultiPage1_Change()
   
2.     If MultiPage1.Page2.Caption = "窗口A" Then
   
3.         Me.ComboBox1.List = Sheets("1").Range("g2:g9").Value
   
4.     End If
   
5.     If MultiPage1.Page3.Caption = "窗口B" Then
   
6.         Me.ComboBox4.List = Sheets("1").Range("i2:i9").Value
   
7.     End If
   
8. End Sub

复制代码

直接写在窗体初始化就可以了。

hwc2ycy

1. Private Sub UserForm_Initialize()
   
2.     Me.ComboBox1.List = Sheets("1").Range("g2:g9").Value
   
3.     Me.ComboBox4.List = Sheets("1").Range("i2:i9").Value
   
4. End Sub

复制代码

CHANGE事件根据需要，这里可以不写。
如果换成TabStrip控件，则需要change事件。

这里的多页控件，每一页里的控件全是独立的，在Tabstrip里则所有页都是一样的。

cyj153

hwc2ycy 发表于 2014-2-26 13:31
CHANGE事件根据需要，这里可以不写。
如果换成TabStrip控件，则需要change事件。

是否可通过 Page 的切换，对ComboBox1或ComboBox4下拉莱单的引用（不用窗体初始化）。谢谢老师指导！

hwc2ycy

cyj153 发表于 2014-2-26 13:45
是否可通过 Page 的切换，对ComboBox1或ComboBox4下拉莱单的引用（不用窗体初始化）。谢谢老师指导！

你现在不是已经用的change事件嘛。