访问工作表多页对象上的文本框(不是VBA用户窗体)

时间:2019-02-23 19:01:43

标签: excel vba object multipage

我已经在工作表对象中创建了一个多页对象。做工精美。但是我想访问多页对象第二页上的文本框。我已经花费了数小时进行搜索,但找不到解决方案。我以为是这样的:

With Sheet6.InputArea
    With .Pages("Details")
        With .texbox4.value = "100"

        End With
    End With
End With

如果有人能指出我正确的方向,将不胜感激。

2 个答案:

答案 0 :(得分:0)

With需要对象引用,但表达式.texbox4.value = "100"的计算结果为布尔类型

.texbox4.value = "100"

在没有With...End with

的情况下应该可以正常工作

答案 1 :(得分:0)

我打开了开发人员标签,并记录了一个宏以查看输出。我对代码进行了一些调整,并产生了以下内容:

Worksheets("Sheet1").Shapes.Range(Array("TextBox 1")).TextFrame2. _
TextRange.Characters.Text = "Goodbye moon..."

宏记录器的原始结果是:

ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Hello World!!!"

我选择将ActiveSheet替换为特定名称,并希望直接引用而不需要选择。

希望使用“宏记录”功能可以帮助您找到所需的项目参考。