- 博客(3)
- 收藏
- 关注
RSS订阅原创 计算工作日
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
1042
原创 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
173
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人