Можно ли редактировать исходное представление объектов в Excel?

Question

Я часто копирую и вставляю рабочие листы, чтобы показать один и тот же анализ для разных наборов данных. Это включает в себя графики. Раздражает необходимость «выбирать данные» для каждого ряда данных, полос ошибок и т.д. Для каждого набора данных.

После того как я создал график для одного листа, я могу выбрать:

• Скопируйте график на другой лист. Используйте «выберите данные» для каждой части
• Скопируйте весь лист, затем замените данные

Я бы предпочел иметь возможность видеть представление XML (или что-либо еще) за графиком и выполнять поиск и замену в именах рабочих столов / именах столбцов. Интерфейс Excel сильно мешает и не позволяет легко менять график (особенно для панелей ошибок).

Есть ли текстовое представление объектов, таких как графики, которые я могу редактировать? (Я бы не стал возиться с извлечением файла xlsx и редактированием файлов XML в текстовом редакторе).

Answer 1

Вставить данные в Excel 2007 из ...

Открыть файл CSV

открытая часть мастера I

открыть мастера часть II

открыть мастера часть III

вставить выбор ячейки

обновить данные из файла CSV

просмотреть файл CSV в Far Manager

Установить тип диаграммы

Редактировать файл CSV

Обновить данные Excel

Редактировать файл CSV

Обновить данные Excel

Настройка данных безопасности

Все это. При необходимости вставьте поверните таблицу и графическое изображение).

Answer 2

Как насчет редактирования формул серии? У меня есть учебное пособие по формуле серии изменений - улучшенные процедуры, но суть заключается в следующем:

Формула серии выглядит следующим образом:=SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$11,Sheet1!$B$2:$B$11,1)

Аргументы означают:=SERIES([Series Name],[X Values],[Y Values],[Plot Order])

Вы получаете доступ к этим формулам в VBA, используя что-то вроде ActiveChart.SeriesCollection(1).формула

Вы можете использовать следующее, чтобы изменить часть формулы с `OldString 'на' NewString ':

ActiveChart.SeriesCollection(1).Formula = WorksheetFunction.Substitute( _
    ActiveChart.SeriesCollection(1).Formula, OldString, NewString)

Вы можете обернуть это в хорошую процедуру VBA, которая просит пользователя заменить эту старую строку новой строкой, а затем вносит изменения во все серии в активной диаграмме:

Sub ChangeSeriesFormula()
    ''' Just do active chart
    If ActiveChart Is Nothing Then
        '' There is no active chart
        MsgBox "Please select a chart and try again.", vbExclamation, _
            "No Chart Selected"
        Exit Sub
    End If

    Dim OldString As String, NewString As String, strTemp As String
    Dim mySrs As Series

    OldString = InputBox("Enter the string to be replaced:", "Enter old string")

    If Len(OldString) > 1 Then
        NewString = InputBox("Enter the string to replace " & """" _
            & OldString & """:", "Enter new string")
        '' Loop through all series
        For Each mySrs In ActiveChart.SeriesCollection
            strTemp = WorksheetFunction.Substitute(mySrs.Formula, _
                OldString, NewString)
            mySrs.Formula = strTemp
        Next
    Else
        MsgBox "Nothing to be replaced.", vbInformation, "Nothing Entered"
    End If
End Sub

В приведенном выше уроке есть больше примеров того, как редактировать формулы ряда.