Question

每次您编辑工作表时，我正在编写一个自动计算数字的代码。但是以某种方式，我编写的代码无法正常运行，因为它会给出运行时错误。我检查了单元格和范围，但它们都是有效和正确的。所有涉及的输入和变量都是简单的整数（不超过3个数字）。

我刚得到一份工作任务，以使工作中的一些excel表格自动化，而我最近才刚从中学到vba。

Private Sub Worksheet_Change(ByVal Target As Range)


Dim A As Integer
Dim i As Byte

i = 5

For i = 5 To 12

    If Worksheets("Sheet1").Range("D" & i).Value = "" Or Worksheets("Sheet1").Range("D" & i).Value = 0 Then

            A = Worksheets("Sheet1").Range("E" & i).Value - Worksheets("Sheet1").Range("C" & i).Value

            Worksheets("Sheet1").Range("F" & i).Value = A

    Else
            Worksheets("Sheet1").Range("F" & i).Value = Worksheets("Sheet1").Range("D" & i).Value * Worksheets("Sheet1").Range("B" & i).Value _
            + Worksheets("Sheet1").Range("E" & i).Value - Worksheets("Sheet1").Range("C" & i).Value

    End If

Next i

End Sub

它给出了运行时错误

Answer 1

试一下，让我知道您遇到什么错误：

<nav>
    <ul>
      <li>
        <button type="button" (click)="switch('page1')">
          <span class="icon"></span>
          <span class="label">page1</span>
        </button>
      </li>
      <li>
        <button type="button" (click)="switch('page2')">
          <span class="icon"></span>
          <span class="label">page2</span>
        </button>
      </li>
    </ul>
  </nav>

如何修复由工作表中的代码引起的“运行时错误'-2147417848（80010108）对象_工作表的方法'范围'失败”

1 个答案: