统计每个单元格公式计算所消耗的时间

p58535860

有什么VBA代码可以统计每个单元格公式计算所消耗的时间吗。

p58535860

网上找到一个统计单元格变化的代码，，运行到8100多条日志就出问题了。哪位大师优化修改一下。

'-----------------------------------------
'模块说明:工作簿改变事件
'功能说明:赋值公用变量,将修改内容记录日志
'-----------------------------------------
'申明公用文本型变量
Public ChangeRanges As String

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Rng As Range
    Z = Timer
    '遍历单元格
    For Each Rng In Target.Cells
        '赋值给公用函数
        ChangeRanges = ActiveSheet.Name & _
                       "；单元格：" & Rng.Address(0, 0) & _
                       "；更改为：" & Rng.Value & _
                       "；时间为：" & VBA.Now & _
                       "；时间差：" & Round(Timer - Z, 2)

        '调用日志模块,写日志

         CreatTxtblog
    Next
End Sub

'创建日志文本文件,并记录E修改内容
Sub CreatTxtblog()
    Dim obj, blogTxt, i%
    '创建文本型日志
    Set obj = CreateObject("scripting.filesystemobject")
    Set blogTxt = obj.OpenTextFile(ThisWorkbook.Path & "\日志.txt", 8, True)
    '修改记录文本,vbCrLf为换行符
    blogTxt.Write ChangeRanges & vbCrLf
    blogTxt.Close
    '释放内存
    Set jac = Nothing
    Set blogTxt = Nothing
End Sub

chxw68

EXCEL应该没有这样的功能吧？

autolzg

在vba代码里引用工作表函数 应该能得到计算时间

chxw68

autolzg 发表于 2019-3-16 20:34
在vba代码里引用工作表函数 应该能得到计算时间

能统计出每个单元格公式所消耗的时间？

jiminyanyan

应没有的。。。。。

ww87725244

上传一个附件

p58535860

可以记录单元格数据变化时间

p58535860

ww87725244 发表于 2019-3-16 21:57
上传一个附件

你随便打开一个表运行下代码 就生成日志了。