的主要需求是限制这些文本框的输入内容，例如只能是日期，只能是文字等
想了两种方式
·直接通过设置格式来限制—>未找到方法
·通过vba对文本框内容进行判断—>未找到获取文本框内容的方法

网上找到的这种方法也不行，不知道问题出在哪里，哭。。。
    Dim TextObj As Object
    Set TextObj = Sheets("fomat").TextBox1
   
    If TextObj.Value = "" Then                     
         MsgBox "ERROR！"
         Exit Function
    End If   
在Set TextObj = Sheets("fomat").TextBox1 这一行设置短点，然后添加Sheets("fomat").TextBox1监视值，看看它的属性是怎样的。估计是nothing。。

Sub test()
    Dim Shp As Shape
    Set Shp = Shapes(1)
    Debug.Print Shp.TextFrame.Characters.Text
End Sub

刚自己用录制macro的方法也发觉了，应该用shape的。。。
Sub test()
    Dim Shp As Shape
    Set Shp = Shapes(1)
    Debug.Print Shp.TextFrame.Characters.Text
End Sub