|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.01.2019, 15:09 | #1 |
Регистрация: 28.12.2018
Сообщений: 6
|
Макросы победили
Добрый день! Прошу помощи у знающих людей, с макросами не дружу вообще, но задачу надо решить как-то. Слепил что смог с учетом этого форума. Объясню, что требуется: нужно при выделении позиции галкой переносить данные из лист 1 D;E;F в лист 5 C;D;E. Макрос для выделения позиций брал этот:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B9:B20")) Is Nothing Then Application.EnableEvents = False Target.Font.Name = "Marlett" Target = "a" Application.EnableEvents = True End If End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B9:B20")) Is Nothing Then Application.EnableEvents = False Cancel = True Target.ClearContents Application.EnableEvents = True End If End Sub |
04.01.2019, 15:57 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
без маркеров, двойной клик по ячейке в колонке наименование
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
04.01.2019, 20:16 | #3 |
Регистрация: 28.12.2018
Сообщений: 6
|
А можно все-таки сделать с помощью маркера?
|
04.01.2019, 20:22 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
можно.
делайте с помощью маркера
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поля и макросы - программирование поля через макросы | КарандашТМ | Microsoft Office Word | 1 | 25.02.2017 16:45 |
Макросы | Екатерина2808 | Microsoft Office Word | 1 | 27.06.2015 04:19 |
Наши опять победили | mutabor | Свободное общение | 4 | 05.12.2010 15:10 |
МАКРОСЫ | MaxNguyen | Microsoft Office Word | 3 | 03.07.2010 22:20 |