04 2020 档案

msgbox提示框的样式选择 https://jingyan.baidu.com/article/59703552d69e978fc00740a7.html
摘要：https://jingyan.baidu.com/article/59703552d69e978fc00740a7.html 阅读全文
posted @ 2020-04-27 10:51 TryMyBest! 阅读(296) 评论(0) 推荐(0)
设置边框为实线
摘要：With Range("A4:B10").Borders .LineStyle = xlContinuous .ColorIndex = 0End With http://www.360doc.com/content/17/0918/06/30583536_688007876.shtml 阅读全文
posted @ 2020-04-25 14:15 TryMyBest! 阅读(698) 评论(0) 推荐(0)
大小写转化ucase和lcase
摘要：大小写转化ucase和lcase 阅读全文
posted @ 2020-04-15 13:44 TryMyBest! 阅读(145) 评论(0) 推荐(0)
从数组取出一列。经过两次转置就可放进单元格了
摘要：从数组取出一列。经过两次转置就可放进单元格了 application.index(arr,,1) 阅读全文
posted @ 2020-04-15 09:22 TryMyBest! 阅读(224) 评论(0) 推荐(0)
如何取消隐藏工作簿，使工作簿可见
摘要：workbooks("文件名全称").Windows(1).Visible=True 或者 Windows（“文件名全称”）.Visible=true 阅读全文
posted @ 2020-04-14 22:23 TryMyBest! 阅读(406) 评论(0) 推荐(0)
复制粘贴的问题。对于不在本工作表复制粘贴，似乎必须先激活需要粘贴的工作表
摘要：对于不在本工作表复制粘贴，似乎必须先激活需要粘贴的工作表 .Sheets("计算成本使用").Range("1:1").Copy sh.Range("A1").PasteSpecial 阅读全文
posted @ 2020-04-14 21:58 TryMyBest! 阅读(180) 评论(0) 推荐(0)
application.worksheetfunction.函数和application.函数会有不同
摘要：application.worksheetfunction.函数和application.函数会有不同 阅读全文
posted @ 2020-04-14 10:39 TryMyBest! 阅读(1456) 评论(0) 推荐(0)
自定义函数中引用的单元格有函数的话。系统会运行两次。第一次把单元格的值计算出来。第二次引用这个值来算函数。如果要排除这个问题。可以引用单元格.text
摘要：自定义函数中引用的单元格有函数的话。系统会运行两次。第一次把单元格的值计算出来。第二次引用这个值来算函数。如果要排除这个问题。可以引用单元格.text 阅读全文
posted @ 2020-04-09 10:06 TryMyBest! 阅读(271) 评论(0) 推荐(0)
相同的值计算出的结果却不相等。判断两个数值是否相等可以用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)
自动填充
摘要：Range("Q2:T2").AutoFill Destination:=Worksheets("输入线路").Range("Q2:T" & lnu), Type:=xlFillDefault 阅读全文
posted @ 2020-04-03 15:19 TryMyBest! 阅读(117) 评论(0) 推荐(0)
所有使用的单元格
摘要：.UsedRange 阅读全文
posted @ 2020-04-03 15:13 TryMyBest! 阅读(77) 评论(0) 推荐(0)
粘贴
摘要：Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 阅读全文
posted @ 2020-04-03 15:10 TryMyBest! 阅读(148) 评论(0) 推荐(0)
设置保留两位小数
摘要：.Range("D" & h).NumberFormatLocal = "0.00_ " 阅读全文
posted @ 2020-04-03 14:58 TryMyBest! 阅读(129) 评论(0) 推荐(0)
设置字体颜色微软雅黑
摘要：.Range("A" & h).Font.Name = "微软雅黑" 阅读全文
posted @ 2020-04-03 14:57 TryMyBest! 阅读(485) 评论(0) 推荐(0)
计算当月最多天数
摘要：Day(DateSerial(Year(a), Month(a) + 1, 0)) 阅读全文
posted @ 2020-04-03 14:56 TryMyBest! 阅读(172) 评论(0) 推荐(0)
工作表的保护与去除保护
摘要：If ThisWorkbook.Worksheets("计算").ProtectContents = True Then ThisWorkbook.Worksheets("计算").Unprotect ("clglc123")End If 阅读全文
posted @ 2020-04-03 14:55 TryMyBest! 阅读(188) 评论(0) 推荐(0)
关闭自动计算 Application.Calculation = xlManual '
摘要：Application.Calculation = xlManual ' 阅读全文
posted @ 2020-04-02 15:53 TryMyBest! 阅读(1725) 评论(0) 推荐(0)
屏蔽屏幕更新提示，以及屏蔽链接提示
摘要：Application.ScreenUpdating = False Application.DisplayAlerts = FalseApplication.AskToUpdateLinks = False Application.ScreenUpdating = TrueApplication. 阅读全文
posted @ 2020-04-01 18:15 TryMyBest! 阅读(491) 评论(0) 推荐(0)
修改单元格内字体颜色
摘要：Range("a5").Font.Color = RGB(255, 0, 0) 阅读全文
posted @ 2020-04-01 18:13 TryMyBest! 阅读(171) 评论(0) 推荐(0)