Question

我有一个命令按钮，为我做了很多计算。要创建用户界面，我需要从＆＃34;计算＆＃34;移动按钮。选择＆＃34;用户界面＆＃34;片。移动按钮后，我需要将输入和输出解决为＆＃34;计算＆＃34;片。我使用with语句如下：

  With Sheets("Calculation")
    .Range("C3", Range("C3").End(xlDown)).Clear
    .Range("X3", Range("X3").End(xlDown)).Clear
    .Range("Y3", Range("Y3").End(xlDown)).Clear
    .Range("z3", Range("z3").End(xlDown)).Clear
    .Range("AC3", Range("AC3").End(xlDown)).Clear
    .Range("B3", Range("B3").End(xlDown)).Clear
    .Range("E4", Range("E4").End(xlDown)).Clear
    .Range("A3", Range("A3").End(xlDown)).Clear
    .Range("K3", Range("K3").End(xlDown)).Clear
    .Range("D3", Range("D3").End(xlDown)).Clear

End With

我有一个运行时错误＆＃39; 1004＆＃39; （表示：Applicaiton -defined或对象定义的错误。）

我想知道如何调用＆＃34;计算＆＃34;当我在＆＃34;用户界面＆＃34;片材。

Answer 1

您收到错误的原因是因为您的Range语句中的第二个错误。如果没有.您引用当前工作表而不是With语句中的工作表，那么运行时错误是因为该范围无法在两张纸上定义。

With Sheets("Calculation")
    .Range("C3", .Range("C3").End(xlDown)).Clear
    .Range("X3", .Range("X3").End(xlDown)).Clear
    .Range("Y3", .Range("Y3").End(xlDown)).Clear
    .Range("z3", .Range("z3").End(xlDown)).Clear
    .Range("AC3", .Range("AC3").End(xlDown)).Clear
    .Range("B3", .Range("B3").End(xlDown)).Clear
    .Range("E4", .Range("E4").End(xlDown)).Clear
    .Range("A3", .Range("A3").End(xlDown)).Clear
    .Range("K3", .Range("K3").End(xlDown)).Clear
    .Range("D3", .Range("D3").End(xlDown)).Clear
End With

将命令按钮移动到vba中的新工作表

1 个答案: