Question

大家好，我听说使用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"

我知道这很可能是完全错误的，至少因为它不起作用而必须这样做，但希望您能看到逻辑即时消息

TIA 丹

Answer 1

该解决方案如何（未测试）：

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

两个问题：

选择A1:J1有什么意义？
您确定A1和A2的大小写（大写，小写）吗？

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

1 个答案: