Создание листов в книге с данными из таблицы.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание листов в книге с данными из таблицы. (Формулы/Formulas)

nemon

Дата: Пятница, 12.01.2018, 21:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2016

Подскажите. Как сделать, чтобы создались вкладки с шаблоном и изменёнными данными, например 1 лист: имя листа Вексель №1, в листе Вексель №1, далее ничего не меняется кроме суммы:
2 548 200 (два миллиона пятьсот сорок восемь тысяч двести) рублей 00 копеек.
Номера векселей берутся из первого столбца листа список, а суммы из 9 столбца листа список.
Что то наковырял, но что то не работает (первый раз пытаюсь выяснить что такое макросы).

К сообщению приложен файл: 111.xlsm (28.9 Kb)

Ответить

Pelena

Дата: Пятница, 12.01.2018, 21:40 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Вариант Слияние с Word не рассматриваете?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

nemon

Дата: Пятница, 12.01.2018, 21:53 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2016

Да мне бы просто на печать вывести всё.

Ответить

_Igor_61

Дата: Пятница, 12.01.2018, 21:58 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

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

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

Excel 2007

Исправьте For r = 2 на For r = 3
Сделайте шире столбец "А" в шаблоне и добавьте формат ячеек в свой код:
[vba]

Код

With wb.Sheets(wb.Sheets.Count)
            .Name = Left(wb.Sheets("Список").Cells(r, 1), 31)
            .Range("A1") = "ПРОСТОЙ ВЕКСЕЛЬ № " & wb.Sheets("Список").Cells(r, 1)
            .Range("A4") = wb.Sheets("Список").Cells(r, 9)
            .Range("A4").NumberFormat = "#,##0"
            .Range("A12") = wb.Sheets("Список").Cells(r, 9)
            .Range("A12").NumberFormat = "#,##0"
        End With

[/vba]
Сумма прописью - отдельная тема, на форуме есть, поищите и добавьте в свой код

К сообщению приложен файл: 111_1.xlsm (22.5 Kb)

Сообщение отредактировал _Igor_61 - Пятница, 12.01.2018, 22:23

Ответить

nemon

Дата: Пятница, 12.01.2018, 23:00 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2016

Спасибо, большое! Всё работает!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание листов в книге с данными из таблицы. (Формулы/Formulas)

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