解决方案 »

  1.   

    Private Sub TextBox1_Change()
        ''这里应该可以处理呀
    End Sub
      

  2.   

    在Set TextObj = Sheets("fomat").TextBox1 这一行设置短点,然后添加Sheets("fomat").TextBox1监视值,看看它的属性是怎样的。估计是nothing。。
      

  3.   


    问题就是我这样获取不到值,debug出来object 不支持该方法
      

  4.   


    如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?
      

  5.   


    如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?哦,你说的是图形吧。试试下面的方法:Sub test()
        Dim Shp As Shape
        Set Shp = Shapes(1)
        Debug.Print Shp.TextFrame.Characters.Text
    End Sub
      

  6.   


    如果是vba控件的话,我到知道有这么个用法,但这是excel最基本的那种文本框,要怎么实现呢?哦,你说的是图形吧。试试下面的方法:Sub test()
        Dim Shp As Shape
        Set Shp = Shapes(1)
        Debug.Print Shp.TextFrame.Characters.Text
    End Sub

    恩恩,感谢~~刚自己用录制macro的方法也发觉了,应该用shape的
    解决!!