尝试使用 VBA 更改工作表中特定单元格的值失败

Question

我的目标是尝试遍历 Excel 2010 工作表中的一组单元格，并在同一个工作表中更改另一个单元格的值。这是我尝试用 VBA 做到这一点的尝试。当我尝试更改定义 moCost 的单元格时，出现“类型不匹配”错误。

另外，我假设当我更改（使用工作表更改事件）我的工作表单元格中的任何一个变量的值时，我使用了 Set 它将更改 moCostAfford si 的值，对吗？只是想确认一下。

任何帮助/指导将不胜感激。

这是我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("I4:K42")) Is Nothing Then
    On Error GoTo haveError
    Application.EnableEvents = False
    Dim moCost As Range, moCostAmount As Range, moCostManual As Range, moCostAfford As ValueChange
    Dim cell As Range, affordabilityRowValues As Range
    Set moCost = Range("A13")
    Set moCostAmt = Range("B13")
    Set moCostManual = Range("B14")
    Set moCostAfford = Range("C13")
    Set affordabilityRowValues = Intersect(Target, Me.Range("I4:K42"))
    For Each cell In affordabilityRowValues.Cells
        If cell.Offset(0, 1) = moCost And cell.Offset(0, 2) = moCostAmount And moCostManual = "0" Then
            moCostAfford = cell.Offset(0, 3).Value
        Else
            moCostAfford = moCostAmount
        End If
    Next
    Set affordabilityRowValues = Nothing
    Set moCostAfford = Nothing
    Set moCostManual = Nothing
    Set moCostAmount = Nothing
    Set moCost = Nothing
    Application.EnableEvents = True
End If
Exit Sub    

haveError:
    MsgBox Err.Description
    Application.EnableEvents = True

End Sub

Answer 1

范围对象分配格式不正确，但除此之外，每次工作表中的任何内容发生更改时，在您做出任何使用决定之前，它们也会被分配。在退出潜艇之前将它们设置为空也是一个好习惯。这是您可能希望扩展的精简版本。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("I4:K42")) Is Nothing Then
        On Error GoTo haveError
        Application.EnableEvents = False
        Dim moCost As Range, moCostManual As Range, moCostAfford As ValueChange
        Dim cell As Range, affordabilityRowValues As Range
        Set moCost = Range("A13")
        Set moCostManual = Range("B14")
        Set moCostAfford = Range("C13")
        Set affordabilityRowValues = Intersect(Target, Me.Range("I4:K42"))
        For Each cell In affordabilityRowValues.Cells
            If cell.Offset(0, 1) = moCost And cell.Offset(0, 2) = moCostManual Then
                moCostAfford = cell.Offset(0, 3).Value
            End If
        Next
        Set affordabilityRowValues = Nothing
        Set moCostAfford = Nothing
        Set moCostManual = Nothing
        Set moCost = Nothing
        Application.EnableEvents = True
    End If
Exit Sub

haveError:
    MsgBox Err.Description
    Application.EnableEvents = True
End Sub

由于您正在使用大量单元格，我可能会转而使用存储单元格值的变量而不是单元格本身。更好的是，直接使用单元格而不是长名称的变量。如果您只是简单地使用名称而不是单元格范围引用，请考虑花时间在Formulas ► Name Manager 中创建一系列命名范围。如果您将 moCost 分配给 A13，那么您的代码可以使用 Range("moCost") 而不是声明变量并将其设置为 A13。