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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование графика в другую книгу - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование графика в другую книгу (Макросы/Sub)
Копирование графика в другую книгу
Jester Дата: Понедельник, 14.03.2016, 09:17 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
И еще раз здравствуйте. На этот раз у меня возникли еще трудности. Допустим заполнил я график выходов, а его еще нужно скопировать в другой график, а это другой файл. Вот как бы сделать так чтобы при нажатии кнопки "копировать" в моем графике я смог бы выбрать этот другой файл и заполнить его сменами. В примерах описание. Заранее всем откликнувшимся спасибо.
К сообщению приложен файл: _1.xlsm(54Kb) · _2.xlsx(18Kb)
 
Ответить
СообщениеИ еще раз здравствуйте. На этот раз у меня возникли еще трудности. Допустим заполнил я график выходов, а его еще нужно скопировать в другой график, а это другой файл. Вот как бы сделать так чтобы при нажатии кнопки "копировать" в моем графике я смог бы выбрать этот другой файл и заполнить его сменами. В примерах описание. Заранее всем откликнувшимся спасибо.

Автор - Jester
Дата добавления - 14.03.2016 в 09:17
Jester Дата: Понедельник, 14.03.2016, 09:18 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Пример 1 - исходный основной график
Пример 2 - график для согласований. В нём не должно быть никаких макросов и связей с исходным.
 
Ответить
СообщениеПример 1 - исходный основной график
Пример 2 - график для согласований. В нём не должно быть никаких макросов и связей с исходным.

Автор - Jester
Дата добавления - 14.03.2016 в 09:18
Jester Дата: Четверг, 17.03.2016, 11:35 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
мда уж. видно очень сложная задача :D
 
Ответить
Сообщениемда уж. видно очень сложная задача :D

Автор - Jester
Дата добавления - 17.03.2016 в 11:35
Manyasha Дата: Четверг, 17.03.2016, 12:59 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1586
Репутация: 661 ±
Замечаний: 0% ±

Excel 2007, 2010
Jester, не поняла немного: надо скопировать тех людей, чьи фамилии есть во втором файле? Или обновить список сотрудников (все фамилии из 1-го файла)?
проверяйте, так?:[vba]
Код
Sub копировать()
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel files", "*.xls*"
        .InitialFileName = ThisWorkbook.Path
        If .Show <> -1 Then Exit Sub
        Set wb = Workbooks.Open(.SelectedItems(1))
    End With
    Dim c1&, c2&, lr&
    c1 = 9: c2 = 39
    With wb.Sheets(1)
        lr = .Cells(Rows.Count, 5).End(xlUp).Row
        Set sh = ThisWorkbook.Sheets("График")
        For i = 6 To lr Step 3
            Set empl = sh.Columns(5).Find(.Cells(i, 5).Value, , , xlWhole)
            If Not empl Is Nothing Then
                Range(.Cells(i, c1), .Cells(i, c2)) = Range(sh.Cells(empl.Row, c1), sh.Cells(empl.Row, c2)).Value
                With Range(.Cells(i + 2, c1), .Cells(i + 2, c2))
                    .Value = Range(sh.Cells(empl.Row + 2, c1), sh.Cells(empl.Row + 2, c2)).Value
                    .FormatConditions.Delete
                    .FormatConditions.Add Type:=xlExpression, Formula1:="=RC=""ОТ"""
                    .FormatConditions(.FormatConditions.Count).SetFirstPriority
                    With .FormatConditions(1).Interior
                        .Color = 8318769
                    End With
                End With
            End If
        Next i
    End With
End Sub
[/vba]

из файла:
Цитата
Также необходимо сделать заполнение дней рождения с листа ДР как и отпуска в автоматическом режиме
не поняла что и куда переносить. В любом случае к данной теме это не относится
К сообщению приложен файл: _1-1.xlsm(59Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеJester, не поняла немного: надо скопировать тех людей, чьи фамилии есть во втором файле? Или обновить список сотрудников (все фамилии из 1-го файла)?
проверяйте, так?:[vba]
Код
Sub копировать()
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel files", "*.xls*"
        .InitialFileName = ThisWorkbook.Path
        If .Show <> -1 Then Exit Sub
        Set wb = Workbooks.Open(.SelectedItems(1))
    End With
    Dim c1&, c2&, lr&
    c1 = 9: c2 = 39
    With wb.Sheets(1)
        lr = .Cells(Rows.Count, 5).End(xlUp).Row
        Set sh = ThisWorkbook.Sheets("График")
        For i = 6 To lr Step 3
            Set empl = sh.Columns(5).Find(.Cells(i, 5).Value, , , xlWhole)
            If Not empl Is Nothing Then
                Range(.Cells(i, c1), .Cells(i, c2)) = Range(sh.Cells(empl.Row, c1), sh.Cells(empl.Row, c2)).Value
                With Range(.Cells(i + 2, c1), .Cells(i + 2, c2))
                    .Value = Range(sh.Cells(empl.Row + 2, c1), sh.Cells(empl.Row + 2, c2)).Value
                    .FormatConditions.Delete
                    .FormatConditions.Add Type:=xlExpression, Formula1:="=RC=""ОТ"""
                    .FormatConditions(.FormatConditions.Count).SetFirstPriority
                    With .FormatConditions(1).Interior
                        .Color = 8318769
                    End With
                End With
            End If
        Next i
    End With
End Sub
[/vba]

из файла:
Цитата
Также необходимо сделать заполнение дней рождения с листа ДР как и отпуска в автоматическом режиме
не поняла что и куда переносить. В любом случае к данной теме это не относится

Автор - Manyasha
Дата добавления - 17.03.2016 в 12:59
Jester Дата: Пятница, 18.03.2016, 13:20 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Manyasha, не работает в моем файле.


Сообщение отредактировал Jester - Пятница, 18.03.2016, 14:59
 
Ответить
СообщениеManyasha, не работает в моем файле.

Автор - Jester
Дата добавления - 18.03.2016 в 13:20
Jester Дата: Пятница, 18.03.2016, 13:31 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
надо скопировать тех людей, чьи фамилии есть во втором файле?


Надо скопировать график для тех кто во втором файле


Сообщение отредактировал Jester - Пятница, 18.03.2016, 13:32
 
Ответить
Сообщение
надо скопировать тех людей, чьи фамилии есть во втором файле?


Надо скопировать график для тех кто во втором файле

Автор - Jester
Дата добавления - 18.03.2016 в 13:31
Jester Дата: Пятница, 25.03.2016, 09:59 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Других предложений не будет? :)
 
Ответить
СообщениеДругих предложений не будет? :)

Автор - Jester
Дата добавления - 25.03.2016 в 09:59
Manyasha Дата: Пятница, 25.03.2016, 10:28 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 1586
Репутация: 661 ±
Замечаний: 0% ±

Excel 2007, 2010
не работает в моем файле
А где он? Вы же не показываете. И что конкретно не работает?


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение
не работает в моем файле
А где он? Вы же не показываете. И что конкретно не работает?

Автор - Manyasha
Дата добавления - 25.03.2016 в 10:28
Jester Дата: Пятница, 29.04.2016, 10:10 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А где он? Вы же не показываете. И что конкретно не работает?


оригинал весит слишком много :)
 
Ответить
Сообщение
А где он? Вы же не показываете. И что конкретно не работает?


оригинал весит слишком много :)

Автор - Jester
Дата добавления - 29.04.2016 в 10:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование графика в другую книгу (Макросы/Sub)
Страница 1 из 11
Поиск:

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