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

Вход

Регистрация

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

 

= Мир MS Excel/Создать шапку таблицы для каждого нового листа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать шапку таблицы для каждого нового листа (Макросы/Sub)
Создать шапку таблицы для каждого нового листа
ZatX Дата: Понедельник, 24.07.2017, 19:57 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток, Уважаемые! Помогите мне пожалуйста с созданием шапки для выгруженных данных на новый лист. Листов может быть до 7-10. Образец шапки элементарен:"Артикул","Наименование","Кол-во".Названия нов. Листов вносится через inputbox при формировании. Заранее благодарю.
К сообщению приложен файл: Microsoft_Excel.xlsb(59Kb)
 
Ответить
СообщениеДоброго времени суток, Уважаемые! Помогите мне пожалуйста с созданием шапки для выгруженных данных на новый лист. Листов может быть до 7-10. Образец шапки элементарен:"Артикул","Наименование","Кол-во".Названия нов. Листов вносится через inputbox при формировании. Заранее благодарю.

Автор - ZatX
Дата добавления - 24.07.2017 в 19:57
nilem Дата: Понедельник, 24.07.2017, 20:15 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1284
Репутация: 463 ±
Замечаний: 0% ±

Excel 2013
ZatX, привет
добавьте одну строку (со звездочками) вот сюда:
[vba]
Код
...
sh.Name = sheetname
With ActiveSheet
    .Cells(1, 1).Resize(, 3).Value = Array("Артикул", "Наименование", "Кол-во") '***
    .Cells(2, 1).Resize(UBound(a), UBound(a, 2)) = a
    ...
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеZatX, привет
добавьте одну строку (со звездочками) вот сюда:
[vba]
Код
...
sh.Name = sheetname
With ActiveSheet
    .Cells(1, 1).Resize(, 3).Value = Array("Артикул", "Наименование", "Кол-во") '***
    .Cells(2, 1).Resize(UBound(a), UBound(a, 2)) = a
    ...
[/vba]

Автор - nilem
Дата добавления - 24.07.2017 в 20:15
ZatX Дата: Понедельник, 24.07.2017, 23:24 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
nilem, Отлично!) Всё просто, как оказалось) Я хотел такой прилепить:
[vba]
Код
   ddd = Array("Артикул", "Наименование", "Кол-во")
    Cells(1, 1).Resize(, UBound(ddd) + 1) = ddd
[/vba]
Спасибо огромное, Вам +


Сообщение отредактировал ZatX - Понедельник, 24.07.2017, 23:25
 
Ответить
Сообщениеnilem, Отлично!) Всё просто, как оказалось) Я хотел такой прилепить:
[vba]
Код
   ddd = Array("Артикул", "Наименование", "Кол-во")
    Cells(1, 1).Resize(, UBound(ddd) + 1) = ddd
[/vba]
Спасибо огромное, Вам +

Автор - ZatX
Дата добавления - 24.07.2017 в 23:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать шапку таблицы для каждого нового листа (Макросы/Sub)
Страница 1 из 11
Поиск:

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