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

Вход

Регистрация

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

 

= Мир MS Excel/Скопировать связку табличка + график. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скопировать связку табличка + график. (Формулы/Formulas)
Скопировать связку табличка + график.
Юрий_Нд Дата: Суббота, 22.06.2019, 16:03 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 394
Репутация: 10 ±
Замечаний: 0% ±

Excel 2013
Ещё раз Доброго дня всем.
У меня на листе "табличка-1", а справа "график-1"
Хотелось бы, чуть ниже разместить "табличку-2", а справа "график-2".
Пробовал копировать, но получается, что "график-2" берёт данные из "табличка-1".
Что можно придумать?
Спасибо _________ Юрий.
 
Ответить
СообщениеЕщё раз Доброго дня всем.
У меня на листе "табличка-1", а справа "график-1"
Хотелось бы, чуть ниже разместить "табличку-2", а справа "график-2".
Пробовал копировать, но получается, что "график-2" берёт данные из "табличка-1".
Что можно придумать?
Спасибо _________ Юрий.

Автор - Юрий_Нд
Дата добавления - 22.06.2019 в 16:03
krosav4ig Дата: Суббота, 22.06.2019, 17:16 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2182
Репутация: 913 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Доброго
[vba]
Код
Sub x()
    Dim r As Range
    With [Таблица1[#all]]
        Set r = .Offset(.Rows.Count + 1)(1, 1)
        .Copy r: r.ListObject.Name = "Таблица2"
    End With
    With [Диаграмма 1].Duplicate
        .Top = .BottomRightCell.Offset(1).Top
        .Left = .Left - 12
        .Name = "Диаграмма 2"
        .Chart.SetSourceData [Таблица2]
    End With
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 22.06.2019, 17:16
 
Ответить
СообщениеДоброго
[vba]
Код
Sub x()
    Dim r As Range
    With [Таблица1[#all]]
        Set r = .Offset(.Rows.Count + 1)(1, 1)
        .Copy r: r.ListObject.Name = "Таблица2"
    End With
    With [Диаграмма 1].Duplicate
        .Top = .BottomRightCell.Offset(1).Top
        .Left = .Left - 12
        .Name = "Диаграмма 2"
        .Chart.SetSourceData [Таблица2]
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 22.06.2019 в 17:16
Юрий_Нд Дата: Суббота, 22.06.2019, 17:23 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 394
Репутация: 10 ±
Замечаний: 0% ±

Excel 2013
Спасибо Красавчик, а "без ВБА тут каши не сваришь"?
"Ну типа Контрол С, Контрол В?"
 
Ответить
СообщениеСпасибо Красавчик, а "без ВБА тут каши не сваришь"?
"Ну типа Контрол С, Контрол В?"

Автор - Юрий_Нд
Дата добавления - 22.06.2019 в 17:23
krosav4ig Дата: Суббота, 22.06.2019, 17:34 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2182
Репутация: 913 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Юрий_Нд, Копируете лист, Ctrl+X, Ctrl+V


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЮрий_Нд, Копируете лист, Ctrl+X, Ctrl+V

Автор - krosav4ig
Дата добавления - 22.06.2019 в 17:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скопировать связку табличка + график. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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