VBA 获取 MULTIPAGE 某一PAGE 上的控件

在VBA (Visual Basic for Applications) 中，如果你想要获取Excel工作簿或多页对话框中的Multipage Control（多页控件）上特定页面的控件，你需要首先确定该控件是否已经存在于多页控件中，然后通过索引来定位到相应的页面。以下是基本步骤：

1. **引用控制**：打开你的宏，确保已包含`Microsoft Forms 2.0 Object Library`库，这包含了Multipage Control的对象模型。

Dim mpControl As MSForms.MultiPage
Set mpControl = ThisWorkbook.Sheets("Sheet1").Controls("multipageControlName") ' 请替换实际控件名

2. **检查页面存在**：确认多页控件有你想获取的页面。你可以通过`.Pages.Count`属性查看总共有多少页。

Dim pageIndex As Long
pageIndex = 1 ' 假设你要找的是第一页，如果是从用户界面动态选择，则需获取用户的输入或其他方式获取

If pageIndex <= mpControl.Pages.Count Then
    ' 如果页面存在...

3. **获取页面上的控件**：假设你要获取的控件名为`controlName`，可以在特定页面上查找它。

    Dim controlOnPage As MSForms.Control
    Set controlOnPage = mpControl.Pages(pageIndex).Controls("controlName")
    
    If Not controlOnPage Is Nothing Then
        ' 控件存在，可以进一步操作
        Debug.Print controlOnPage.Caption ' 示例：打印控件的标题
    Else
        ' 控件不存在
        MsgBox "找不到指定页面上的控件", vbCritical
    End If
End If