![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
学习笔记
yyxx0406
yyxx0406
展开
-
For Each Next 向单元格数值补虚位
For Each Next 向单元格数值补虚位Sub 向单元格数值补虚位() Dim dyg As Range For Each dyg In Selection dyg.NumberFormatLocal = "@" If Len(dyg) >= 6 Then dyg = "" & dyg E...原创 2019-01-04 21:24:39 · 140 阅读 · 0 评论 -
VBA有关常用语句
1、取得工作表的已用区域地址:MsgBox ActiveSheet.UsedRange.Address(0, 0)转载 2019-01-08 21:30:13 · 276 阅读 · 0 评论 -
计算工作日
Function GetWorkdayCount(StartDay As Date, EndDay As Date) As IntegerDim NumS As Integer, NumY As IntegerDim WeekdayNumY(7, 6) As IntegerWeekdayNumY(1, 1) = 0WeekdayNumY(1, 2) = 0WeekdayNumY(1, 3...原创 2019-01-27 11:52:26 · 932 阅读 · 0 评论