Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
If Len(Trim(TextBox1.Text)) > 0 Then
VBA自学应用(8)——文本框中按Enter键输入数据
最新推荐文章于 2024-05-25 08:46:55 发布
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
If Len(Trim(TextBox1.Text)) > 0 Then