VBA练习

oyzjo

工作簿上添加一个宏macro1，添加一个userform1，userform1上添加一个textBox1和一个UserForm_Activate()。

Sub Macro1()
Dim t As Date
UserForm1.TextBox1.Text = [b6]
UserForm1.Show
End Sub

Private Sub UserForm_Activate()
Dim t As Date
t = Time
Do While Time - t < TimeValue("0:0:10")
  DoEvents
Loop
Me.Hide
End Sub