[已解决]录入窗体中的语句

南仁海杨 · 发表于 2010-10-7 22:10

请各位帮忙看看这个怎么么弄，谢谢！

9kYox4qm.rar (17.66 KB, 下载次数: 8)

领风飞翔 · 发表于 2010-10-7 22:22

RowSourse:sheet2!A2:A12

hhh0310 · 发表于 2010-10-7 22:25

mQMFhQRT.rar (17.35 KB, 下载次数: 18)

HYY514 · 发表于 2010-10-7 22:25

Private Sub CommandButton1_Click()
Sheet1.Range("a65536").End(xlUp).Offset(1, 0).Resize(, 2) = Array(TextBox1.Text, ComboBox1.Text)
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Sheet2.[a2:a12]
End Sub

南仁海杨 · 发表于 2010-10-7 22:33

不好意思，我不是要引用单元格，要把内容一个个的写进去该怎么写？当然楼上的可以达到效果

HYY514 · 发表于 2010-10-7 22:39

ComboBox1.List =array("a","b","c")

南仁海杨 · 发表于 2010-10-7 22:44

谢谢各位啦

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