我是一名新手,对vba不熟悉——我只有三天的经验。
无论如何,我有几个表格,用于从用户那里获取一些数据,然后写入到一个单独的“日志”工作表的顶行。我正在使用以下代码:
问题在于,它会在日志表上闪烁半秒钟,然后需要很长时间才能写入。
我让它写入日志的顶行,是因为我在前面的工作表中使用了100个varToken的vlookup数据汇总(有100个不同的token要查找),这些vlookup会在日志表中查找第一个(即顶部)条目。
如果可以更快地写入日志表底部,但是我需要一段代码来替换100个vlookup,该代码将在潜在的成千上万行中查找令牌的最后一次提及,并且运行速度快!
提前感谢!
无论如何,我有几个表格,用于从用户那里获取一些数据,然后写入到一个单独的“日志”工作表的顶行。我正在使用以下代码:
With Worksheets("Log")
.Unprotect
.Range("A2").EntireRow.Insert Shift:=xlDown
.Range("A2") = varToken
.Range("B2") = varAction
.Range("C2") = varLocation
.Range("D2") = varTracking
.Range("E2") = Date
.Range("F2") = Time
.Range("G2") = varPerson
.Range("H2") = varOverride
.Protect
End With
问题在于,它会在日志表上闪烁半秒钟,然后需要很长时间才能写入。
我让它写入日志的顶行,是因为我在前面的工作表中使用了100个varToken的vlookup数据汇总(有100个不同的token要查找),这些vlookup会在日志表中查找第一个(即顶部)条目。
如果可以更快地写入日志表底部,但是我需要一段代码来替换100个vlookup,该代码将在潜在的成千上万行中查找令牌的最后一次提及,并且运行速度快!
提前感谢!