В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Макрос для извлечения данных из диаграммы в Excel

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

Эта статья на английском языке:300643
Для Microsoft Excel 2000 версии данной статьи См 213814.
Microsoft Excel 98 и более ранней версии статьи, см. 137016.
Аннотация
В Microsoft Excel для извлечения данных из диаграммы даже Если данные представляют собой внешнего листа или книги. Это полезно в ситуации, когда был создан из диаграммы, или связанного с другой файл, который является недоступен или каким-то образом повреждена. Когда это исходные данные для диаграммы потери данных можно продолжать получать из диаграммы, с помощью Microsoft Visual Basic для приложений макроса.
Дополнительная информация
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации без гарантии или подразумеваемых. Это включает, но не ограничиваясь Чтобы подразумеваемые гарантии товарности или пригодности для определенной Цель. В данной статье предполагается, что вы знакомы с программированием язык, рассчитаны и с помощью средств, которые используются для создания и отладки. Сотрудники службы поддержки корпорации Майкрософт могут объяснить функциональные возможности конкретной процедуры, но они не изменит их Примеры расширения его функциональности или удовлетворения ваших особые требования.

Следующий пример макроса размещение диаграммы источник данных в листе с названием «chartdata» в активной книге начала в первом столбце и первой строки.
  1. В окне модуля введите следующий код:
    Sub GetChartValues()   Dim NumberOfRows As Integer   Dim X As Object   Counter = 2   ' Calculate the number of rows of data.   NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)   Worksheets("ChartData").Cells(1, 1) = "X Values"   ' Write x-axis values to worksheet.   With Worksheets("ChartData")      .Range(.Cells(2, 1), _      .Cells(NumberOfRows + 1, 1)) = _      Application.Transpose(ActiveChart.SeriesCollection(1).XValues)   End With   ' Loop through all series in the chart and write their values to   ' the worksheet.   For Each X In ActiveChart.SeriesCollection      Worksheets("ChartData").Cells(1, Counter) = X.Name      With Worksheets("ChartData")         .Range(.Cells(2, Counter), _         .Cells(NumberOfRows + 1, Counter)) = _         Application.Transpose(X.Values)      End With      Counter = Counter + 1   NextEnd Sub					
  2. Вставьте новый лист в книгу и переименуйте его в "ChartData" (без кавычек).
  3. Выделите диаграмму, из которого следует извлечь значения данных.

    ПРИМЕЧАНИЕ: Диаграмма может быть включена на листе или на отдельном лист диаграммы.
  4. Запустить GetChartValues макрос.

    Данные из диаграммы помещаются в Лист «chartdata».

Действия, чтобы связать диаграммы восстановленные данные

Чтобы быть интерактивным восстановленные данные на диаграмме, требуется ссылка на новый лист данных диаграммы, а не сохранять ссылки на книга отсутствует или поврежден.
  1. Выделите диаграмму и выберите ряд, чтобы найти имя листа к которому диаграмма связана в книге отсутствует или поврежден. Имя листа появляется в серии формулы в строке формул.

    ПРИМЕЧАНИЕ: Имя листа может следовать имя книги, заключенное в квадратные скобки, например «[Книга1]» и предшествовать восклицательный знак "!" (или апостроф и восклицательный знак ""! ") Указывает начало ячейки ссылка. Имя листа содержит только знаки между закрываемым символ квадратной скобкой "]" и восклицательный знак (или апостроф и восклицательный знак). Пропустите любые апостроф, если непосредственно перед пометить восклицательный знак, так как апостроф не может быть последним символом в Имя листа.
  2. Дважды щелкните вкладку нового листа именем ChartData.
  3. Введите исходное имя листа, начиная с шага 1 по сравнению с выделенный «chartdata» и нажмите клавишу ВВОД. Это имя должно быть таким же, как Имя листа в книге отсутствует или поврежден.
  4. Если вы не сохранили этот файл с диаграммой и данными лист, сохраните файл.
  5. В Excel 2003 или Excel 2002, нажмите кнопку Ссылки на очередь Редактирование меню, а затем нажмите кнопку Изменение источника.

    В Excel 2007, нажмите кнопку Данные Щелкните Изменить ссылкиВ диалоговом окне Connenctions группы и нажмите кнопкуИзменение источника.
  6. В Исходный файл Выберите ссылку Изменить, а затем нажмите кнопку Изменение источника.
  7. В Изменить связи диалоговое окно выберите новый файл с их, и диаграммы, а затем нажмите кнопку ОК.
  8. Если появляется следующее сообщение об ошибке
    В формуле содержится Недопустимая внешняя ссылка лист.
    вполне вероятно, что имя листа, которое вы ввели на шаге 3 не совпадает с исходным. Вернитесь к шагу 1.
  9. В Исходный файл поле теперь может быть пустым. Это означает, что все ссылки указывают на активный файл вместо отсутствующих или поврежденных файлов. Нажмите кнопку Закрыть.
Теперь диаграмма ссылается и взаимодействует с восстановленные данные на переименованный лист активной книги.
связи разорвать связь восстановить поврежденный повреждения восстановить inf XL2002 XL2003 XL2007

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

Свойства

Номер статьи: 300643 — последний просмотр: 09/19/2011 07:09:00 — редакция: 7.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition

  • kbdtacode kbhowto kbprogramming kbmt KB300643 KbMtru
Отзывы и предложения