**********************************************************************************************************************************************
Private Sub CommandButton1_Click()
Dim strValue As String
'使用某个sheet中的控件,必须选中对应sheet,取得控件对象
strValue = Application.ActiveSheet.TextBox1.Value
MsgBox strValue
End Sub
**********************************************************************************************************************************************
结果:
本文介绍了一个简单的VBA代码示例,展示了如何在Excel中通过VBA读取指定工作表上的文本框控件的值,并弹出消息框显示该值。
45万+

被折叠的 条评论
为什么被折叠?



