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

Вход

Регистрация

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

 

= Мир MS Excel/Вод данных в диапазон с добавлением макросом еще данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вод данных в диапазон с добавлением макросом еще данных (Макросы/Sub)
Вод данных в диапазон с добавлением макросом еще данных
plohish Дата: Вторник, 07.10.2014, 14:48 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация: 1 ±
Замечаний: 60% ±

Excel 2010
Уважаемые форумчане Здравствуйте! Прошу помощи! Нужен макро код который выполнял-бы следущее. При вводе какого либо числа в одну ячейку из диапазона A1:A10 макрос добавлял бы к этой цифре например /15/59/006-ип. Как-бы склеивая то что вводится в ячейку и номер через косую. Пример не прикрепляю, думаю, что изложил суть довольно ясно... %)

Спасибки
 
Ответить
СообщениеУважаемые форумчане Здравствуйте! Прошу помощи! Нужен макро код который выполнял-бы следущее. При вводе какого либо числа в одну ячейку из диапазона 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]
К сообщению приложен файл: Rio_Adder.xlsb (13.4 Kb)

Роман, Москва, 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
Большущее спасибо а то делал все функциями СЦЕПИТЬ неудобно!!! hands

Спасибки
 
Ответить
СообщениеБольшущее спасибо а то делал все функциями СЦЕПИТЬ неудобно!!! hands
Автор - 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
Дата добавления - 07.10.2014 в 15:08
Rioran Дата: Вторник, 07.10.2014, 15:09 | Сообщение № 5
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
plohish, либо стереть, если он не нужен для этого листа, либо совместить оба макроса в один.

Если второй вариант нужнее - прикладывайте лист, можно без данных.

Роман, Москва, 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
Дата добавления - 07.10.2014 в 17:09
Pelena Дата: Вторник, 07.10.2014, 17:20 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19189
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Можно без макроса, установить пользовательский формат Основной"/15/59/006-ип"

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМожно без макроса, установить пользовательский формат Основной"/15/59/006-ип"
Автор - Pelena
Дата добавления - 07.10.2014 в 17:20
plohish Дата: Вторник, 07.10.2014, 17:38 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация: 1 ±
Замечаний: 60% ±

Excel 2010
Спасибо вам огромное буду разбираться. Думаю выберу что нить подходящее. Кстати объединение то же нашел. Разбираюсь пока!!!

Спасибки
 
Ответить
СообщениеСпасибо вам огромное буду разбираться. Думаю выберу что нить подходящее. Кстати объединение то же нашел. Разбираюсь пока!!!
Автор - plohish
Дата добавления - 07.10.2014 в 17:38
plohish Дата: Вторник, 07.10.2014, 18:04 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация: 1 ±
Замечаний: 60% ±

Excel 2010
Разобрался. Да это то же (тема)!!! Воспользуюсь. Спасибо!!!

Спасибки
 
Ответить
СообщениеРазобрался. Да это то же (тема)!!! Воспользуюсь. Спасибо!!!
Автор - plohish
Дата добавления - 07.10.2014 в 18:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вод данных в диапазон с добавлением макросом еще данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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