用Excel画甘特图步骤

以下是在Excel中制作甘特图的步骤：

1. 打开Excel并创建一个新的工作表。

2. 在第一列中输入任务名称。

3. 在第二列中输入任务开始时间。

4. 在第三列中输入任务结束时间。

5. 在第四列中计算每个任务的持续时间（结束时间减去开始时间）。

6. 在第五列中输入每个任务的完成百分比。

7. 选择第一列至第五列的所有单元格。

8. 点击“插入”选项卡，然后在“图表”组中选择“甘特图”。

9. 在“甘特图”对话框中，选择“任务名称”列作为任务名称，选择“开始时间”列作为开始时间，选择“持续时间”列作为持续时间，选择“完成百分比”列作为完成百分比。

10. 点击“确定”按钮，Excel将自动生成甘特图。

11. 可以根据需要进行格式设置和美化，例如添加图例、修改颜色、调整字体等。

12. 保存并分享您的甘特图。

相关问题

怎么用excel做甘特图包含实际和计划的

要用Excel制作包含实际和计划的甘特图，可以按照以下步骤进行操作：

1. 打开Excel并创建一个新的工作表。
2. 在工作表中，创建不同的列来代表任务的信息，例如任务名称、开始日期、结束日期、计划开始日期、计划结束日期、实际开始日期、实际结束日期等。
3. 在任务名称列中输入各个任务的名称。
4. 在开始日期和结束日期列中分别输入各个任务的计划开始日期和计划结束日期。
5. 在计划开始日期和计划结束日期之间创建一个柱状条形图，以可视化任务的计划时间段。
6. 在实际开始日期和实际结束日期列中输入各个任务的实际开始日期和实际结束日期。
7. 在实际开始日期和实际结束日期之间创建另一个柱状条形图，以可视化任务的实际时间段。
8. 根据需要，可以对甘特图进行格式化，例如调整柱状图的颜色、添加数据标签等。
9. 可以使用Excel的筛选功能，按照不同的任务状态进行筛选，以便查看特定任务的计划和实际时间段。
10. 根据需要，可以对甘特图进行进一步的调整和美化，例如添加标题、图例、网格线等，以使其更加清晰和易于理解。

通过以上步骤，就可以利用Excel制作包含实际和计划的甘特图。这样，你就可以清晰地了解任务的计划和实际进展，并能有效地进行项目管理和调整。

excel vba甘特图

以下是使用Excel VBA绘制甘特图的步骤：

1. 打开Excel文件并按Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，选择插入 -> 模块，然后在新模块中输入以下代码：

Sub DrawGanttChart()
    Dim StartDate As Date
    Dim EndDate As Date
    Dim Duration As Integer
    Dim RowCount As Integer
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim ChartTitle As String
    Dim ChartRange As Range
    Dim Chart As ChartObject
    Dim Series As Series
    
    '设置甘特图标题
    ChartTitle = "甘特图"
    
    '设置甘特图数据范围
    Set ChartRange = Range("A1:C10")
    
    '获取数据行数
    RowCount = ChartRange.Rows.Count
    
    '创建图表对象
    Set Chart = ActiveSheet.ChartObjects.Add(Left:=10, Width:=800, Top:=10, Height:=400)
    
    '设置图表类型为甘特图
    Chart.Chart.ChartType = xlGantt
    
    '设置图表标题
    Chart.Chart.HasTitle = True
    Chart.Chart.ChartTitle.Text = ChartTitle
    
    '设置X轴为日期格式
    Chart.Chart.Axes(xlCategory).CategoryType = xlTimeScale
    
    '设置Y轴标题
    Chart.Chart.Axes(xlValue).HasTitle = True
    Chart.Chart.Axes(xlValue).AxisTitle.Text = "任务"
    
    '循环添加数据系列
    For i = 2 To RowCount
        StartDate = ChartRange.Cells(i, 2).Value
        EndDate = ChartRange.Cells(i, 3).Value
        Duration = EndDate - StartDate
        
        Set Series = Chart.Chart.SeriesCollection.NewSeries
        Series.Name = ChartRange.Cells(i, 1).Value
        Series.Values = "{""" & Duration & """}"
        Series.XValues = "{""" & StartDate & """}"
    Next i
    
    '设置数据系列格式
    For j = 1 To Chart.Chart.SeriesCollection.Count
        Chart.Chart.SeriesCollection(j).Format.Line.ForeColor.RGB = RGB(0, 0, 0)
        Chart.Chart.SeriesCollection(j).Format.Line.Weight = 2
        Chart.Chart.SeriesCollection(j).Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Next j
    
    '设置甘特图样式
    Chart.Chart.ApplyLayout (6)
    
    '设置甘特图颜色
    For k = 1 To Chart.Chart.SeriesCollection.Count
        Chart.Chart.SeriesCollection(k).Interior.ColorIndex = k
    Next k
End Sub

3. 在Excel中，输入甘特图数据并选择数据范围。
4. 按Alt + F8打开宏窗口，选择DrawGanttChart并运行它。
5. 甘特图将被绘制在Excel工作表上。