[已解决][求助]文字框的问题，请求高手帮助解决！

internet

CrVdkcRr.rar (5.93 KB, 下载次数: 1)

2009-8-31 18:01 上传

点击文件名下载附件
[求助]文字框的问题，请求高手帮助解决！
需解决的问题在压缩包里

感谢！！！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-8-31 18:26

QUOTE:

以下是引用internet在2009-8-31 18:24:00的发言：

如果A1中有内容，打开后就显示在文字框中，2楼的实现不了

Private Sub UserForm_Initialize()
Me.TextBox1 = Sheet1.[a1].Value
End Sub

跳转到最佳答案楼层

雨狐

sheet1.Cells(1, 1) = TextBox1.Text要放在chang事件中。

Private Sub TextBox1_Change()

    Sheet1.[a1] = Me.TextBox1.Text

End Sub

internet

如果A1中有内容，打开后就显示在文字框中，2楼的实现不了

雨狐

QUOTE:

以下是引用internet在2009-8-31 18:24:00的发言：

如果A1中有内容，打开后就显示在文字框中，2楼的实现不了

Private Sub UserForm_Initialize()
Me.TextBox1 = Sheet1.[a1].Value
End Sub

雨狐

wKYlLx7J.rar (8.14 KB, 下载次数: 2)

2009-8-31 18:30 上传

点击文件名下载附件
[求助]文字框的问题，请求高手帮助解决！

internet

哥们，把你QQ号给我呗，要不你加我31335216

谢谢，基本解决，有待研究。