|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
17.11.2008, 16:19 | #1 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Можно ли макросом, отключить колесико мышки
Можно ли макросом, отключить колесико мышки?
|
17.11.2008, 17:15 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Можно, но очень сложно. Даже не буду приводить примеры - там очень много строк кода...
Можно для этого использовать сторонние программы, но управлять ими из Excel тоже не очень просто. Самый простой и надёжный способ (без макроса) - вытащить / выломать колёсико из мыши. Для надёжности можно вообще отключить мышь (ну и клавиатуру заодно). Кстати, полностью отключить мышь (программно) не так сложно - делается одной командой... Правда, для её включения соответствующей команды нет... Может, Вам пригодятся стандартные функции Excel: Например, ActiveSheet.ScrollArea = "f77" отображает ячейку f77 и запрещает скроллинг (и ручную прокрутку) листа. А команда ActiveSheet.ScrollArea = "" восстанавливает возможность перехода к другим ячейкам. |
17.11.2008, 17:30 | #3 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Знаю, но не желательно, мне именно в одном файле xls, желательно скролл отключить
Сделал так ActiveSheet.ScrollArea = "A1:O27" Класс, кадр как в копаный, но переключить на др. кадр A29:O55, не могу. Цитата:
Последний раз редактировалось valerij; 17.11.2008 в 18:41. |
|
18.11.2008, 07:56 | #4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Код:
Код:
|
|
18.11.2008, 15:12 | #5 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
То же Excel 2003 rus, а как Вы переключаете(чем)?
Поясню, мне надо, что бы на экране, стоял кадр в диап. "A1:O27", при нажатии кл. PgDn, кадр сменился с шагом 28, т. е. "A29:O55" и т. д.(вниз), а при нажатии кл. PgUp, назад(вверх) и при этом колесико не должно работать(Что бы не возможно, колесиком, установить кадр, вне шага 28) У меня есть, замечательный макрос, написанный Уважаемым SAS888, вот он Код:
Код:
|
18.11.2008, 15:43 | #6 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Привёл же пример: Код:
Цитата:
Код:
|
||
18.11.2008, 16:24 | #7 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Попробовал, сори, не-до-объяснил в задачи.
У меня сидят полные ламера, они в жизни не догадаются(объяснять....), что бы сработал макрос нужно щелкнуть кл. PgDn. Поэтому нужно, что бы открыл файл и все, кадр "A1:O27", вкопанный, кнопками листаем.... |
18.11.2008, 16:32 | #8 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Так в чём проблема?
Добавьте при запуске книги команду ActiveSheet.ScrollArea = "A1:O27", и всё. Теперь Вашим "ламерам" только и останется, что листать файл заданными Вами кнопками - "{PGDN}"и "{PGUP}" Получится примерно так: Код:
Цитата:
Так разъясните им, что и как надо нажимать, а потом и блокируйте прокрутку...
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 18.11.2008 в 16:34. |
|
18.11.2008, 16:52 | #9 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Если я не заблокирую прокрутку, умудрятся, чуть прокрутить и в разные числа будут вводить данные!
Теперь все работает, только как сделать что бы курсор прыгал не в А1, А29...., а при перещелкивании на D3, D31.... ActiveSheet.ScrollArea = "A1:O27" [D3].Select А еще лучше, сохраниться на месте выхода из файла Разобрался, все ОК при запуске книги, убрал команду ActiveSheet.ScrollArea = "A1:O27", но добавил Run "Vniz" Run "Vverh" А в макросах "Vniz, Vverh" поменял значение на area.Cells(St - 25, 4).Select Последний раз редактировалось valerij; 18.11.2008 в 17:23. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь с макросом | twolfy | Microsoft Office Excel | 5 | 06.10.2008 10:44 |
хелп с макросом | Aivar | Microsoft Office Word | 8 | 28.09.2008 02:10 |
Помогите с макросом | SoFuWa | Microsoft Office Excel | 7 | 15.08.2008 15:26 |