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

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

 我来答

1个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

unsamesky
2013-06-24 · TA获得超过2735个赞

知道小有建树答主

回答量：859

采纳率：100%

帮助的人：432万

我也去答题访问个人页

关注

展开全部

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

详见附件！