excel表格怎么自动升级vba

1.如何用VBA让excel中的时间随着录入操作的动作而自动更新时间

Cells(Target.Row, 1) = Now()

的错误在于“ ，”

vba只识别英文状态的“ ， ”

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row >= 3 And Target.Row <= 100 And _

Target.Column >= 2 And Target.Column <= 10 Then

Application.EnableEvents = False

Cells(Target.Row, 1) = Now()

Application.EnableEvents = True

End If

End Sub

把上面的语句贴上去看看。

这段代码的意思是

在你所激活的单元格在 3行到100行， 2列到10列之间时

所选取当前单元格的第一列 = 当前时间 now()

希望能帮到你。

2.excel 自动更新记录VBA

在工程资源管理器中双击“操作表”单元格，然后粘贴下列代码进去

Dim DumpData(1 To 10, 1 To 6) As Integer

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LogSht As Worksheet, iRow As Integer, iColumn As Integer, TrgColmn As Integer, j As Integer

TrgColmn = Target.Column

If TrgColmn < 9 Or TrgColmn > 14 Then Exit Sub

Set LogSht = Worksheets（"日志"）

iColumn = 4 * (TrgColmn - 9) + 1

Dim i As Integer

i = 3

Do

If LogSht.Cells(i, iColumn) = "" Then Exit Do

i = i + 1

Loop Until False

LogSht.Cells(i, iColumn) = Now

LogSht.Cells(i, iColumn + 1) = DumpData(Target.Row - 4, TrgColmn - 8)

LogSht.Cells(i, iColumn + 2) = Target.Text

LogSht.Cells(i, iColumn + 3) = Target.Address

For i = 1 To 10

For j = 1 To 6

DumpData(i, j) = Cells(i + 4, j + 1)

Next

Next

End Sub第一次变动修改前会出现数据缺失，需人工干预调整

3.excel 自动更新记录VBA

在工程资源管理器中双击“操作表”单元格，然后粘贴下列代码进去 Dim DumpData(1 To 10, 1 To 6) As IntegerPrivate Sub Worksheet_Change(ByVal Target As Range) Dim LogSht As Worksheet, iRow As Integer, iColumn As Integer, TrgColmn As Integer, j As Integer TrgColmn = Target.Column If TrgColmn < 9 Or TrgColmn > 14 Then Exit Sub Set LogSht = Worksheets（"日志"） iColumn = 4 * (TrgColmn - 9) + 1 Dim i As Integer i = 3 Do If LogSht.Cells(i, iColumn) = "" Then Exit Do i = i + 1 Loop Until False LogSht.Cells(i, iColumn) = Now LogSht.Cells(i, iColumn + 1) = DumpData(Target.Row - 4, TrgColmn - 8) LogSht.Cells(i, iColumn + 2) = Target.Text LogSht.Cells(i, iColumn + 3) = Target.Address For i = 1 To 10 For j = 1 To 6 DumpData(i, j) = Cells(i + 4, j + 1) Next NextEnd Sub第一次变动修改前会出现数据缺失，需人工干预调整。

4.如何用VBA让excel中的时间随着录入操作的动作而自动更新时间

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 3 And Target.Row <= 100 And _ Target.Column >= 2 And Target.Column <= 10 Then Application.EnableEvents = False Cells(Target.Row, 1) = Now() Application.EnableEvents = True End IfEnd Sub逗号改为半角。

程序作用：修改b3:j100范围内的数据时，所在行a列时间自动更新。