如何把窗体文本框中的内容输入到指定的单元格中?

他三叔 · 发表于 2011-11-4 12:50:24

请问在文本框中输入内容在单击确定后输入指定的单元格中,请问如何编写程序?如能解决悬赏30币

闲人一个 · 发表于 2011-11-4 12:50:30

Private Sub CommandButton1_Click()
ActiveCell.Value = UserForm1.TextBox1.Value
End Sub

'其中UserForm1和TextBox1要分别改成你设计的窗体和文本框名称。

他三叔 · 发表于 2011-11-4 12:50:36

你提供的程序是将文本框内的内容录入到了鼠标选择的单元格内,我期望的是永远录入到P8单元格中.

简单晃 · 发表于 2011-11-4 12:50:42

Private Sub Cmd1_Click()
Sheets("sheet1"Cells(8, 16Value = Txt1.Value
End Sub

'cmd1是你窗体中“确定更改”的控件名， txt1是窗体中文本框控件名。
另，可不必转金币，相互学习而已

闲人一个 · 发表于 2011-11-4 12:50:48

楼上的也是高手，正解！
只是网上显示问题，把）.这两个符号显示成表情了。再提供另一种表示方法，相互学习。

Private Sub CommandButton1_Click()
Sheet1.Range("P8") = UserForm1.TextBox1.Value
End Sub

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