Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение координат на графике - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение координат на графике (Формулы/Formulas)
Изменение координат на графике
vdekameron Дата: Вторник, 09.12.2014, 11:38 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть 2 столбца чисел- первый столбец - это икс, второй столбец- игрик. По этим данным строится график. Можно ли как то быстро менять местами эти координаты. Чтобы на графике значения игрик оказались на оси икс а значения которые были на абсциссе переходили на ординату. ??? Можно конечно поменять местами сами столбцы по которым строится график и затем построить новый, но у меня таких 50. Было бы здорово если можно как-то быстро менять.
К сообщению приложен файл: 4859701.xlsx (20.0 Kb)
 
Ответить
СообщениеЕсть 2 столбца чисел- первый столбец - это икс, второй столбец- игрик. По этим данным строится график. Можно ли как то быстро менять местами эти координаты. Чтобы на графике значения игрик оказались на оси икс а значения которые были на абсциссе переходили на ординату. ??? Можно конечно поменять местами сами столбцы по которым строится график и затем построить новый, но у меня таких 50. Было бы здорово если можно как-то быстро менять.
Автор - vdekameron
Дата добавления - 09.12.2014 в 11:38
DJ_Marker_MC Дата: Вторник, 09.12.2014, 11:53 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
1. Правой кнопкой мыши по графику.
2. Выбрать данные.
3. Кнопка по центру "Строка/Столбец"
К сообщению приложен файл: 2778004.xlsx (21.7 Kb) · 0818987.jpg (42.0 Kb)
 
Ответить
Сообщение1. Правой кнопкой мыши по графику.
2. Выбрать данные.
3. Кнопка по центру "Строка/Столбец"
Автор - DJ_Marker_MC
Дата добавления - 09.12.2014 в 11:53
vdekameron Дата: Вторник, 09.12.2014, 12:02 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
DJ_Marker_MC, а что за график странный получился. откуда так на нем взялись значения по игрику доходящие аж до 140. График должен получиться точно такой же как и при изначальных значениях. т.к. зависимость не меняется
 
Ответить
СообщениеDJ_Marker_MC, а что за график странный получился. откуда так на нем взялись значения по игрику доходящие аж до 140. График должен получиться точно такой же как и при изначальных значениях. т.к. зависимость не меняется
Автор - vdekameron
Дата добавления - 09.12.2014 в 12:02
DJ_Marker_MC Дата: Вторник, 09.12.2014, 13:45 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
vdekameron, макрос
Выделяете диаграмму и нажимаете кнопку ПОМЕНЯТЬ (Только обязательно нужно клацнуть по диаграмме сперва, ато вернет ошибку)

[vba]
Код
Sub iReplace()
Dim xVals As String, yVals As String

xVals = ActiveChart.SeriesCollection(1).Formula
yVals = ActiveChart.SeriesCollection(1).Formula
n = ActiveSheet.Name & "!"

'Вытягиваем формулу оси x.
xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop
xVals = Right(xVals, Len(xVals) - InStr(xVals, "!"))

'Вытягиваем формулу оси y.
yVals = Mid(yVals, InStr(InStr(yVals, ","), yVals, _
Mid(Left(yVals, InStr(yVals, "!") - 1), 9)))
yVals = Right(yVals, InStr(InStr(yVals, "!"), yVals, ",") + 1)
yVals = Left(yVals, InStr(InStr(yVals, "!"), yVals, ",") - 1)
yVals = Right(yVals, Len(yVals) - InStr(yVals, "!"))

'меняем формулу
ActiveChart.SeriesCollection(1).Formula = ("=SERIES(," & n & yVals & "," & n & xVals & ",1)")

End Sub
[/vba]
К сообщению приложен файл: marker.xlsm (29.0 Kb)
 
Ответить
Сообщениеvdekameron, макрос
Выделяете диаграмму и нажимаете кнопку ПОМЕНЯТЬ (Только обязательно нужно клацнуть по диаграмме сперва, ато вернет ошибку)

[vba]
Код
Sub iReplace()
Dim xVals As String, yVals As String

xVals = ActiveChart.SeriesCollection(1).Formula
yVals = ActiveChart.SeriesCollection(1).Formula
n = ActiveSheet.Name & "!"

'Вытягиваем формулу оси x.
xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop
xVals = Right(xVals, Len(xVals) - InStr(xVals, "!"))

'Вытягиваем формулу оси y.
yVals = Mid(yVals, InStr(InStr(yVals, ","), yVals, _
Mid(Left(yVals, InStr(yVals, "!") - 1), 9)))
yVals = Right(yVals, InStr(InStr(yVals, "!"), yVals, ",") + 1)
yVals = Left(yVals, InStr(InStr(yVals, "!"), yVals, ",") - 1)
yVals = Right(yVals, Len(yVals) - InStr(yVals, "!"))

'меняем формулу
ActiveChart.SeriesCollection(1).Formula = ("=SERIES(," & n & yVals & "," & n & xVals & ",1)")

End Sub
[/vba]
Автор - DJ_Marker_MC
Дата добавления - 09.12.2014 в 13:45
vdekameron Дата: Вторник, 09.12.2014, 14:01 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
DJ_Marker_MC, спасибо большое!!!
 
Ответить
СообщениеDJ_Marker_MC, спасибо большое!!!
Автор - vdekameron
Дата добавления - 09.12.2014 в 14:01
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение координат на графике (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!