[请教]控件COMBOX和LISTBOX的ROWSOURCE属性如何设置？

qee用

WORD控件的组合框和列表框，其列表选项如何写入？EXCEL中叫LISTFILLRANGE。

守柔

需要使用VBA。如：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-4 19:43:45 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub WriteInLists() Dim myArray As Variant, aArray As Variant myArray = Array("一", "二", "三", "四", "五", "六", "七", "八", "九") For Each aArray In myArray Me.ListBox1.AddItem aArray Next End Sub '---------------------- Sub Example() With Me.ListBox1 .AddItem "一" .AddItem "二" .AddItem "三" End With End Sub '---------------------

相关链接请参：http://club.excelhome.net/viewthread.php?tid=117887

qee用

谢谢守柔版主。

这个问题困扰我很久了。我试过Items.Add，没有成功。

真高兴！