EXCEL追加Botton

**********************************************************************************************************************************************

Private Sub CommandButton1_Click()


Dim strValue As String


'使用某个sheet中的控件，必须选中对应sheet，取得控件对象


strValue = Application.ActiveSheet.TextBox1.Value


MsgBox strValue
End Sub

**********************************************************************************************************************************************

结果：