перенос данных при расширении умной таблицы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

перенос данных при расширении умной таблицы (Макросы/Sub)

gagarin-ace

Дата: Понедельник, 24.07.2023, 21:17 | Сообщение № 1

Группа: Заблокированные

Ранг: Участник

Сообщений: 74

Репутация: 0 ±

Замечаний: 60% ±

2010

в этой теме показали удивительную для меня вещь - автоматический перенос текста. но дальше примера разговор не состоялся http://www.excelworld.ru/forum/2-52042-1 если можно - расшифруйте что мне надо искать в гугле, чтоб понимать происходящее. (когда я искал информацию о формулах - мне достаточно было название формулы, дальше, в большинстве случаев, я справлялся сам) надеюсь и тут получится.

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Таблица1")) Is Nothing Then
        a = Target.Row
        b = Range("Таблица2").Row
        If b - a = 3 Then
            Rows(a + 1).Insert Shift:=xlDown
            Rows(a * 2 + 2).Insert Shift:=xlDown
            ActiveSheet.ListObjects("Таблица2").Resize Range("a" & a + 3 & ":b" & a * 2 + 2)
        End If
    End If
End Sub

[/vba]

если я что то не правильно думаю и подобный код люди пишут на абум, воплощая мыли в текст и у этого всего отдельных имен не существует - этот ответ меня вполне устроит и я постараюсь и дальше сам.

Ответить

перенос данных при расширении умной таблицы (Макросы/Sub)

Страница 1 из 1
1