Function SubTime(subname)    '记录subname过程或函数执行的时间
    Dim tim1 As Date, tim2 As Date
    tim1 = Timer
    Application.Run subname
    tim2 = Timer
    SubTime = Format(tim2 - tim1, "0.00")
End Function