Excel表格使用VBA自动记录时间

1、打开Excel表格，点击【文件】，【另存为】，在“保存类型”里面选择“Excel 启用宏的工作薄”并进行保存。

2、点击【开发工具】，【Visual Basic】打开VBA工程窗口。

3、在左侧的“VBAProject（自动记录时间点.xlsm）”下方双击“Sheet1(Sheet1）”打开代码输入窗口。

4、在代码输入窗口里面输入以下VBA代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表选定区域发生改变时执行

Dim b1 As Boolean

Dim a, b, c, d, e, f As Variant

Dim i, j As Integer

Set myDocument = ThisWorkbook.Worksheets("Sheet1")

For i = 2 To 1000    '循环2-1000次，即：以下自动填充时间到1000行

a = myDocument.Cells(i, 1)  '将单元格赋值给a

b = myDocument.Cells(i, 2)

c = myDocument.Cells(i, 3)

d = myDocument.Cells(i, 4)

e = myDocument.Cells(i, 5)

f = myDocument.Cells(i, 6)

b1 = WorksheetFunction.And(a <> "", b <> "", c <> "", d <> "", e <> "")

If b1 = True And f = "" Then  '如果所在行已经填写信息且自动填充时间为空白，则执行自动填充时间

myDocument.Cells(i, 6) = Now()

End If

Next

End Sub

5、在同一行上面的第1到第5列对应的单元格都写入数据信息，且同一行上面的第6列对应的单元格是空白的，那么就会在同一行上面的第6个单元格里面自动写入当前的时间。