TryMyBest! - 博客园

2020年4月

摘要： 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)