Вод данных в диапазон с добавлением макросом еще данных
plohish
Дата: Вторник, 07.10.2014, 14:48 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация:
1
±
Замечаний:
60% ±
Excel 2010
Уважаемые форумчане Здравствуйте! Прошу помощи! Нужен макро код который выполнял-бы следущее. При вводе какого либо числа в одну ячейку из диапазона A1:A10 макрос добавлял бы к этой цифре например /15/59/006-ип. Как-бы склеивая то что вводится в ячейку и номер через косую. Пример не прикрепляю, думаю, что изложил суть довольно ясно...
Уважаемые форумчане Здравствуйте! Прошу помощи! Нужен макро код который выполнял-бы следущее. При вводе какого либо числа в одну ячейку из диапазона A1:A10 макрос добавлял бы к этой цифре например /15/59/006-ип. Как-бы склеивая то что вводится в ячейку и номер через косую. Пример не прикрепляю, думаю, что изложил суть довольно ясно... plohish
Спасибки
Ответить
Сообщение Уважаемые форумчане Здравствуйте! Прошу помощи! Нужен макро код который выполнял-бы следущее. При вводе какого либо числа в одну ячейку из диапазона A1:A10 макрос добавлял бы к этой цифре например /15/59/006-ип. Как-бы склеивая то что вводится в ячейку и номер через косую. Пример не прикрепляю, думаю, что изложил суть довольно ясно... Автор - plohish Дата добавления - 07.10.2014 в 14:48
Rioran
Дата: Вторник, 07.10.2014, 14:55 |
Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация:
290
±
Замечаний:
0% ±
Excel 2013
plohish , здравствуйте. Вставляется в модуль листа, на котором такие полезности нужны. [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub Application.EnableEvents = False If Not Intersect(Target, [A1:A10]) Is Nothing Then Target.Value = Target.Value & "/15/59/006-ип" End If Application.EnableEvents = True End Sub
[/vba]
plohish , здравствуйте. Вставляется в модуль листа, на котором такие полезности нужны. [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub Application.EnableEvents = False If Not Intersect(Target, [A1:A10]) Is Nothing Then Target.Value = Target.Value & "/15/59/006-ип" End If Application.EnableEvents = True End Sub
[/vba]Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279
Ответить
Сообщение plohish , здравствуйте. Вставляется в модуль листа, на котором такие полезности нужны. [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub Application.EnableEvents = False If Not Intersect(Target, [A1:A10]) Is Nothing Then Target.Value = Target.Value & "/15/59/006-ип" End If Application.EnableEvents = True End Sub
[/vba]Автор - Rioran Дата добавления - 07.10.2014 в 14:55
plohish
Дата: Вторник, 07.10.2014, 15:00 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация:
1
±
Замечаний:
60% ±
Excel 2010
Большущее спасибо а то делал все функциями СЦЕПИТЬ неудобно!!!
Большущее спасибо а то делал все функциями СЦЕПИТЬ неудобно!!! plohish
Спасибки
Ответить
Сообщение Большущее спасибо а то делал все функциями СЦЕПИТЬ неудобно!!! Автор - plohish Дата добавления - 07.10.2014 в 15:00
plohish
Дата: Вторник, 07.10.2014, 15:08 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация:
1
±
Замечаний:
60% ±
Excel 2010
Не дает запустится так как там уже прописан макрос с такой же командой Private Sub Worksheet_Change(ByVal Target As Range) который копирует строки, что делать???
Не дает запустится так как там уже прописан макрос с такой же командой Private Sub Worksheet_Change(ByVal Target As Range) который копирует строки, что делать??? plohish
Спасибки
Ответить
Сообщение Не дает запустится так как там уже прописан макрос с такой же командой Private Sub Worksheet_Change(ByVal Target As Range) который копирует строки, что делать??? Автор - plohish Дата добавления - 07.10.2014 в 15:08
Rioran
Дата: Вторник, 07.10.2014, 15:09 |
Сообщение № 5
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация:
290
±
Замечаний:
0% ±
Excel 2013
plohish , либо стереть, если он не нужен для этого листа, либо совместить оба макроса в один. Если второй вариант нужнее - прикладывайте лист, можно без данных.
plohish , либо стереть, если он не нужен для этого листа, либо совместить оба макроса в один. Если второй вариант нужнее - прикладывайте лист, можно без данных.Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279
Ответить
Сообщение plohish , либо стереть, если он не нужен для этого листа, либо совместить оба макроса в один. Если второй вариант нужнее - прикладывайте лист, можно без данных.Автор - Rioran Дата добавления - 07.10.2014 в 15:09
plohish
Дата: Вторник, 07.10.2014, 17:09 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация:
1
±
Замечаний:
60% ±
Excel 2010
спасибо попробую соеденить если получится!
спасибо попробую соеденить если получится! plohish
Спасибки
Ответить
Сообщение спасибо попробую соеденить если получится! Автор - plohish Дата добавления - 07.10.2014 в 17:09
Pelena
Дата: Вторник, 07.10.2014, 17:20 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19342
Репутация:
4522
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
plohish
Дата: Вторник, 07.10.2014, 17:38 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация:
1
±
Замечаний:
60% ±
Excel 2010
Спасибо вам огромное буду разбираться. Думаю выберу что нить подходящее. Кстати объединение то же нашел. Разбираюсь пока!!!
Спасибо вам огромное буду разбираться. Думаю выберу что нить подходящее. Кстати объединение то же нашел. Разбираюсь пока!!! plohish
Спасибки
Ответить
Сообщение Спасибо вам огромное буду разбираться. Думаю выберу что нить подходящее. Кстати объединение то же нашел. Разбираюсь пока!!! Автор - plohish Дата добавления - 07.10.2014 в 17:38
plohish
Дата: Вторник, 07.10.2014, 18:04 |
Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация:
1
±
Замечаний:
60% ±
Excel 2010
Разобрался. Да это то же (тема)!!! Воспользуюсь. Спасибо!!!
Разобрался. Да это то же (тема)!!! Воспользуюсь. Спасибо!!! plohish
Спасибки
Ответить
Сообщение Разобрался. Да это то же (тема)!!! Воспользуюсь. Спасибо!!! Автор - plohish Дата добавления - 07.10.2014 в 18:04