控件的取数和写数

weng21509 · 发表于 2006-11-23 21:55

我这几天在学控件 Private Sub UserForm_Initialize() ComboBox1.AddItem "张三" ComboBox1.AddItem "李四" ComboBox1.AddItem "王五" ComboBox1.AddItem "李六" ComboBox1.AddItem "孙七" ComboBox1.AddItem "赵八" ComboBox1.AddItem "杨九" ComboBox1.AddItem "刘十" End Sub在名字很多的情况下，我想把姓名放在工作表里，代码怎么改？请朋友们帮帮忙，谢谢！

2wY0nVMd.rar (36 KB, 下载次数: 8)

yvhf · 发表于 2006-11-23 21:58

不知所谓的问题，没有结局的回贴

weng21509 · 发表于 2006-11-23 22:15

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用yvhf在2006-11-23 21:58:41的发言： 不知所谓的问题，没有结局的回贴</div>名字在上百个情况下,象这样写代码人人都要晕倒.我想象序列那样引用工作表里的数据.可这是窗体控件,代码我写不来,所以求助来了.

yvhf · 发表于 2006-11-23 22:23

Private Sub UserForm_Initialize()     Dim arr     arr = Sheet1.Range("a1:a10").Value    ComboBox1.List = arr    ComboBox1.ListIndex = 0 '选中第一个 End Sub

m0085_cn · 发表于 2006-11-23 22:28

把数据放到“sheet2”中的第一列，然后将UserForm_Initialize方法中的代码改写如下：Private Sub UserForm_Initialize()     Set sh = ActiveWorkbook.Sheets("Sheet2")         For i = 1 To 100         If Trim$(sh.Cells(i, 1).Text) = "" Then             Exit For         Else             ComboBox1.AddItem sh.Cells(i, 1).Text         End If     Next     End Sub具体内容以及演示效果，请看附件：

hwgsZCl8.rar (38.45 KB, 下载次数: 14)

weng21509 · 发表于 2006-11-23 22:43

谢谢!!!太好了,解决了我想做的问题.能再问几个问题吗?  Dim arr 后面 as** 定义怎么也好用? ComboBox1.List = arr 和 ComboBox1.ListIndex = 0 中的 List 和 ListIndex 能解释下吗?

weng21509 · 发表于 2006-11-23 23:05

谢谢m0085_cn朋友的指导,你还让我学会了 if 和 for 的交叉使用,以前我从没想过这样用.

weng21509 · 发表于 2006-11-27 16:19

我想用窗体在黄色区域根据光标所在的位置填写数据。可是写出的代码，填写的位置都 C4 。朋友们帮我这个菜鸟改写下代码。Private Sub CommandButton1_Click() Dim mrow As Long       If Range("C2").Select = True Then    mrow = 2    If Range("C3").Select = True Then    mrow = 3    If Range("C4").Select = True Then    mrow = 4    End If    End If    End If       Range("C" & mrow) = ComboBox1.Value End Sub

vkQpXU6T.rar (39.92 KB, 下载次数: 9)

wengpicc · 发表于 2007-6-28 20:16

学习中．．．．

		自动登录	找回密码
密码			免费注册

[求助] 控件的取数和写数

再看下啊

继续请教