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