Excel 如果满足多个条件,请选择语句

Excel 如果满足多个条件,请选择语句,excel,vba,Excel,Vba,大家好,现在我听说使用select和case语句可能会出现一些问题,但是这是我知道的唯一方法,我需要让这个项目尽可能简单,以便其他像我这样不知道在做什么的人可以更新代码。这是我到目前为止所拥有的 Select Case True Case Range("a1") = "One" And Range("a2") = "full" Rows("56:83").Select Selection.EntireRow.Hidden = True Range("A1:j1").Sel

大家好,现在我听说使用select和case语句可能会出现一些问题,但是这是我知道的唯一方法,我需要让这个项目尽可能简单,以便其他像我这样不知道在做什么的人可以更新代码。这是我到目前为止所拥有的

Select Case True
Case Range("a1") = "One" And Range("a2") = "full"
    Rows("56:83").Select
    Selection.EntireRow.Hidden = True
    Range("A1:j1").Select
    Range("A2") = "(Change Form Type)"
    Range("A3") = "One"
我知道这可能是完全错误的,至少有一点,因为它不起作用,但希望你能看到我的逻辑

短暂性脑缺血发作 Dan

此解决方案(未测试)如何:

两个问题:

  • 选择
    A1:J1
    有什么意义
  • 您确定
    A1
    A2
    的大小写是否正确(大写,小写)

  • 您可能会从阅读中受益。您的代码有什么问题?有错误吗?您对代码的期望是什么?它做了什么?你的问题是什么阅读可能有助于改善你的问题。没有错误只是没有任何作用。我基本上需要一种方法来运行代码,如果某个单元格中的某个值为真,而另一个单元格中的某个值为真,那么可能它影响了错误的工作表?签出我的第一条注释中的链接,并为每个
    范围
    对象指定一个工作表。避免使用
    选择
    。不惜一切代价选择
    。•尝试修复它,如果它不能解决您的问题,请返回相关代码和示例(请参阅)。如果它不能运行,则两个条件都不满足。
    If (Range("A1") = "One") And (Range("A2") = "full") Then
      Rows("56:83").EntireRow.Hidden = True
      Range("A2") = "(Change Form Type)"
      Range("A3") = "One"
      Range("A1:J1").Select
    End If