|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.11.2020, 18:45 | #1 |
Пользователь
Регистрация: 11.06.2019
Сообщений: 30
|
приспособить код
Добрый день!
Есть отличный макрос, выводящий объединенный текст произвольного диапазона, например - A1:AK314, в указываемую в коде ячейку : Range("AK315") = Str Sub obedinenie_teksta() 'Объединение текста ячеек выделенного диапазона Dim iCell As Range Dim Str As String For Each iCell In Selection Str = Str & iCell.Value Next iCell 'Вывод объединенного текста в ячейку "A1" Range("AK315") = Str 'Вывод объединенного текста в сообщение MsgBox Str End Sub Как можно сделать, чтобы результат объединения текстов выводился под каждым столбцом диапазона в ячейках А315, B315, ... AK315 и, если в ячейках есть нули, то их не показывать или текст таких ячеек не объединять |
18.11.2020, 00:38 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
18.11.2020, 01:02 | #3 |
Пользователь
Регистрация: 11.06.2019
Сообщений: 30
|
IgorGO,
не работает, Str = Str & iCell.Value горит желтым что делать |
18.11.2020, 01:14 | #4 |
Пользователь
Регистрация: 11.06.2019
Сообщений: 30
|
Вот скрин
|
18.11.2020, 01:14 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Последний раз редактировалось IgorGO; 18.11.2020 в 01:46. |
18.11.2020, 01:42 | #6 |
Пользователь
Регистрация: 11.06.2019
Сообщений: 30
|
IgorGO,
Отлично, спасибо, снимаю шляпу! Если можно избавиться от нулей (специально выделил красным) - будет ВООБЩЕ!!! |
18.11.2020, 01:47 | #7 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
18.11.2020, 01:48 | #8 |
Пользователь
Регистрация: 11.06.2019
Сообщений: 30
|
таблицу 313х63 обработал за 3 сек
|
18.11.2020, 01:50 | #9 |
Пользователь
Регистрация: 11.06.2019
Сообщений: 30
|
IgorGO,
подскажите, куда или вместо какой строки кода вставить |
18.11.2020, 01:50 | #10 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
можно сделать за 1/100 секунды
в сообщении #5 я поправил 1 строку в макросе
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Есть код на Python, нужно построить диаграмму взаимодействия, код в теме | aliceliddell | Помощь студентам | 0 | 22.05.2018 14:28 |
пытаюсь переписать код из С++ в питон. Код внутри. Верно ли я делаю? | clav9nski | Python | 2 | 08.10.2017 21:34 |
[C] Объяснить код код для определения пятизначного палиндром числа | raider21 | Помощь студентам | 7 | 01.02.2017 17:23 |
Программно изменить код страницы(как в Опере через исходный код) | igrok111 | Работа с сетью в Delphi | 7 | 20.04.2013 23:46 |
Доп.код,обратный код,прямой код вычисления | Lukas077 | Помощь студентам | 0 | 20.03.2011 12:07 |