Question

EXCEL vba 窗体文本框用什么事件触发

怎样在点击文本框2时，文本框2正好自动键入文本框1的内容

Answer 1

Private Sub TextBox2_Enter()
    TextBox2.Value = TextBox1.Value
End Sub

Excel的VBA窗体中，文本框的Enter事件相当于VB6.0里面的GotFocus事件！

通过以上代码，就可以当TextBox2获得焦点的时候，自动复制TextBox1的内容！！

追问

谢谢。很好！还有一个问题，单元格如何向复合框赋值，在窗体一打开复合框就显示单元格的内容，单元格的内容是动态的

追答

Private Sub CommandButton1_Click()
    Dim i As Long, m As Long
    m = Sheets("sheet1").[a65536].End(3).Row
    For i = 1 To m
        ComboBox1.AddItem Sheets("Sheet1").Cells(i, "A").Value
    Next
    ComboBox1.Value = ComboBox1.List(ComboBox1.ListCount - 1)
End Sub

详见附件！