摘要：
Sub 文件夹路径() Dim fp$, obmapp As Object Set obmapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", 0, 0) If Not obmapp Is Nothing The 阅读全文
摘要：
Sub 取消工作表保护() Dim sht As Worksheet For Each sht In Worksheets sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=Tr 阅读全文
摘要：
测试类函数： IsNumeric(x) 是否为数字, 返回Boolean结果。 IsDate(x) 是否是日期, 返回Boolean结果。 IsEmpty（x） 是否为Empty, 返回Boolean结果。 IsArray(x) 指出变量是否为一个数组。 IsError(expression) 指出 阅读全文