TryMyBest! - 博客园

2020年4月

相同的值计算出的结果却不相等。判断两个数值是否相等可以用if abs（a-b）<0.00001

摘要：因为计算机有小数点偏差。如果判断两个值是否相等。可以用 if abs（a-b）<0.00001 阅读全文

posted @ 2020-04-09 10:05 TryMyBest! 阅读(447) 评论(0) 推荐(0)

自定义函数要放在标准模块里才起作用

摘要：自定义函数要放在标准模块里才起作用阅读全文

posted @ 2020-04-07 23:32 TryMyBest! 阅读(143) 评论(0) 推荐(0)

删除文件

摘要： Kill 路径名阅读全文

posted @ 2020-04-06 10:50 TryMyBest! 阅读(89) 评论(0) 推荐(0)

GetObject函数

摘要： With GetObject(mypath) Workbooks(mysheet).Activate If oTypeColumn = 1 Then arr = oDataTransArrRY2(oSheet, oCellLocation, oColumn) ElseIf oTypeColumn = 阅读全文

posted @ 2020-04-06 10:48 TryMyBest! 阅读(474) 评论(0) 推荐(0)

选择工作簿

摘要： With Workbooks("ExcelBRExcel.xlsx") 阅读全文

posted @ 2020-04-06 10:47 TryMyBest! 阅读(152) 评论(0) 推荐(0)

打开工作簿，关闭工作簿

摘要： ActiveWorkbook.SaveAs filename:=path, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=True Workbooks.Open path 阅读全文

posted @ 2020-04-06 10:45 TryMyBest! 阅读(462) 评论(0) 推荐(0)

dir函数读取相应路径下的文件名或文件夹名

摘要： '1 遍历文件夹 mypath1 = ThisWorkbook.path & "\"folename = Dir(mypath1, vbDirectory) '这里主要是Dir的第二个参数的变化Do If Not folename Like "*.*" Then 'if判断语句主要是去掉（当前目录和阅读全文

posted @ 2020-04-04 23:13 TryMyBest! 阅读(1464) 评论(0) 推荐(0)

除getopenFilename以外。打开文件的另一种方式FileDialog

摘要：除getopenFilename以外。打开文件的另一种方式FileDialog 阅读全文

posted @ 2020-04-04 23:01 TryMyBest! 阅读(342) 评论(0) 推荐(0)

返回当前工作簿的目录ThisWorkbook.path & "\"

摘要：返回当前工作簿的目录ThisWorkbook.path & "\" 阅读全文

posted @ 2020-04-04 22:50 TryMyBest! 阅读(2669) 评论(0) 推荐(0)

筛选

摘要： Selection.AutoFilter ActiveWorkbook.Worksheets("基础数据").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("基础数据").Range("A2:I2").Select Select 阅读全文

posted @ 2020-04-03 18:05 TryMyBest! 阅读(328) 评论(0) 推荐(0)

公告