Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2009, 16:16   #1
KinderX
Пользователь
 
Регистрация: 27.06.2009
Сообщений: 36
По умолчанию Выполнение макроса при нажатии на Лист

Как сделать чтобы при нажатии на лист выполнялся макрос?

Как написать макрос "предварительный просмотр"?
KinderX вне форума Ответить с цитированием
Старый 01.07.2009, 16:36   #2
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Выполнение макроса при активации (выборе) листа

Код:
Private Sub Worksheet_Activate()

End Sub
Предварительный просмотр:
Код:
ActiveWindow.SelectedSheets.PrintPreview
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 01.07.2009, 16:38   #3
analyst
Пользователь
 
Регистрация: 30.06.2009
Сообщений: 32
По умолчанию

Цитата:
Сообщение от KinderX Посмотреть сообщение
Как сделать чтобы при нажатии на лист выполнялся макрос?
вставте код исполняемого макроса в код нужного листа
Цитата:
Сообщение от KinderX Посмотреть сообщение
Как написать макрос "предварительный просмотр"?
ActiveWindow.SelectedSheets.PrintPr eview
analyst вне форума Ответить с цитированием
Старый 01.07.2009, 16:49   #4
KinderX
Пользователь
 
Регистрация: 27.06.2009
Сообщений: 36
По умолчанию

Спасибо большое, очень благодарен!!!

А не подскажете еще как сделать чтобы при вводе в TextBox числа оно вводилось в определенную ячейку, ели можно примерчик в файле.

P.S. 5 день вижу VBA, учусь учусь учусь
KinderX вне форума Ответить с цитированием
Старый 01.07.2009, 16:53   #5
analyst
Пользователь
 
Регистрация: 30.06.2009
Сообщений: 32
По умолчанию

Цитата:
Сообщение от KinderX Посмотреть сообщение
Спасибо большое, очень благодарен!!!

А не подскажете еще как сделать чтобы при вводе в TextBox числа оно вводилось в определенную ячейку, ели можно примерчик в файле.

P.S. 5 день вижу VBA, учусь учусь учусь
cells(i,j).value=textbox1.text
or
cells(i,j).value=textbox1.value
где i и j - координаты ячейки!
analyst вне форума Ответить с цитированием
Старый 01.07.2009, 16:58   #6
KinderX
Пользователь
 
Регистрация: 27.06.2009
Сообщений: 36
По умолчанию

Спасибо!!!

Выполняется макрос при нажатии на Лист. Появляется окно, как его закрыть при нажатии на кнопку, а то оно не закрывается на крестик при просмотре на печать и не дает делать дольнейшии действия.

Да при вводе чисел при исправлении если стераешь все выдаёт ошибку

Последний раз редактировалось KinderX; 01.07.2009 в 17:07. Причина: Добавление
KinderX вне форума Ответить с цитированием
Старый 01.07.2009, 17:07   #7
analyst
Пользователь
 
Регистрация: 30.06.2009
Сообщений: 32
По умолчанию

Цитата:
Сообщение от KinderX Посмотреть сообщение
Спасибо!!!

Выполняется макрос при нажатии на Лист. Появляется окно, как его закрыть при нажатии на кнопку, а то оно не закрывается на крестик
Можно попробовать так:
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
analyst вне форума Ответить с цитированием
Старый 01.07.2009, 17:19   #8
KinderX
Пользователь
 
Регистрация: 27.06.2009
Сообщений: 36
По умолчанию

Цитата:
Сообщение от analyst Посмотреть сообщение
Можно попробовать так:
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Не закрывает :о(

Private Sub CommandButton4_Click()
ActiveWindow.SelectedSheets.PrintPr eview
Menu7.Hide
End Sub

Решение:

Private Sub CommandButton4_Click()
Menu7.Hide
ActiveWindow.SelectedSheets.PrintPr eview
End Sub

Всем благодарен.... Тема закрыта.

Последний раз редактировалось KinderX; 01.07.2009 в 19:42. Причина: Решил проблемму
KinderX вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Событие при нажатии на клавиатуру BuT@JL Общие вопросы Delphi 8 26.06.2009 11:27
Как приостановить выполнение макроса на определенное время? Ranel Microsoft Office Excel 6 16.06.2009 09:27
Выполнение макроса во всех листах Bu$ter Microsoft Office Excel 18 14.11.2008 14:34
прокрутка при нажатии на кнопку neformat JavaScript, Ajax 0 20.06.2008 20:40
Как защитить рабочий лист от ввода с клавиатуры, но не от действий макроса ? valerij Microsoft Office Excel 7 28.05.2008 23:59