Question

我知道这是因为“或”，但我希望有人可以解释为什么它不起作用。

If (Sheet.Name <> "Dep 1" Or "Test") Then

^

Sub DeleteSheet()

Dim Sheet As Worksheet

Application.DisplayAlerts = False

For Each Sheet In ActiveWorkbook.Sheets

    If (Sheet.Name <> "Dep 1" Or "Test") Then

        Sheet.Delete

     End If

 Next Sheet

Application.DisplayAlerts = False

End Sub

Answer 1

我对这篇文章的“两分钱”：

尝试使用有意义的变量名称，但 NOT 过于接近Excel的保存单词。 Dim Sheet与Sheets相似约85％，这是Object的一种类型，我在这里看到很多帖子，人们cell与Cells混淆并得到运行时错误。

我已将If与Select Case .Name切换为Worksheets，如果将来您添加了更多Worksheets或想要对其他Option Explicit Sub DeleteSheet() Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ActiveWorkbook.Sheets With ws Select Case .Name Case "Dep 1", "Test" ' do nothing for now Case Else .Delete End Select End With Next ws Application.DisplayAlerts = True ' <-- restore setting End Sub执行其他操作，修改代码会更容易。

<强>代码

//Variable size of Array program to print Array elements

#include <iostream>
using namespace std;

int main()
{
    cout << "Enter Array size x:" << endl;
    int x = 0;
    cin >> x;

    int *ptrArray = new int[x];

    //Inittialise Array 
    for (int i = 0; i < x; i++)
    {
        ptrArray[i] = i + 1;
    }

    //Print Array elemts
    cout << "Array elements:";
    for (int i = 0; i < x; i++)
    {
        cout << ptrArray[i] << endl;
    }   

    delete[] ptrArray;

    return 0;
}

我想知道为什么这段代码无效？

1 个答案: