Excel：如何编程以使Excel读取单元格内容，然后切换打开新工作表？

Question

我对编程很陌生（1天的经验），我试图构建一个交互式数据库，但是在进行某些工作时仍然遇到问题。

我希望Excel读取在某个单元格中选择的值，并基于该单元格中的值，然后将其打开到单独的工作表中，在这里我可以开始另一组数据输入。

我尝试了许多不同的选项，但到目前为止，我的代码如下所示：

Dim inputWks As Worksheet
Set inputWks = ("Input")

With inputWks
    If Range("D13").contents = "Yes" Then
        ActiveWorkbook.Sheets("Sheets2").activate
    End If
End With

我知道这是一个简单的问题，但我无法进行这项工作。

Answer 1

尝试这个

Sub DoIt()
    Dim inputWks As Worksheet
    Set inputWks = ActiveWorkbook.Sheets("Input")

    With inputWks
        If Range("D13").Cells(1, 1) = "Yes" Then
           ActiveWorkbook.Sheets("Sheets2").Activate
        End If 
    End With 
End Sub