摘要： 把这几天写的程序，指定给一个控件，变成了一键式了。 不足之处是，执行效率太低了。 Sub 一键计算() Dim Wb As Workbook, MyPath, File As String MyPath = ThisWorkbook.Path & "\" File = Dir(MyPath & "* 阅读全文