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

Вход

Регистрация

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

 

= Мир MS Excel/Создание списка по меняющимся данным - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание списка по меняющимся данным (Формулы/Formulas)
Создание списка по меняющимся данным
vitek73 Дата: Четверг, 12.10.2017, 20:24 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброе время, есть идея, но знания по экселю очень хромают,
суть в следующем.
есть бумажный бланк уже с заполниным текстом, в экселе под его размеры сделана форма и вносится серийник и артикул продукта, а параметры берутся уже из листа базы(таблица шкафов).
в вкладке "УЧЁТ" приходится вводить всё отдельно.
Можно зделать что бы когда заполняю Артикул ,Серийник,Фамелия,дата, (вкладка"поиск по артикулу") они Автоматом записывались во вкладке "УЧЁТ",
сегодня распечатал к примеру 3 бланка, они оставили запись,
завтро ещё распечал 10 бланков( с разными артикулами) и тоже осталось запись, тоесть дописывалась бы,
или это слишком заморочено ? )
если поможете,или натолкнёте на нужную мысль буду счастлив ))
К сообщению приложен файл: _131017.xlsx (42.2 Kb)

vitёk73
 
Ответить
СообщениеДоброе время, есть идея, но знания по экселю очень хромают,
суть в следующем.
есть бумажный бланк уже с заполниным текстом, в экселе под его размеры сделана форма и вносится серийник и артикул продукта, а параметры берутся уже из листа базы(таблица шкафов).
в вкладке "УЧЁТ" приходится вводить всё отдельно.
Можно зделать что бы когда заполняю Артикул ,Серийник,Фамелия,дата, (вкладка"поиск по артикулу") они Автоматом записывались во вкладке "УЧЁТ",
сегодня распечатал к примеру 3 бланка, они оставили запись,
завтро ещё распечал 10 бланков( с разными артикулами) и тоже осталось запись, тоесть дописывалась бы,
или это слишком заморочено ? )
если поможете,или натолкнёте на нужную мысль буду счастлив ))
Автор - vitek73
Дата добавления - 12.10.2017 в 20:24
buchlotnik Дата: Четверг, 12.10.2017, 21:04 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Макрить придётся, если "в лоб": [vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim r
    r = Sheets(2).[c1000000].End(xlUp).Row + 1
    Sheets(2).Cells(r, 3) = Sheets(1).Cells(86, 32)
    Sheets(2).Cells(r, 4) = Sheets(1).Cells(30, 14)
    Sheets(2).Cells(r, 5) = Sheets(1).Cells(21, 14)
    Sheets(2).Cells(r, 9) = Sheets(1).Cells(86, 48)
End Sub
[/vba]
К сообщению приложен файл: _131017.xlsm (48.2 Kb)
 
Ответить
СообщениеМакрить придётся, если "в лоб": [vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim r
    r = Sheets(2).[c1000000].End(xlUp).Row + 1
    Sheets(2).Cells(r, 3) = Sheets(1).Cells(86, 32)
    Sheets(2).Cells(r, 4) = Sheets(1).Cells(30, 14)
    Sheets(2).Cells(r, 5) = Sheets(1).Cells(21, 14)
    Sheets(2).Cells(r, 9) = Sheets(1).Cells(86, 48)
End Sub
[/vba]
Автор - buchlotnik
Дата добавления - 12.10.2017 в 21:04
vitek73 Дата: Четверг, 12.10.2017, 21:52 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата buchlotnik, 12.10.2017 в 21:04, в сообщении № 2 ()
Макрить придётся, если "в лоб":

я даже не знаю как с ними возится,
я честно ничего не понял, но спасибо ))

vitёk73
 
Ответить
Сообщение
Цитата buchlotnik, 12.10.2017 в 21:04, в сообщении № 2 ()
Макрить придётся, если "в лоб":

я даже не знаю как с ними возится,
я честно ничего не понял, но спасибо ))
Автор - vitek73
Дата добавления - 12.10.2017 в 21:52
buchlotnik Дата: Четверг, 12.10.2017, 22:03 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
я честно ничего не понял
распечатайте из файла, который я приложил и посмотрите на результат на листе учёт. Сам код - нажмите Alt + F11 и посмотрите в модуле ЭтаКнига (ThisWorkbook). Суть - перед печатью (Workbook_BeforePrint) текущие распечатываемые данные переносятся на лист учёт в строчку, следующую за последней заполненной
 
Ответить
Сообщение
Цитата
я честно ничего не понял
распечатайте из файла, который я приложил и посмотрите на результат на листе учёт. Сам код - нажмите Alt + F11 и посмотрите в модуле ЭтаКнига (ThisWorkbook). Суть - перед печатью (Workbook_BeforePrint) текущие распечатываемые данные переносятся на лист учёт в строчку, следующую за последней заполненной
Автор - buchlotnik
Дата добавления - 12.10.2017 в 22:03
vitek73 Дата: Пятница, 13.10.2017, 20:44 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата buchlotnik, 12.10.2017 в 22:03, в сообщении № 4 ()
распечатайте из файла, который я приложил и посмотрите на результат на листе учёт

Спасибо разобрался, вроде понял,

vitёk73
 
Ответить
Сообщение
Цитата buchlotnik, 12.10.2017 в 22:03, в сообщении № 4 ()
распечатайте из файла, который я приложил и посмотрите на результат на листе учёт

Спасибо разобрался, вроде понял,
Автор - vitek73
Дата добавления - 13.10.2017 в 20:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание списка по меняющимся данным (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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