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

Вход

Регистрация

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

 

= Мир MS Excel/Сцепить диапазон макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сцепить диапазон макросом (Макросы/Sub)
Сцепить диапазон макросом
Евген1313 Дата: Суббота, 25.09.2021, 07:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Всем доброго времени суток!
Подскажите, пожалуйста как при помощи макроса сцепить диапазон ячеек.
У меня EXEL 2007.
Заранее спасибо
К сообщению приложен файл: 3809489.xlsm(96.5 Kb)
 
Ответить
СообщениеВсем доброго времени суток!
Подскажите, пожалуйста как при помощи макроса сцепить диапазон ячеек.
У меня EXEL 2007.
Заранее спасибо

Автор - Евген1313
Дата добавления - 25.09.2021 в 07:57
Kuzmich Дата: Суббота, 25.09.2021, 14:03 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 621
Репутация: 135 ±
Замечаний: 0% ±

Excel 2003
Цитата
как при помощи макроса сцепить диапазон ячеек.

Следуя логике вашего примера, попробуйте так
[vba]
Код
Sub Scepka()
    Dim i As Long
    Dim Cell As Range
    Set ShAbzac = ThisWorkbook.Worksheets("Значения")
    Set AbzacListObj = ShAbzac.ListObjects("Данные_tb")
    Set ShManual = ThisWorkbook.Worksheets("Главная")
    Set ManualListObj = ShManual.ListObjects("Сцепка_tb")
Set Cell = AbzacListObj.ListColumns.Item(1).Range.Cells
  ManualListObj.Range(2) = ""
For i = 2 To Cell.Count
  ManualListObj.Range(2) = ManualListObj.Range(2) & Cell.Cells(i, 1) & Chr(10)
Next
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
как при помощи макроса сцепить диапазон ячеек.

Следуя логике вашего примера, попробуйте так
[vba]
Код
Sub Scepka()
    Dim i As Long
    Dim Cell As Range
    Set ShAbzac = ThisWorkbook.Worksheets("Значения")
    Set AbzacListObj = ShAbzac.ListObjects("Данные_tb")
    Set ShManual = ThisWorkbook.Worksheets("Главная")
    Set ManualListObj = ShManual.ListObjects("Сцепка_tb")
Set Cell = AbzacListObj.ListColumns.Item(1).Range.Cells
  ManualListObj.Range(2) = ""
For i = 2 To Cell.Count
  ManualListObj.Range(2) = ManualListObj.Range(2) & Cell.Cells(i, 1) & Chr(10)
Next
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 25.09.2021 в 14:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сцепить диапазон макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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