Question

我是一个菜鸟。

我的宏在单元格值更改为＆＃34;已关闭＆＃34;时添加日期。具体地说，当列M中的单元格值变为＆＃34;已关闭＆＃34;时，它将日期2个单元格添加到左侧，在列K中。完美无缺，直到我编辑任一列中的多个单元格。如果我这样做，我会得到一个13类型的不匹配错误。

这很糟糕，因为这意味着每次我自动填充时都会出现错误。

Click for image of problem...

提前感谢。

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 13 And Target = "Closed" Then
        Target.Offset(0, -2) = Format(Now(), "yyyy-mm-dd")
    End If
End Sub

Answer 1

试试这个：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    For Each cell In Target
        If cell.Column = 13 And cell = "Closed" Then
            Target.Offset(0, -2) = Format(Now(), "yyyy-mm-dd")
        End If
    Next cell
End Sub

Excel宏 - 类型不匹配错误

1 个答案: