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

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

这个例子只有一个页面，但稍后会显示其他的“服装”

我目前有_Click为“清除”button上的以下代码。

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