vba - Excel VBA MultiPage - 获取页数

Question

我在 Excel VBA 2010 中创建了一个多页表单。 如何获取该多页中的页数？

谢谢， 勒索

Answer 1

试试这个:

Dim mulpage as Control, pge as Page, counter as Integer
For Each mulPage In Me.Controls
       If TypeName(mulPage) = "MultiPage" Then
           For Each pge In mulPage.Pages
               counter = counter + 1
           Next pge
       End If
Next

My code is in 2003. So for you, you need to reference the Form Page property explicitly using Dim pge As msforms.Page instead of Dim pge As Page for 2007, 2010...going forward.

引用文献:

• http://support.microsoft.com/kb/155374

• http://www.ozgrid.com/Excel/free-training/ExcelVBA2/excelvba2lesson8.htm