Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос объединения значений выделенных ячеек
 
#1
05.09.2018 16:30:23
Доброго времени суток, стоит задача отправить несколько сотен запросов сформированных с помощью базы в экселе, работа рутинная и если делать вручную - займет не один день. Прошу помощи. Может ли кто-то наваять простой макрос, который будет добавлять к каждой выделенной ячейке определенный текст и затем объединять их в одну строку с копированием в буфер обмена?
Для примера, как оно должно выглядеть:
Превратить
ООО "Планета" | 01.01.1990 | 555,55 | 101|
В
ООО "Планета" 01.01.1990 года на сумму 555 руб. 50 коп. транзакцией №101
Изменено: Foo Fighter - 05.09.2018 16:33:46
 
 
 
#2
05.09.2018 16:35:03
Цитата
Foo Fighter написал:
Может ли кто-то наваять простой макрос
А Вы что в это время делать будете? :)
По сути, от Вас требуется разбить сумму 555,55 отдельно на рубли и копейки(функция ЦЕЛОЕ в помощь), а все остальное делается элементарными формулами. С датами, возможно, придется сложнее(это я здесь расписывал: Видимое значение ячейки в реальное). Но в основном не так уж сложно, если приложить чуточку усилий.
И сходу скажу, что без примера в виде файла никто вообще ничего делать не станет.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
05.09.2018 16:42:25
Цитата
Дмитрий(The_Prist) Щербаков написал:
А Вы что в это время делать будете?
Благодарить помощника :)
Я примерно понимаю какие процессы необходимо сделать, но я не знаю как их написать в макросе, потому что банально не знаю основ "кодинга" в VBA. Макрос не сложный, предположил, что человек знающий по доброте душевной сможет это сделать за 5 минут.
Изменено: Foo Fighter - 05.09.2018 16:47:49
 
 
 
#4
05.09.2018 16:54:00
Foo Fighter, а зачем делать макросом то, что делается элементарной формулой, простите? Особенно если
Цитата
Foo Fighter написал:
банально не знаю основ "кодинга" в VBA
 
 
 
#5
05.09.2018 16:55:24
Потому что не знал, что так можно:)
 
 
 
#6
05.09.2018 17:15:05
=A2&" "&B2&" года на сумму "&C2&" транзакцией "&D2
а как разбить сумму на руб и коп не знаю
 
 
 
#7
05.09.2018 17:26:43
Вариант
Код
=ЦЕЛОЕ(C2)&" руб. "&ОКРУГЛ((C2-ЦЕЛОЕ(C2))*100;2)&" коп."
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
05.09.2018 17:26:58
Если всё это начинается с ячейки А1:
Код
=A1&" "&A2&" года на сумму "&ЗАМЕНИТЬ(A3;НАЙТИ(",";A3;1);1;" руб. ")&" коп. транзакцией №"&A4
Изменено: StoTisteg - 05.09.2018 17:27:03
 
 
 
#9
05.09.2018 17:38:59
Цитата
StoTisteg написал:
Если всё это начинается с ячейки А1:
Спасибо! Работает! А если, допустим, в колонке целое число, без копеек, как добавить запятую и после нее 0 коп.? И почему-то дату воспринимает как число "42536", при том, что формат ячейки Дата.
Изменено: Foo Fighter - 05.09.2018 17:45:00
 
 
 
#10
05.09.2018 17:48:50
=A2&" "&ТЕКСТ(B2;"ДД.ММ.ГГГ")&" года на сумму "&ПОДСТАВИТЬ(C2;",";" руб. ")&" коп. транзакцией №"&D2
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#11
05.09.2018 17:57:09
Вот. Это идеально. Спасибо.
 
 
 
#12
05.09.2018 18:30:20
Цитата
Foo Fighter написал:
при том, что формат ячейки Дата
я еще в первом ответе дал ссылку, в которой есть ответ.
Цитата
Foo Fighter написал:
Это идеально
а если число будет целое, без дробных частей? ;)
Изменено: Дмитрий(The_Prist) Щербаков - 05.09.2018 18:30:35
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#13
06.09.2018 08:32:02
Цитата
Дмитрий(The_Prist) Щербаков написал:
а если число будет целое, без дробных частей?
У меня таких нет, но допустим, что есть, как выглядела бы формула ? :)
 
 
 
#14
06.09.2018 08:37:07
Цитата
Foo Fighter написал:
У меня таких нет
Цитата
Foo Fighter написал:
А если, допустим, в колонке целое число, без копеек
Вы хоть сами со своими данными определитесь :)
Цитата
Foo Fighter написал:
как выглядела бы формула ?
=A2&" "&ТЕКСТ(B2;"ДД.ММ.ГГГ")&" года на сумму "&ЕСЛИ(ЦЕЛОЕ(C2)=C2;C2&" руб. ";ПОДСТАВИТЬ(C2;",";" руб. ")&" коп. ")&"транзакцией №"&D2
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#15
06.09.2018 08:52:31
Я ж говорю, допустим, что это так. Мне интересно )

Цитата
Дмитрий(The_Prist) Щербаков написал:
=A2&" "&ТЕКСТ(B2;"ДД.ММ.ГГГ")&" года на сумму "&ЕСЛИ(ЦЕЛОЕ(C2)=C2;C2&" руб. ";ПОДСТАВИТЬ(C2;",";" руб. ")&" коп. ")&"транзакцией №"&D2

Не, не работает. Без запятой получается:
ООО   "Планета" 01.01.1990 года на сумму 555 руб. транзакцией №101
Не подставляет запятую и нули.
Кстати, что если мне тысячи нужно отделить от сотен? 10000 превратить в 10 000
Изменено: Foo Fighter - 06.09.2018 08:53:48
 
 
 
#16
06.09.2018 09:19:41
Цитата
Foo Fighter написал:
Не подставляет запятую и нули
Пора проявить чуть-чуть смекалки и умений собственных, чтобы изменить результат вложенной ЕСЛИ. Там буквально дописать то, что Вам надо. Вы писали, что в макросах не сильны. Здесь их нет, дерзайте.

Цитата
Foo Fighter написал:
что если мне
Надо было изначально пройти по ссылке, которую я дал. Чтобы понимать причину, почему само это не делается и узнать, как сделать самому. Но Вы упорно не хотите и ждете решения на блюдечке. Это печально.  Помогать тем, кто самостоятельно не хочет сделать хоть что-то для решения своей проблемы, как-то уже желания мало...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Наверх