第9章Excel的宏与VBA
（3）运行此窗体，在显示的对话框窗体中，【列表框】上显示
刚才添加的数据。
600．从另一个列表建立列表框
（1）在【VisualBasic编辑器】窗口中的菜单栏上选择【插
入】｜【用户窗体】命令，显示窗体面板，并在其中添加两个【列
表框】控件。
（2）将左边的【列表框】控件的RowSource属性设置为
Sheet1!B1:B12。
（3）再在窗体上两个【列表框】控件之间添加一个按钮，并
双击按钮，切换至代码编辑区内，其中输入的代码如下。
PrivateSubCommandButtonl_Click()
IfListBox1.ListIndex=-1Then
ExitSub
IfNotcbDuplicatesThen
Fori=0ToListBox2.ListCount-1
IfListBoxl.Value=ListBox2.List(i)
Then
Beep
ExitSub
EndIf
Nexti
EndIf
ListBox2.AddItem
ListBox1.Value
EndSub
（4）运行此窗体，在左边的列表框中选择月份后，单击【添
加】按钮，右边的列表框便会显示出相应的月份。
297 |
|
