卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

如何快速將任務(wù)從Project導(dǎo)出到Excel中并保持分級顯示

作為計劃工程師或計劃管理人員,經(jīng)常需要將任務(wù)從Project導(dǎo)出到Excel中。這是因為Excel是一種通用軟件,可被任何人打開和編輯。此外,Excel還具有強(qiáng)大的數(shù)據(jù)處理能力,可以解決Project

作為計劃工程師或計劃管理人員,經(jīng)常需要將任務(wù)從Project導(dǎo)出到Excel中。這是因為Excel是一種通用軟件,可被任何人打開和編輯。此外,Excel還具有強(qiáng)大的數(shù)據(jù)處理能力,可以解決Project無法處理的問題,如生成S-Curve和進(jìn)行進(jìn)度計算。然而,當(dāng)將任務(wù)復(fù)制到Excel中時,分級顯示往往會丟失,我們只能手動進(jìn)行任務(wù)分組。而對于任務(wù)數(shù)目較多的情況下,手動分組將變得非常繁瑣。所以,我們是否有更簡單的方法呢?

具體操作步驟

以下是將任務(wù)從Project導(dǎo)出到Excel并保持分級顯示的具體做法:

1. 在Project中,任務(wù)列表如下圖所示。

2. 在“任務(wù)名稱”列前面增加一列,命名為“大綱級別”,如下圖所示。

3. 將“大綱級別”和“任務(wù)名稱”兩列復(fù)制到Excel中,如下圖所示。

4. 在Excel中按下ALT F11,進(jìn)入VBA編輯器,插入一個新模塊,并輸入以下代碼:

```

Sub GroupTasks()

Dim i As Integer

Dim level As Integer

For i 2 To Cells(, "A").End(xlUp).Row

level Cells(i, 1).Value

If level > 1 Then

Cells(i, 2).IndentLevel level - 1

Else

Cells(i, 2).IndentLevel 0

End If

Next i

End Sub

```

5. 運行代碼,結(jié)果如下圖所示。

6. 在Excel中點擊“數(shù)據(jù)”菜單,在“分組顯示”面板中找到右下角的箭頭,點擊后會出現(xiàn)設(shè)置對話框。勾選取消“明細(xì)數(shù)”的復(fù)選框,如下圖所示。

7. 最后的結(jié)果如下圖所示,它與Project中的任務(wù)是否一致呢?

總結(jié)

通過以上步驟,我們可以快速將任務(wù)從Project導(dǎo)出到Excel中并保持分級顯示。這樣,我們就能夠更方便地進(jìn)行任務(wù)管理和數(shù)據(jù)處理,提高工作效率。希望這個方法能給計劃工程師和計劃管理人員帶來幫助。

標(biāo)簽: