Private Sub CommandButton2_Click()
[B14] = TextBox1 '單元格B14 = 文本框1
[B15] = TextBox2 '單元格B15 = 文本框2
[B16] = TextBox3 '單元格B16 = 文本框3
Unload Me '從內存中卸載窗體
UserForm1.Show '窗體1顯示
End Sub