如何为If then语句指定特定的单元格值?

时间:2018-11-05 18:33:43

标签: excel vba

我试图弄清楚如何为按钮指定特定的单元格。应该查看活动工作表上的单元格,然后基于该单元格的值使另一个工作表处于活动状态。(在本例中为其他工作表名称)如果单元格中没有任何内容,那么我希望按钮不执行任何操作。

这是我的代码。

Sub Review()
If Sheets(ActiveWorkSheet).Range("F4").Value Is Nothing Then
    Else
    Sheets((ActiveWorkSheet.Range("F4").Value)).Visible = True
    Sheets((ActiveWorkSheet.Range("F4").Value)).Activate
End If

结束子

1 个答案:

答案 0 :(得分:0)

尝试改用ActiveSheet

Sub Review()
  If Not ActiveSheet.Range("F4") Is Nothing Then
      ActiveWorkbook.Sheets(ActiveSheet.Range("F4").Value).Activate
  End If
End Sub