VBA编码在相邻单元格的值通过vLookup更改时为其加时间戳

时间:2018-05-30 19:03:13

标签: vba timestamp vlookup

我有一个我正在处理的电子表格,它在VBA中对它进行了一些编码。我有一个标有数量的列和右边的第2列,称为" out date"我希望它的时间戳是"数量"已填充

列中的值"数量"通过vlookup从工作簿中的另一个工作表填充。

我注意到如果我在“数量列”中手动输入值,时间戳工作正常,但是一旦我通过vlookup设置它,它就不再输入列中的时间戳"输出日期"。

此流程的代码目前如下:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCellColumn As Integer
    Dim xTimecolumn As Integer
    Dim xRow, xCol As Integer

    xCellColumn = 11
    xTimecolumn = 13
    xRow = Target.Row
    xCol = Target.Column

    If Target.Text <> "" Then
        If xCol = xColumn Then
            Cells(xRow, xTimecolumn) = Now()
        End If
    End If
End Sub

当通过vlookup输入值时,是否仍然可以自动输入时间戳?

我做了一些广泛的搜索,我所能找到的是如何通过输入单元格值来更改时间戳

0 个答案:

没有答案