vba - 清除用户窗体上多页控件中的文本框

Question

我第一次学习vba时正在做一个学校项目。该项目是围绕婚礼策划工作表构建的。我计划锁定工作表，以便用户不会破坏公式和格式（我的未婚夫会找到方法）。为了做到这一点，我正在构建一个用户表单，它通过多页控件不同页面上的文本框收集数据。

此示例只有一页，但稍后会显示其他页面，例如“服装”：

我目前在 _Click 上有以下代码用于“清除”按钮。

Dim C As Control


For Each C In frmExpenses.Controls
    If TypeName(C) = "TextBox" Then
        C.Value = ""
    End If
Next C

这有效地清除了文本框中的数据。但是，我希望能够仅清除多页上的活动页面上的数据。例如，如果稍后有一个名为“Flowers”的选项卡并且它是活动选项卡，我想将数据保留在“Apparel”上并清除“Flowers”中的数据。

我试着在上面尽可能彻底。如果您需要澄清某些事情，请告诉我。

Answer 1

尝试这个

对于特定页面（例如 1）

Dim ctl As Control

For Each ctl In Me.MultiPage1.Pages(1).Controls
    If TypeName(ctl) = "TextBox" Then  ctl.Value = ""
Next

来自 ActivePage

Dim ctl As Control

For Each ctl In Me.MultiPage1.Pages(Me.MultiPage1.Value).Controls
    If TypeName(ctl) = "TextBox" Then ctl.Value = ""
Next