Question

我已经创建了一个电子表格，当有内容输入C列时，它会自动填写B栏中的日期/时间。但是有一个风险，即双击或更改单元格会更新日期和时间，我不知道如果已填充它，则希望它执行此操作。

如果单元格有内容，我需要添加到代码中以停止宏运行？

这是我使用的编码：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("C8:C27")) Is Nothing Then

        With Target(1, -0)

            .Value = Now

            .EntireColumn.AutoFit

        End With

    End If

End Sub

Answer 1

在将日期写入其中之前检查B列中的单元格是否为空是非常简单的。在With语句中，只需检查B中单元格的值是否为空白，如果其中有内容，则退出该单元格。否则，请运行代码将日期写入单元格。

With Target(1, -0)
    If .Value <> "" Then Exit Sub

    .Value = Now

    .EntireColumn.AutoFit

End With

如果单元格有内容，如何停止Excel VBS运行

1 个答案: