powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
9 сообщений из 9, страница 1 из 1
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38153572
bombimbom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброе время суток!
Подскажите пожалуйста как это сделать?
Sub кнопка1_щелчок()
q = лист1.Cells(9, 1)
w = лист1.Cells(9, 2)
x = q & "," & w
ActiveCell.Cells = x
End Sub

вот на что хватило знаний :) но мне необходимо чтобы был диапазон ячеек в строке,
"сцепить" не предлагайте нужно макросом )
заранее большое спасибо
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38153596
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сервис - Макрос - Начать запись...
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38153605
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В смысле, вы задаёте диапазон (каким образом?) - а получаете на выходе список значений ячеек в этом диапазоне, через запятую?
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38154355
bombimbom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AkinaСервис - Макрос - Начать запись...

он мне дает range, но я не знаю как это использовать к моей процедуре
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38154357
bombimbom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreTMВ смысле, вы задаёте диапазон (каким образом?) - а получаете на выходе список значений ячеек в этом диапазоне, через запятую?
да, надо получить через запятую, ну диапазон по умолчанию например от A1 до R1
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38154371
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: vbnet
1.
activecell=join(application.transpose(application.transpose(range("A1:R1"))),",")
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38154374
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
или
Код: vbnet
1.
activecell=join(application.index(range("A1:R1").value,1,0),",")
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38154954
bombimbom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Казанскийили
Код: vbnet
1.
activecell=join(application.index(range("A1:R1").value,1,0),",")



Большое спасибо!

А можете посоветовать литературу какую почитать по VBA ?
...
Рейтинг: 0 / 0
объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
    #38154983
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]