XL: модуля Visual Basic для создания диаграммы Ганта

Переводы статьи Переводы статьи
Код статьи: 213447 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

В этой статье

Аннотация

В Microsoft Excel, можно создавать диаграммы Ганта, отображающие состояние задачи, для планирования проектов и элементов управления. В данной статье описывается, как программно создавать этот тип диаграммы с помощью Microsoft Visual Basic для приложений процедуры.

Дополнительная информация

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и или подразумеваемых, включая, но не ограничиваясь только ими, подразумеваемые гарантии товарности или пригодности для определенной цели. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования, а также необходимых средств разработки и отладки.. Специалисты служб технической поддержки Майкрософт могут пояснить назначение тех или иных конструкций кода в конкретном примере, но модификация примеров и их адаптация к задачам разработчика не поддерживается..
, Если имеют ограниченный опыт программирования, может потребоваться обратиться к партнеру корпорации Майкрософт или консультационной службе корпорации Майкрософт. Для получения дополнительных сведений посетите следующие веб-узел Майкрософт:

Корпорация Майкрософт Сертифицированные партнеры-https://Partner.Microsoft.com/Global/30000104

Рекомендации корпорации Майкрософт службы-http://support.Microsoft.com/gp/advisoryservice

Для получения дополнительных сведений о поддержке, которые доступны, а также о том, как связаться с корпорацией Майкрософт, посетите следующий веб-узел корпорации Майкрософт:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSДля создания Visual Basic для приложений макроса в Microsoft Excel, которые можно использовать для создания диаграммы Ганта, выполните следующие действия:
  1. Для запуска Excel.
  2. Нажмите клавиши ALT + F11, чтобы запустить редактор Visual Basic.
  3. НаВставкаменю, нажмите кнопкуМодуль.
  4. Типа или вставьте следующий код в окне модуля Visual Basic:
    Option Explicit
     
    Sub Gantt_Chart()
        'Define the variables.
        Dim rge As String
        Dim ValueAxisMinValue As Date
        Dim shtname As String
        Dim Title As String, aChart As Chart
        'Store the location of the data as a string.
        rge = Selection.Address()
        'Store the start date for the chart.
        ValueAxisMinValue = Selection.Cells(2, 2).Value
        'Ask user for the Chart title.
        Title = InputBox("Please enter the title")
        'Store the sheet name.
        shtname = ActiveSheet.Name
        'Turn off screen updating.
        Application.ScreenUpdating = False
        'Create a chart located on a chart sheet.
        Set aChart = Charts.Add
        With aChart
            .ChartWizard Source:=Sheets(shtname).Range(rge), _
            Gallery:=xlBar, Format:=3, PlotBy:=xlColumns, _
            CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
            Title:=Title, CategoryTitle:="", ValueTitle:="", _
            ExtraTitle:=""
            'Remove the legend.
            .Legend.Delete
            'Create and format the series.
            With .SeriesCollection(1)
                With .Border
                    .Weight = xlThin
                    .LineStyle = xlNone
                End With
                .InvertIfNegative = False
                .Interior.ColorIndex = xlNone
            End With
            'Modify the category (x) axis.
            With .Axes(xlCategory)
                .ReversePlotOrder = True
                .TickLabelSpacing = 1
                .TickMarkSpacing = 1
                .AxisBetweenCategories = True
            End With
            'Modify the value (y) axis.
            With .Axes(xlValue)
                .MinimumScale = ValueAxisMinValue
                .MaximumScaleIsAuto = True
                .MinorUnitIsAuto = True
                .MajorUnitIsAuto = True
                .Crosses = xlAutomatic
                .ReversePlotOrder = False
                .ScaleType = False
                .HasMajorGridlines = True
                .HasMinorGridlines = False
            End With
         End With
        'Turn screen updating back on.
        Application.ScreenUpdating = True
     
     End Sub
    					
  5. Нажмите клавиши ALT + F11, чтобы вернуться в Excel.

С помощью макроса

Использование макроса Gantt_chart, выполните следующие действия:
  1. В новую электронную таблицу Microsoft Excel, введите следующие значения:
         A1:            B1: START        C1: DAYS          D1: DAYS
         A2: TASK       B2: DATE         C2: COMPLETED     D2: REMAINING
         A3: TASK-1     B3: 1/1/91       C3: 150           D3: 15
         A4: TASK-2     B4: 5/1/91       C4: 21            D4: 31
         A5: TASK-3     B5: 7/1/91       C5: 0             D5: 114
         A6: TASK-4     B6: 10/1/91      C6: 0             D6: 4
         A7: TASK-5     B7: 10/15/91     C7: 0             D7: 31
         A8: TASK-6     B8: 11/1/91      C8: 0             D8: 2
    					
  2. Выделите ячейки A2:D8.
  3. НаСредствавыберите пункт менюМакрос, а затем нажмите кнопкуМакросы.
  4. Нажмите кнопкуGantt_chart, а затем нажмите кнопкуЗапустить.
  5. Заголовок типа диаграммы по запросу. На диаграмме Ганта отображается на новый лист диаграммы. Можно добавить дополнительные форматирование.

Свойства

Код статьи: 213447 - Последний отзыв: 19 сентября 2011 г. - Revision: 2.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 97 Standard Edition
Ключевые слова: 
kbhowto kbmt KB213447 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:213447

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com