Ввод данных из шаблона в БД

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

Ввод данных из шаблона в БД (Макросы/Sub)

alexander060657

Дата: Понедельник, 13.10.2014, 13:03 | Сообщение № 1

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

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

Сообщений: 4

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

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

Excel 2007

Здравствуйте! Анализируя вопросы, обсуждаемые на форуме, не нашёл ответа на свой вопрос: в Excel 97 был мастер шаблонов для удобства ввода информации в БД. в 2007-м этого нет.
Может ли кто-нибудь помочь написать процедуру для ввода и шаблона. Всё находится в одной книге, шаблон-лист1, БД-лист2. Помогите чайнику, дайте идею.
С уважением, alexander060657.
Удалено. Нарушение Правил форума

специалист

Ответить

Pelena

Дата: Понедельник, 13.10.2014, 13:27 | Сообщение № 2

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

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

Сообщений: 19572

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Если Вы имеете в виду форму для ввода данных, то в Excel 2007 она есть. Чтобы вывести кнопку Форма... на Панель быстрого доступа (ПБД), кликните правой кнопкой мыши по ПБД -- Настройка ПБД -- Команды не на ленте -- найдите команду Форма.. -- Добавить

Если не угадала, прикладывайте файл с примером в соответствии с Правилами форума

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

Ответить

alexander060657

Дата: Понедельник, 13.10.2014, 13:30 | Сообщение № 3

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

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

Сообщений: 4

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

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

Excel 2007

Почему-то не скачался пример?

К сообщению приложен файл: ___.xls (45.0 Kb)

специалист

Ответить

alexander060657

Дата: Понедельник, 13.10.2014, 13:31 | Сообщение № 4

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

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

Сообщений: 4

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

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

Excel 2007

Ну, что ж не вышло, а жаль. deal

специалист

Ответить

wild_pig

Дата: Понедельник, 13.10.2014, 16:51 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 518

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

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

2003, 2013

[vba]

Код

Sub uuu()
     Dim a()
     Dim i&, lr&
     With Sheets("Шаблон накладной")
         a = .Range("A2", .Cells(Rows.Count, 4).End(xlUp)).Value
     End With
     With Sheets("База данных")
         lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         For i = 8 To UBound(a)
             .Cells(lr, 1) = a(5, 2) 'дата
             .Cells(lr, 2) = a(i, 4) 'заказ
             .Cells(lr, 3) = a(i, 2) 'работа
             .Cells(lr, 4) = a(1, 2) 'участок
             .Cells(lr, 5) = a(i, 1) 'чертёж
             .Cells(lr, 7) = a(i, 3) 'кол-во
             lr = lr + 1
         Next
     End With
End Sub

[/vba]

К сообщению приложен файл: example_1.xls (59.0 Kb)

Ответить

Ввод данных из шаблона в БД (Макросы/Sub)

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