EXCEL中的VBA窗体文字框的代码的问题

EXCEL中的VBA窗体文字框的代码输入
Private Sub TextBox1_Change()
Sheets("输入").Range("e6").Value = UserForm1.TextBox1.Value
End Sub

Private Sub TextBox10_Change()
Sheets("输入").Range("e17").Value = UserForm1.TextBox10.Value
End Sub

Private Sub TextBox11_Change()
Sheets("输入").Range("h17").Value = UserForm1.TextBox11.Value
End Sub
为什么只有在文字框内输入内容的时候Excel单元格的内容才会同文字框一起改变,在不输入内容的时候原有数据不替换相应的单元格,怎么让它全部替换为文字框的内容呢?

按你目前的代码根本就实现不了,因为你不输入内容的话,textbox的change事件就不会触发。你可以考虑在窗体上加一个命令按钮,代码如下:
Private Sub CommandButton1_Click()
Sheets("输入").Range("e6").Value = UserForm1.TextBox1.Value

Sheets("输入").Range("e17").Value = UserForm1.TextBox10.Value

Sheets("输入").Range("h17").Value = UserForm1.TextBox11.Value

End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-11-20
不要用change事件吧?增加一个按钮,编写按钮的代码,当各文字框输入完毕后,按下按钮才对EXCEL对应单位格的值进行替换
第2个回答  2014-11-20
你在文本框中输入内容的时候就会替换追问

但是,如果我不输入内容它就不替换,比如box1中本来是数字5,但是单元格e6为7,如果从box1中输入2,e6也自动变为2了,但是如果什么也不动,box1中的数字还是1,单元格e6还是7,怎么让e6也是5呢?

相似回答