vba 获取worksheet

以下是两种获取worksheet的VBA代码示例：

1. 使用Worksheets.Add方法添加新的工作表：

Worksheets.Add after:=Worksheets(Worksheets.Count)

这段代码将在当前活动工作簿中添加一个新的工作表，并将其放置在所有现有工作表之后。

2. 使用Worksheet_Change事件来获取当前活动工作表：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = ActiveSheet
    ' 在这里可以使用ws对象进行操作
End Sub

这段代码是一个Worksheet_Change事件的处理程序，它会在工作表中的单元格发生更改时触发。在事件处理程序中，我们可以使用ActiveSheet对象来获取当前活动的工作表，并将其赋值给一个Worksheet对象变量ws。然后，我们可以使用ws对象来进行进一步的操作。

相关问题

vba获取所有sheetname

你可以使用以下VBA代码来获取所有的工作表名称：

Sub GetAllSheetNames()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Debug.Print ws.Name
    Next ws
End Sub

这个代码将会打印出每个工作表的名称。你也可以将名称存储到一个数组中，以便后续使用。

vba获取批注所在页码

要获取VBA中批注所在的页码，可以使用以下代码：

Sub GetCommentPageNumber()
    Dim cmt As Comment
    Set cmt = ActiveSheet.Comments(1) '假设我们要获取第一个批注的页码

    Dim rng As Range
    Set rng = cmt.Parent '获取批注所在的单元格范围

    Dim ws As Worksheet
    Set ws = rng.Worksheet '获取批注所在的工作表

    Dim cmtTop As Double
    cmtTop = rng.Top '获取批注所在单元格的上边距

    Dim cmtPage As Long
    cmtPage = ws.Evaluate("=CEILING(" & cmtTop & "/ActiveWindow.PointsToScreenPixelsY(1),1)") '计算批注所在的页码

    MsgBox "批注所在的页码为：" & cmtPage
End Sub

这段代码假设我们要获取活动工作表中第一个批注所在的页码。首先，我们将第一个批注对象赋值给变量`cmt`。然后，我们使用`Parent`属性获取批注所在的单元格范围，并将其赋值给变量`rng`。接下来，我们使用`Worksheet`属性获取批注所在的工作表，并将其赋值给变量`ws`。然后，我们使用`Top`属性获取批注所在单元格的上边距，并将其赋值给变量`cmtTop`。最后，我们使用`Evaluate`方法结合`CEILING`函数和`ActiveWindow.PointsToScreenPixelsY(1)`方法来计算批注所在的页码，并将结果赋值给变量`cmtPage`。最后，我们使用`MsgBox`函数显示批注所在的页码。