Приравнивание значений и форматов ячеек
Sapphira
Дата: Четверг, 14.04.2016, 13:53 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Здравствуйте! Помогите, пожалуйста, в решении следующей задачи. Необходимо приравнять ячейки одного листа к ячейкам другого. Но важно, чтоб не только значения появлялись на приравниваемом листе, но также и цвет ячейки. Пример во вложенном файле. Заранее благодарю!
Здравствуйте! Помогите, пожалуйста, в решении следующей задачи. Необходимо приравнять ячейки одного листа к ячейкам другого. Но важно, чтоб не только значения появлялись на приравниваемом листе, но также и цвет ячейки. Пример во вложенном файле. Заранее благодарю! Sapphira
Ответить
Сообщение Здравствуйте! Помогите, пожалуйста, в решении следующей задачи. Необходимо приравнять ячейки одного листа к ячейкам другого. Но важно, чтоб не только значения появлялись на приравниваемом листе, но также и цвет ячейки. Пример во вложенном файле. Заранее благодарю! Автор - Sapphira Дата добавления - 14.04.2016 в 13:53
_Boroda_
Дата: Четверг, 14.04.2016, 14:06 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16911
Репутация:
6616
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Вот такой макрос в модуль второго листа [vba]Код
Private Sub Worksheet_Activate() Me.UsedRange.Clear Лист1.UsedRange.Copy Me.Range(Лист1.UsedRange.Address) End Sub
[/vba]
Вот такой макрос в модуль второго листа [vba]Код
Private Sub Worksheet_Activate() Me.UsedRange.Clear Лист1.UsedRange.Copy Me.Range(Лист1.UsedRange.Address) End Sub
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Вот такой макрос в модуль второго листа [vba]Код
Private Sub Worksheet_Activate() Me.UsedRange.Clear Лист1.UsedRange.Copy Me.Range(Лист1.UsedRange.Address) End Sub
[/vba] Автор - _Boroda_ Дата добавления - 14.04.2016 в 14:06
Sapphira
Дата: Четверг, 14.04.2016, 14:38 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
_Boroda_, спасибо большое, это то, что необходимо, но я наверно не совсем правильно что-то делаю. Я зашла в редактор ALT+F11, слева нашла нужный мне файл и лист, в открывшееся окно внесла код, а дальше как его сохранить? чтоб потом включить
_Boroda_, спасибо большое, это то, что необходимо, но я наверно не совсем правильно что-то делаю. Я зашла в редактор ALT+F11, слева нашла нужный мне файл и лист, в открывшееся окно внесла код, а дальше как его сохранить? чтоб потом включить Sapphira
Ответить
Сообщение _Boroda_, спасибо большое, это то, что необходимо, но я наверно не совсем правильно что-то делаю. Я зашла в редактор ALT+F11, слева нашла нужный мне файл и лист, в открывшееся окно внесла код, а дальше как его сохранить? чтоб потом включить Автор - Sapphira Дата добавления - 14.04.2016 в 14:38
китин
Дата: Четверг, 14.04.2016, 14:48 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
ALT+F8 там ищите или на кнопку можно повесить
ALT+F8 там ищите или на кнопку можно повесить китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение ALT+F8 там ищите или на кнопку можно повесить Автор - китин Дата добавления - 14.04.2016 в 14:48
_Boroda_
Дата: Четверг, 14.04.2016, 14:51 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16911
Репутация:
6616
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Правой мышой на ярлык второго листа - Исходный код - туда макрос. Он должен сразу начать работать. Только вторую строку на всякий случай перепишите немного [vba]Код
Me.UsedRange.Clear Sheets("Основной").UsedRange.Copy Me.Range(Sheets("Основной").UsedRange.Address)
[/vba] Потом cохраняете книгу в формате xlsm или xlsb
Правой мышой на ярлык второго листа - Исходный код - туда макрос. Он должен сразу начать работать. Только вторую строку на всякий случай перепишите немного [vba]Код
Me.UsedRange.Clear Sheets("Основной").UsedRange.Copy Me.Range(Sheets("Основной").UsedRange.Address)
[/vba] Потом cохраняете книгу в формате xlsm или xlsb _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Правой мышой на ярлык второго листа - Исходный код - туда макрос. Он должен сразу начать работать. Только вторую строку на всякий случай перепишите немного [vba]Код
Me.UsedRange.Clear Sheets("Основной").UsedRange.Copy Me.Range(Sheets("Основной").UsedRange.Address)
[/vba] Потом cохраняете книгу в формате xlsm или xlsb Автор - _Boroda_ Дата добавления - 14.04.2016 в 14:51
Sapphira
Дата: Четверг, 14.04.2016, 15:09 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Всем большое спасибо еще раз! Работает
Всем большое спасибо еще раз! Работает Sapphira
Ответить
Сообщение Всем большое спасибо еще раз! Работает Автор - Sapphira Дата добавления - 14.04.2016 в 15:09