VB Excel 宏毫秒计时

使用VB Excel宏毫秒计时提高效率

vb
Sub MeasureExecutionTime()
    Dim startTime As Double
    Dim endTime As Double
    Dim executionTime As Double
    
    ' 记录开始时间
    startTime = Timer
    
    ' 执行代码段
    ' 在这里插入你的代码
    
    ' 记录结束时间
    endTime = Timer
    
    ' 计算执行时间
    executionTime = endTime - startTime
    
    ' 在消息框中显示执行时间
    MsgBox "代码段执行时间为：" & executionTime & " 秒"
End Sub

vb
Sub FilterData()
    Dim startTime As Double
    Dim endTime As Double
    Dim executionTime As Double
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 记录开始时间
    startTime = Timer
    
    ' 获取源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表")
    
    ' 禁用自动计算和屏幕刷新
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    ' 筛选数据
    sourceSheet.Range("A1:D10000").AutoFilter Field:=1, Criteria1:="条件"
    sourceSheet.Range("A1:D10000").SpecialCells(xlCellTypeVisible).Copy targetSheet.Range("A1")
    
    ' 清除筛选
    sourceSheet.AutoFilterMode = False
    
    ' 启用自动计算和屏幕刷新
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
    ' 记录结束时间
    endTime = Timer
    
    ' 计算执行时间
    executionTime = endTime - startTime
    
    ' 在消息框中显示执行时间
    MsgBox "数据筛选执行时间为：" & executionTime & " 秒"
End Sub