Private Sub TextBox2_Enter() TextBox2.Value = TextBox1.ValueEnd SubExcel的VBA窗体中，文本框的Enter事件相当于VB6.0里面的GotFocus事件！通过以上代码，就可以当TextBox2获得焦点的时候，自动复制TextBox1的内容！！
tip自己尝试吧。
