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