2. На листе "Таблица" имеется кнопка "Печать", при нажатии мышью на которую выполняются след. действия:
из строки, где находится активная ячейка выбирается ключевое поле
присваивается ячейке А1 листа "Выборка"
обрабатывается инфа на листе "Выборка"
заполняется лист "Бланк"
лист "Бланк" отправляется на печать
возвращается на лист "Таблица"
и вот тут проблема:
фокус мыши расположен на кнопке "Печать" (лист "Таблица")
а фокус активной ячейки - где-то в недрах таблицы
Подскажите, пожалуйста, как вернуть фокус с мыши на ячейку
Процедура, привязянная к кнопке [vba]
Код
Private Sub Out_for_Printer_Click() Dim i As Integer i = ActiveCell.Row If i > 3 Then ‘ не печатать шапку Application.ScreenUpdating = False Application.Volatile True Worksheets("Выборка").Cells(1, 1).Value = Worksheets("Таблица").Cells(i, 1).Value Worksheets("Бланк").PrintOut Copies:=1, Collate:=True Application.ScreenUpdating = True End If Sheets("Таблица").Select End Sub
[/vba]
Заранее спасибо
Здравствуйте. Помогите решить проблему (не комфортность). Описание: 1. Есть книга с 3-мя листами:
лист "Таблица" - заполняется переменной информацией. Имеет ключевые поля в колонке "А"
лист "Выборка" - при вводе номера ключевого поля в ячейку "А1", выполняется выборка инфы из листа "Таблица" и некая ее обработка
2. На листе "Таблица" имеется кнопка "Печать", при нажатии мышью на которую выполняются след. действия:
из строки, где находится активная ячейка выбирается ключевое поле
присваивается ячейке А1 листа "Выборка"
обрабатывается инфа на листе "Выборка"
заполняется лист "Бланк"
лист "Бланк" отправляется на печать
возвращается на лист "Таблица"
и вот тут проблема:
фокус мыши расположен на кнопке "Печать" (лист "Таблица")
а фокус активной ячейки - где-то в недрах таблицы
Подскажите, пожалуйста, как вернуть фокус с мыши на ячейку
Процедура, привязянная к кнопке [vba]
Код
Private Sub Out_for_Printer_Click() Dim i As Integer i = ActiveCell.Row If i > 3 Then ‘ не печатать шапку Application.ScreenUpdating = False Application.Volatile True Worksheets("Выборка").Cells(1, 1).Value = Worksheets("Таблица").Cells(i, 1).Value Worksheets("Бланк").PrintOut Copies:=1, Collate:=True Application.ScreenUpdating = True End If Sheets("Таблица").Select End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
