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

Вход

Регистрация

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

 

= Мир MS Excel/Вставить заданное количество столбцов в таблицу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить заданное количество столбцов в таблицу (Макросы/Sub)
Вставить заданное количество столбцов в таблицу
Лорик Дата: Воскресенье, 23.12.2018, 13:21 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Добрый день форумчане!
Снова с просьбой к Знатокам.
В таблице необходимо добавлять заданное пользователем количество строк и столбцов, с одновременным копированием исходного форматирования.Таблица является шаблоном для разного рода данных, поэтому изначально не известно количество строк и столбцов. Для добавления строк удалось найти подходящий макрос (есть в приложенном файле), а вот для добавления столбцов нет. Написанием макросов не владею. Прошу помочь.
К сообщению приложен файл: 8677290.xlsm (23.6 Kb)


Сообщение отредактировал Лорик - Понедельник, 24.12.2018, 03:55
 
Ответить
СообщениеДобрый день форумчане!
Снова с просьбой к Знатокам.
В таблице необходимо добавлять заданное пользователем количество строк и столбцов, с одновременным копированием исходного форматирования.Таблица является шаблоном для разного рода данных, поэтому изначально не известно количество строк и столбцов. Для добавления строк удалось найти подходящий макрос (есть в приложенном файле), а вот для добавления столбцов нет. Написанием макросов не владею. Прошу помочь.
Автор - Лорик
Дата добавления - 23.12.2018 в 13:21
Лорик Дата: Воскресенье, 23.12.2018, 13:37 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Версия 2003 г.
К сообщению приложен файл: 5307572.xls (45.0 Kb)
 
Ответить
СообщениеВерсия 2003 г.
Автор - Лорик
Дата добавления - 23.12.2018 в 13:37
Лорик Дата: Понедельник, 24.12.2018, 05:23 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Мне помогли.
Может и еще кому нужно будет:

[vba]
Код
Sub Таблица1()
Dim r As Range, i&, n&, lr&
  With Application
    .ScreenUpdating = 0
    .EnableEvents = 0
    .Calculation = xlCalculationManual
    With Sheets("Шаблон")
        On Error Resume Next
        Set r = .Columns(4)
        n = InputBox("Сколько добавить столбцов?", , 1)
        For i = 1 To n
            lr = .UsedRange.Columns.Count + 2
            r.Copy .Columns(lr).Cells(1)
        Next
        On Error GoTo 0
    End With
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = 1
    .EnableEvents = 1
  End With
End Sub
[/vba]


Сообщение отредактировал Лорик - Понедельник, 24.12.2018, 05:23
 
Ответить
СообщениеМне помогли.
Может и еще кому нужно будет:

[vba]
Код
Sub Таблица1()
Dim r As Range, i&, n&, lr&
  With Application
    .ScreenUpdating = 0
    .EnableEvents = 0
    .Calculation = xlCalculationManual
    With Sheets("Шаблон")
        On Error Resume Next
        Set r = .Columns(4)
        n = InputBox("Сколько добавить столбцов?", , 1)
        For i = 1 To n
            lr = .UsedRange.Columns.Count + 2
            r.Copy .Columns(lr).Cells(1)
        Next
        On Error GoTo 0
    End With
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = 1
    .EnableEvents = 1
  End With
End Sub
[/vba]
Автор - Лорик
Дата добавления - 24.12.2018 в 05:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить заданное количество столбцов в таблицу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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