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

Вход

Регистрация

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

 

= Мир MS Excel/автоматическое заполнение и вывод на печать при выборе - Мир MS Excel

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

Excel 2007
Уважаемые форумчане нужна ваша помощь
Как сделать При выборе ячейки на листе 1 должны заполнится ячейки на листе 2 по данным строки из листа 1
и вывести все это на печать одной кнопкой
как это все сделать самостоятельно ума не приложу
Спасибо за любую помощь и направление в нужное русло
К сообщению приложен файл: 6074193.xlsx (30.9 Kb)

только учюсь
 
Ответить
СообщениеУважаемые форумчане нужна ваша помощь
Как сделать При выборе ячейки на листе 1 должны заполнится ячейки на листе 2 по данным строки из листа 1
и вывести все это на печать одной кнопкой
как это все сделать самостоятельно ума не приложу
Спасибо за любую помощь и направление в нужное русло
Автор - Димон1
Дата добавления - 11.03.2015 в 16:14
slAvIk159 Дата: Среда, 11.03.2015, 17:19 | Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 83
Репутация: 13 ±
Замечаний: 0% ±

Excel 2013
Вот, зделал, просто нажимаеш на нужную строку, а потом на кнопочку
К сообщению приложен файл: 2946938.xlsm (41.1 Kb)
 
Ответить
СообщениеВот, зделал, просто нажимаеш на нужную строку, а потом на кнопочку
Автор - slAvIk159
Дата добавления - 11.03.2015 в 17:19
Димон1 Дата: Среда, 11.03.2015, 18:53 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата slAvIk159, 11.03.2015 в 17:19, в сообщении № 2
а потом на кнопочку

Да большое спасибо все работает но ХОТЕЛО сь бы узнать как это реализованно -лучше пошагово
я думаю многие - многим страждущим было бы интересно

только учюсь
 
Ответить
Сообщение
Цитата slAvIk159, 11.03.2015 в 17:19, в сообщении № 2
а потом на кнопочку

Да большое спасибо все работает но ХОТЕЛО сь бы узнать как это реализованно -лучше пошагово
я думаю многие - многим страждущим было бы интересно
Автор - Димон1
Дата добавления - 11.03.2015 в 18:53
slAvIk159 Дата: Четверг, 12.03.2015, 10:28 | Сообщение № 4
Группа: Проверенные
Ранг: Участник
Сообщений: 83
Репутация: 13 ±
Замечаний: 0% ±

Excel 2013
Всё делает вот этот код:
[vba]
Код

Sub Past_Print()
     Dim data(0 To 9) As Double
     Dim row As Integer
[/vba]

[vba]
Код

     row = ActiveCell.row
[/vba] - здесь опредиляетса строка выделеной ячейки

[vba]
Код

     For i = 0 To 9
         data(i) = Cells(row, i + 1).Value + 0
     Next i
[/vba] - здесь строчка из таблици запихиваетса в масив

[vba]
Код

     Sheets("Лист2").Select
     Cells(6, 5).Value = data(1)
     Cells(42, 25).Value = data(2)
     Cells(38, 25).Value = data(3)
     Cells(4, 19).Value = data(4)
     Cells(21, 23).Value = data(9) - data(5)
     'Cells(1, 1).Value = data(7)
     Cells(44, 25).Value = data(8)
     Cells(54, 25).Value = data(9)
     ActiveSheet.PrintOut
     Sheets("январь").Select
End Sub
[/vba] - ну а здесь переходит на драгой лист, распихивает масив по нужным ячейкам, печатает активний лист, ну и переходит обратно на первий лист
 
Ответить
СообщениеВсё делает вот этот код:
[vba]
Код

Sub Past_Print()
     Dim data(0 To 9) As Double
     Dim row As Integer
[/vba]

[vba]
Код

     row = ActiveCell.row
[/vba] - здесь опредиляетса строка выделеной ячейки

[vba]
Код

     For i = 0 To 9
         data(i) = Cells(row, i + 1).Value + 0
     Next i
[/vba] - здесь строчка из таблици запихиваетса в масив

[vba]
Код

     Sheets("Лист2").Select
     Cells(6, 5).Value = data(1)
     Cells(42, 25).Value = data(2)
     Cells(38, 25).Value = data(3)
     Cells(4, 19).Value = data(4)
     Cells(21, 23).Value = data(9) - data(5)
     'Cells(1, 1).Value = data(7)
     Cells(44, 25).Value = data(8)
     Cells(54, 25).Value = data(9)
     ActiveSheet.PrintOut
     Sheets("январь").Select
End Sub
[/vba] - ну а здесь переходит на драгой лист, распихивает масив по нужным ячейкам, печатает активний лист, ну и переходит обратно на первий лист
Автор - slAvIk159
Дата добавления - 12.03.2015 в 10:28
Димон1 Дата: Четверг, 12.03.2015, 10:38 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата slAvIk159, 11.03.2015 в 17:19, в сообщении № 2
Вот, зделал

я плохо понимаю -НО буду разюбираться
а как сделать в этой книге с большим количеством листов
К сообщению приложен файл: 2946938.rar (78.4 Kb)

только учюсь

Сообщение отредактировал Димон1 - Четверг, 12.03.2015, 13:04
 
Ответить
Сообщение
Цитата slAvIk159, 11.03.2015 в 17:19, в сообщении № 2
Вот, зделал

я плохо понимаю -НО буду разюбираться
а как сделать в этой книге с большим количеством листов
Автор - Димон1
Дата добавления - 12.03.2015 в 10:38
Димон1 Дата: Четверг, 12.03.2015, 15:16 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата slAvIk159, 12.03.2015 в 10:28, в сообщении № 4
обратно на первий лист

а как сделать возращение не на первый лист а на тот с которого отправлена печать?
К сообщению приложен файл: 1277483.rar (78.4 Kb)

только учюсь
 
Ответить
Сообщение
Цитата slAvIk159, 12.03.2015 в 10:28, в сообщении № 4
обратно на первий лист

а как сделать возращение не на первый лист а на тот с которого отправлена печать?
Автор - Димон1
Дата добавления - 12.03.2015 в 15:16
slAvIk159 Дата: Четверг, 12.03.2015, 16:34 | Сообщение № 7
Группа: Проверенные
Ранг: Участник
Сообщений: 83
Репутация: 13 ±
Замечаний: 0% ±

Excel 2013
Цитата Димон1, 12.03.2015 в 15:16, в сообщении № 6
а как сделать возращение не на первый лист а на тот с которого отправлена печать?

нужно урать эту строчку:
[vba]
Код
Sheets("январь").Select
[/vba]

Для большого количества листов вот так:
[vba]
Код
Sub Past_Print()
       Dim data(0 To 10) As Double
       Dim row As Integer
       Dim nameSheet As String
       row = ActiveCell.row
       For i = 0 To 9
           data(i) = Cells(row, i + 1).Value + 0
       Next i
       nameSheet = ActiveSheet.Name
       Sheets("Лист2").Select
       Cells(6, 5).Value = data(1)
       Cells(42, 25).Value = data(2)
       Cells(38, 25).Value = data(3)
       Cells(4, 19).Value = data(4)
       Cells(21, 23).Value = data(9) - data(5)
       'Cells(1, 1).Value = data(7)
       Cells(44, 25).Value = data(8)
       Cells(54, 25).Value = data(9)
       ActiveSheet.PrintOut
       Sheets(nameSheet).Select
End Sub
[/vba]


Сообщение отредактировал slAvIk159 - Четверг, 12.03.2015, 17:13
 
Ответить
Сообщение
Цитата Димон1, 12.03.2015 в 15:16, в сообщении № 6
а как сделать возращение не на первый лист а на тот с которого отправлена печать?

нужно урать эту строчку:
[vba]
Код
Sheets("январь").Select
[/vba]

Для большого количества листов вот так:
[vba]
Код
Sub Past_Print()
       Dim data(0 To 10) As Double
       Dim row As Integer
       Dim nameSheet As String
       row = ActiveCell.row
       For i = 0 To 9
           data(i) = Cells(row, i + 1).Value + 0
       Next i
       nameSheet = ActiveSheet.Name
       Sheets("Лист2").Select
       Cells(6, 5).Value = data(1)
       Cells(42, 25).Value = data(2)
       Cells(38, 25).Value = data(3)
       Cells(4, 19).Value = data(4)
       Cells(21, 23).Value = data(9) - data(5)
       'Cells(1, 1).Value = data(7)
       Cells(44, 25).Value = data(8)
       Cells(54, 25).Value = data(9)
       ActiveSheet.PrintOut
       Sheets(nameSheet).Select
End Sub
[/vba]
Автор - slAvIk159
Дата добавления - 12.03.2015 в 16:34
gling Дата: Четверг, 12.03.2015, 19:58 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Есть немного другой файл для оформления листов. Все путевки записываются на один лист, нужный период выбирается фильтром. Потом с одного листа проще делать сводную таблицу для анализа, количество поездок по месяцам, расход бензина, пройдено км и т.д. Посмотрите может что то пригодится.
К сообщению приложен файл: AvtoCalc.zip (80.8 Kb)

ЯД-41001506838083

Сообщение отредактировал gling - Четверг, 12.03.2015, 19:59
 
Ответить
СообщениеЕсть немного другой файл для оформления листов. Все путевки записываются на один лист, нужный период выбирается фильтром. Потом с одного листа проще делать сводную таблицу для анализа, количество поездок по месяцам, расход бензина, пройдено км и т.д. Посмотрите может что то пригодится.
Автор - gling
Дата добавления - 12.03.2015 в 19:58
Димон1 Дата: Четверг, 12.03.2015, 21:27 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата gling, 12.03.2015 в 19:58, в сообщении № 8
Посмотрите может что то пригодится.

безусловно очень интересная форма заполнения но работает коряво
не хватает данных по авто (номер расход и т.д.) в выпадающем списке Выбрал авто получил данные с предыдущего дня этого автомобиля спидометр топливо
,подставил водителя с номером прав --печать
что то типа этого----- http://www.kors-soft.ru/progs/littra.exe не реклама

только учюсь

Сообщение отредактировал Димон1 - Четверг, 12.03.2015, 21:27
 
Ответить
Сообщение
Цитата gling, 12.03.2015 в 19:58, в сообщении № 8
Посмотрите может что то пригодится.

безусловно очень интересная форма заполнения но работает коряво
не хватает данных по авто (номер расход и т.д.) в выпадающем списке Выбрал авто получил данные с предыдущего дня этого автомобиля спидометр топливо
,подставил водителя с номером прав --печать
что то типа этого----- http://www.kors-soft.ru/progs/littra.exe не реклама
Автор - Димон1
Дата добавления - 12.03.2015 в 21:27
gling Дата: Четверг, 12.03.2015, 23:41 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Цитата
не хватает данных по авто (номер расход и т.д.)

ЯД-41001506838083

Сообщение отредактировал gling - Четверг, 12.03.2015, 23:47
 
Ответить
Сообщение
Цитата
не хватает данных по авто (номер расход и т.д.)
Автор - gling
Дата добавления - 12.03.2015 в 23:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » автоматическое заполнение и вывод на печать при выборе (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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