2022年11月29日
工作簿批量改名_多级文件夹
摘要： Public jg Sub 工作簿批量改名2() Dim oldName As String, newName As String, fileName Application.ScreenUpdating = False ar = getCustomerNameAndLastYuEByFullPat 阅读全文
posted @ 2022-11-29 13:41 依云科技 阅读(89) 评论(0) 推荐(0)
工作簿批量改名
摘要： Sub 工作簿批量改名1() Dim oldName As String, newName As String, fileName Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFilePick 阅读全文
posted @ 2022-11-29 13:40 依云科技 阅读(140) 评论(0) 推荐(0)
个税计算2.0
摘要： Public dic As Object, dic_工资求和 As Object, dic_已交税额 As Object, dic_项目信息 As Object, dic_受雇日期 As Object Public ar_res, ar_src Sub main() ' Application.Sc 阅读全文
posted @ 2022-11-29 09:05 依云科技 阅读(17) 评论(0) 推荐(0)
限行列和随机加墙版_递归调用解决结果含负数问题
摘要： Sub 限行列和随机加墙版() Dim nRows As Long, nCols As Long, nLastRow As Long, tmpSum As Long, tmpRow As Long, r As Long, c As Long Dim sumRows() As Long, nRowSk 阅读全文
posted @ 2022-11-29 09:01 依云科技 阅读(28) 评论(0) 推荐(0)
限行列和随机加墙版_过程拆解为若干函数
摘要： Public nRows As Long, nCols As Long, nLastRow As Long, tmpSum As Long, tmpRow As Long, r As Long, c As Long Public sumRows() As Long, nRowSkipSum() As 阅读全文
posted @ 2022-11-29 09:00 依云科技 阅读(23) 评论(0) 推荐(0)