使用VBA计算活动工作表(excel)左侧的未隐藏(可见)工作表的数量？

Question

我正在excel中构建一份调查问卷,并且要求在每页上包含一个"你在Y表单上的X表"类型指示符.

可见表格的数量取决于一些早期问题的答案(隐藏不相关的问题集等),因为该声明中的分子和分母都是变量.

我在每个页面上都有一个标签(Label1),我可以编写标题,我已经设法计算可见纸张的总数,并将标题写入工作表激活事件:

Private Sub Worksheet_Activate()
If Range("AZ1").Value = "1" Then

    Dim v
    For Each s In ActiveWorkbook.Sheets
        If s.Visible Then v = v + 1
    Next s
    ActiveSheet.Label1.Caption = "Currently viewing page X of " & v & vbCrLf

End If
End Sub

这正确地将分母写入每张纸上的每个标签.

为了找到分子,我需要能够找到活动工作表左侧的未隐藏工作表的数量.

有谁知道如何使用VBA做到这一点？

Answer 1

的Worksheet.Index,物业可以帮助你在这里:

Dim n As Long
Dim i As Long

n = 0
For i = 1 To ActiveSheet.Index
    If ThisWorkbook.Worksheets(i).Visible Then 
        n = n + 1
    End If
Next

Debug.Print n