[已解决][求助]如何文字框和下拉单中显示单元格内容

myllllll

W1YePCHs.rar (9.96 KB, 下载次数: 3)

2009-11-7 17:07 上传

点击文件名下载附件
[求助]如何文字框和下拉单中显示单元格内容
如题，谢谢

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-7 17:47

把窗体内的代码改成L

Private Sub UserForm_Initialize()
Me.TextBox1.Value = Sheet1.[a1].Value
Me.ComboBox1.AddItem "张三"
Me.ComboBox1.AddItem "李四"
Me.ComboBox1.AddItem "赵五"
Me.ComboBox1.AddItem "钱六"
Me.ComboBox1.AddItem "孙七"
Me.ComboBox1.AddItem "王八"
End Sub

跳转到最佳答案楼层

z090814

我想上学，可是没有金币

白耀凡

将A1赋值给文本框

雨狐

把窗体内的代码改成L

Private Sub UserForm_Initialize()
Me.TextBox1.Value = Sheet1.[a1].Value
Me.ComboBox1.AddItem "张三"
Me.ComboBox1.AddItem "李四"
Me.ComboBox1.AddItem "赵五"
Me.ComboBox1.AddItem "钱六"
Me.ComboBox1.AddItem "孙七"
Me.ComboBox1.AddItem "王八"
End Sub

myllllll

怎么赋值ActiveSheet.Cells(7, 5) = TextBox1.Text

这样吗？？？？我设成这样还是没法显示

雨狐

QUOTE:

以下是引用myllllll在2009-11-7 17:48:00的发言：

怎么赋值ActiveSheet.Cells(7, 5) = TextBox1.Text

这样吗？？？？我设成这样还是没法显示

反了，TextBox1.Text=ActiveSheet.Cells(7, 5) =