vba - 一个 Excel 宏，用于根据列范围内任意位置的值切换工作表

Question

我正在尝试创建一个宏，当在 A 列的任何单元格中键入“是”一词时，它将从 Sheet1 切换到 Sheet2。我最接近让它工作的是使用下面的代码来切换工作表在特定单元格中键入“是”时。

Sub ifs()
If Worksheets("Sheet1").Range("A1").Value = "Yes" Then
Sheets("Sheet2").Select
Else
End If
End Sub

Answer 1

就像我提到的那样，您可以在 Cell 中创建一个超链接，A1它会直接将您带到 Sheet2，但如果您想要 vba 代码，请尝试此操作。此代码将进入工作表代码区域Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa

    If Target.CountLarge > 1 Then Exit Sub

    Application.EnableEvents = False

    If Not Intersect(Target, Columns(1)) Is Nothing And _
    UCase(Target.Value) = "YES" Then _
    ThisWorkbook.Sheets("Sheet2").Activate

Letscontinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub

注意：如果您对超链接方法感兴趣，那么值得一游。结帐部分Create a hyperlink to a specific location in a workbook

Answer 2

Sub ifs()
If WorkSheetFunction.CountIf(Worksheets("Sheet1").Range("A:A"),"Yes") > 0 Then
Sheets("Sheet2").Select
End If
End Sub