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

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:213447
Эта статья помещена в архив. Она предлагается "как есть" и обновляться не будет.
Аннотация
В 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. Заголовок типа диаграммы по запросу.На диаграмме Ганта отображается на новый лист диаграммы. Можно добавить дополнительные форматирование.
gannt XL2002 XL2000 XL97

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 213447 — последний просмотр: 12/05/2015 12:12:42 — редакция: 2.0

Microsoft Excel 2000 Standard Edition, Microsoft Excel 2002 Standard Edition, Microsoft Excel 97 Standard Edition

  • kbnosurvey kbarchive kbhowto kbmt KB213447 KbMtru
Отзывы и предложения