- 博客(3)
- 收藏
- 关注
原创 计算工作日
Function GetWorkdayCount(StartDay As Date, EndDay As Date) As Integer Dim NumS As Integer, NumY As Integer Dim WeekdayNumY(7, 6) As Integer WeekdayNumY(1, 1) = 0 WeekdayNumY(1, 2) = 0 WeekdayNumY(1, 3...
2019-01-27 11:52:26 919
原创 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 135
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人