vba-光标移开文本框触发的事件

Private Sub TextBox1_AfterUpdate()
    TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/m/d")
End Sub

 

Private Sub TextBox1_AfterUpdate()
On Error GoTo Input_err
    TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/m/d")
    Exit Sub
Input_err:
    TextBox1.Text = Format(Now, "yyyy/m/d")
End Sub

 

Private Sub TextBox2_AfterUpdate()
On Error GoTo Input_err
 TextBox2.Text = Format(CDate(TextBox2.Text), "HH:mm:ss")
  Exit Sub
Input_err:
    TextBox2.Text = Format(Now, "HH:mm:ss")
End Sub

 

posted @ 2022-12-08 19:06  vba是最好的语言  阅读(669)  评论(0)    收藏  举报