|
楼主 |
发表于 2020-4-11 15:43
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 yjh_27 于 2020-5-5 21:52 编辑
增加 指定咧BOM排序
来源
批量提取各阶bom表信息
http://club.excelhome.net/thread-1524734-1-1.html
(出处: ExcelHome技术论坛)
增加 每一个都要作为一级展开。再把全部层次的也要全部展开。
来源
运行出错,实在是改不好,请帮忙看看,多谢!!
http://club.excelhome.net/thread-1531276-1-1.html
(出处: ExcelHome技术论坛)
输入型号得到BOM清单
http://club.excelhome.net/thread-1512451-1-1.html
(出处: ExcelHome技术论坛)
如何根据已有树状序号实现自动分级并自动分级汇总
http://club.excelhome.net/thread-1535601-1-1.html
(出处: ExcelHome技术论坛)
补充内容 (2020-9-19 17:56):
如何根据父阶规则批量分组?
http://club.excelhome.net/thread-1556554-1-1.html
(出处: ExcelHome技术论坛)
Sub aa()
r = Range("a" & Rows.Count).End(xlUp).Row
arr = Range("a5:b" & r)
Call AddOutline(arr, 5, 2, "-")
End Sub
补充内容 (2020-9-26 11:23):
父子结构改变为树状
http://club.excelhome.net/thread-1557505-1-1.html
(出处: ExcelHome技术论坛)
Sub aa()
r = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row
arr = Sheets("Sheet1").Range("a2:b" & r)
brr = BOMSort(arr, 1, 2, -3)
crr = BOMLevel(brr, 3, , 0, , , -2)
Sheets("Sheet2").Range("a32").Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub
补充内容 (2020-12-12 13:56):
分组问题
http://club.excelhome.net/thread-1567157-1-1.html
Sub aa()
r = Range("a" & Rows.Count).End(xlUp).Row
arr = Range("a4:k" & r)
brr = BOMLevel(arr, "11-2", -1, 0)
Call AddOutline(brr, 4, 1)
E... |
|