说说如何在 Excel 中构建类似 Microsoft Project 中的任务层级结构

ゝ一世哀愁。 2022-12-27 14:17 160阅读 0赞

Microsoft Project的任务列表一般情况下都会具有层级结构，即大任务分解为小任务，点击“收缩”按钮，就可以把觉得太长的子任务列表收缩起来。形如：

![f3d487fda34a48dac970baa243aefec1.png][]

如果直接导出，那么这些大小任务都在一列展示，不仅看不出关系，而且还没有伸缩功能。这时就要用到 VBA 在 Excel 中实现类似的功能。

VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言2。

首先我们需要任务之间的层级关系数据。Microsoft Project 中的“大纲级别”字段描述的就是任务之间的层级关系：

![ca4e78af8b32833e6322dda98a06f3e4.png][]

我们可以先将“大纲级别”字段与其他数据字段一并导出到 Excel 中：

![8f0fb09daf76050884c5298aec8beeb8.png][]

接着按ALT+F11 进入VBA编辑器，选择插入模块：

![1773976e68d511e3704de1fe21c354bd.png][]

输入如下代码：

Sub 分级显示()
    
    Dim i
    
    i = 2
    
    On Error Resume Next
    
    Do While Cells(i, 1).Value <> ""
    
    Rows(i).OutlineLevel = Cells(i, 1).Value
    
    Cells(i, 2).IndentLevel = Cells(i, 1) - 1
    
    i = i + 1
    
    Loop
    
    End Sub

我们来分析一下这段代码：

*  首先使用Dim来声明变量和分配存储空间3；
 *  On Error Resume Next 表示程序出现错误时，直接跳到下一条语句；
 *  接着从 Excel的第二行开始，通过 Cells(i,1) 方法取出大纲级别数据。Cells(x,y) 表示取出第 x 行、第 y 列所对应单元格内的内容；
 *  然后使用Rows(i).OutlineLevel 来指定本行的大纲层级4；
 *  接着使用 Cells(i, 2).IndentLevel 来指定第二列单元格的缩进量5，如果是第一级则不进行缩进；

> indent ɪnˈdent;

To start a line of print or writing further away from the edge of the page than the other lines.

接着点击左上角的绿色箭头按钮，然后在弹出的“宏”对方框中点击“运行”按钮：

![3e3ce2abc2e04556533de8c046170dab.png][]

然后关闭 VBA 编辑器。接着再点击“数据”标签内的“分级显示”设置图标：

![e05a429898dfb172ea5face55082e8ac.png][]

取消勾选“明细数据的下方”：

![3734c8d63cb6f88095c4ddf991a0ca0c.png][]

这样就把“分级显示”框放到了明细数据的上方咯：

![b56234b2f21056fde43aa21d405d453b.png][]

左上角还有一排的层级号，点击相应的层级号，可以按照该层级进行收缩操作：

![9e18ffc20b0797fdb65fedbcc8cf254c.png][]

--------------------

参考资料：  
【1】 [VBA （Visual Basic宏语言）][VBA _Visual Basic]  
【2】[Dim 语句][Dim].  
【3】[Range.OutlineLevel 屬性 (Excel)][Range.OutlineLevel _ _Excel].  
【4】[IndentLevel 属性 (Excel)][IndentLevel _ _Excel].  
【5】[从PROJECT导出到EXCEL中的任务如何快速分级][PROJECT_EXCEL].

[f3d487fda34a48dac970baa243aefec1.png]: /images/20221120/42fded567b354513ba2e3bae0d37287a.png
[ca4e78af8b32833e6322dda98a06f3e4.png]: /images/20221120/328ef0875aa14b0b98a985995a20492a.png
[8f0fb09daf76050884c5298aec8beeb8.png]: /images/20221120/f143b7b812d14fa286646cca4fbbda18.png
[1773976e68d511e3704de1fe21c354bd.png]: /images/20221120/a2ed346eaa354d9ebeac0dcd6dd712ac.png
[3e3ce2abc2e04556533de8c046170dab.png]: /images/20221120/5fc2b9bbc61f4536bb744d4e8bb81570.png
[e05a429898dfb172ea5face55082e8ac.png]: /images/20221120/def81a74c91e41f3881e769311a1201a.png
[3734c8d63cb6f88095c4ddf991a0ca0c.png]: /images/20221120/f116fe8fb5de44dd8ff0ac54ef5f982b.png
[b56234b2f21056fde43aa21d405d453b.png]: /images/20221120/0fa1ee9f8aed4d66b20ffcfc92743981.png
[9e18ffc20b0797fdb65fedbcc8cf254c.png]: /images/20221120/fbb0f256b79b4f4e924389886b0fa976.png
[VBA _Visual Basic]: https://baike.baidu.com/item/VBA/1596798?fr=aladdin
[Dim]: https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/dim-statement
[Range.OutlineLevel _ _Excel]: https://docs.microsoft.com/zh-tw/office/vba/api/excel.range.outlinelevel?redirectedfrom=MSDN
[IndentLevel _ _Excel]: https://docs.microsoft.com/zh-cn/office/vba/api/excel.range.indentlevel
[PROJECT_EXCEL]: https://jingyan.baidu.com/article/d621e8dac06fdf6864913f0e.html