Можно ли в "EXCEL" задать свое действие клавише

[valerij]

1. Можно ли в "EXCEL" задать свое действие клавише, например, если рамка стоит на G12, нажал клавишу F(x), и рамка переместилась на А2 ?
2. Можно ли в "EXCEL" увеличить саму надпись "Лист 1, Лист 2........." ?

Спасибо!!

[Alar]

valerij, читайте правила - http://programmersforum.ru/rules.php

[pashulka]

1. Можно, но для перещения с помощью клавиш F(x) Вам, видимо, придётся использовать макросы (метод OnKey об'екта Application, если нужен готовый пример, то тему всегда можно продолжить)

Однако, если использование именно клавиш F(x) не является обязательным, то осуществить задуманное можно, просто воспользовавшись нижеприведённым советом (MS Excel XP) хотя он может Вас и не устроить :
- Выделите все ячейки нужного рабочего листа, после чего, в меню Формат выберите команду Ячейки.
- В появившемся диалоговом окне: выберите закладку Защита, установите "флажок" напротив Защищаемая ячейка, кликните кнопку OK.
- Выделите ячейки A2,G12, в меню Формат снова выберите команду Ячейки, снимите "флажок" напротив Защищаемая ячейка и кликните кнопку OK.
- В меню Сервис выберите пункт Защита и команду Защитить лист.
- В появившемся диалоговом окне: установите "флажки" напротив Защитить лист и содержимое защищаемых ячеек и Выделение незаблокированных ячеек и снимите "флажок" напротив Выделение заблокированных ячеек.
- Введите пароль (учитывая размер регистра и раскладку клавиатуры) и кликните кнопку ОК. Потом повторите ввод пароля и снова кликните кнопку ОК.
Теперь, после нажатия клавиш ENTER, TAB, Вы будете перещаться только по незаблокированным ячейкам.

2. Можно изменить имя рабочего листа, для этого достаточно использовать любой из трёх нижеприведённых вариантов :
- подвести курсор мышки к ярлычку листа и дважды кликнуть левой кнопкой мышки
- подвести курсор мышки к ярлычку листа, кликнуть правой кнопкой мышки и в контекстном меню выбрать команду Переименовать
- в меню Формат выбрать пункт Лист и команду Переименовать
Теперь, после этих манипуляций, вместо Лист1 Вы получите, например, ИТОГОВАЯ ТАБЛИЦА

[valerij]

Сообщение от pashulka

1. Можно, но для перещения с помощью клавиш F(x) ....

Попробую разобраться, обязательно отпишусь.

2. Можно изменить имя рабочего листа,

Наверно плохо задал вопрос, как переименовывать я знаю, именно изменить как на скрине

[pashulka]

1. Вот один из возможных вариантов решения. Данный код необходимо разместить в модуле ThisWorkbook(ЭтаКнига) нужной рабочей книги. Если переход необходимо осуществлять только в определённом рабочем листе, то перед проверкой адреса, можно добавить проверку на соответствие активного листа - нужному.

Private Sub Workbook_Activate()
    Application.OnKey Key:="{F1}", _
    Procedure:=Me.CodeName & ".ActivateCell"
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey Key:="{F1}"
End Sub
 
Private Sub ActivateCell()
    With Application
         If Not .ActiveCell Is Nothing Then
            If .ActiveCell.Address = "$G$12" Then
               .EnableEvents = False 'имеет смысл использовать в случае наличия
               .Goto Reference:=.Range("A2"), Scroll:=True 'Scroll - необязательно
               .EnableEvents = True  'событий, типа Worksheet_SelectionChange,
               'Workbook_SheetSelectionChange, XLApp_SheetSelectionChange
            End If
         End If
    End With
End Sub

2. Насколько мне известно, в Excel XP(и более ранних версиях) возможности изменить размер шрифта у избранного листа - просто нет. Собственно говоря, именно поэтому, я и предложил вводить текст, используя верхний регистр.

[valerij]

Сообщение от pashulka

Данный код необходимо разместить в модуле ThisWorkbook(ЭтаКнига)

Я начинающий, поэтому разбирусь ли, где этот модуль и это подходит к 2007 или только к 2003?

[pashulka]

Конечно разберётесь, но для полноты картины можно скачать небольшой пример, в котором кроме кода наличествуют ещё и скриншоты.

[valerij]

Сообщение от pashulka

Конечно разберётесь, но для полноты картины

pashulka!!
Вот конкретная задача и ее условия:
Монитор 15', 800х600, если нахожусь на А2, двойной щелчок кл. "PageDown", перескакиваю на А49 и т. д. Ввод данных начинается с С2-С25 и заканчивается G29-G33, если какие-то не стыковки может находится на любой ячейки С-J(2-25), то есть следующая ячейка для ввода, С49, не видна, поскольку оператор для этой задачи, женщина в возрасте >70 лет, ни когда не державшая "мышку" в руках, но полна энтузиазма овладеть вводом данных, вот я и подумываю, о нажатии кл. к возврату ячеек С2, C49............C1412 и так с десяток листов!

З. Ы.
Не обращай внимание, что в апреле 31 день, ибо это как шаблон, потом будет май.
pashulka!!
Спасибо тебе огромное!!

[pashulka]

Валерий, Посмотрите этот пример, возможно он окажется Вам полезен ...

[valerij]

Сообщение от pashulka

Валерий, Посмотрите этот пример,...

Не могу, на скрине, главное в Висте в "Excel 2007" все ОК!
Перехожу на ХР, др. комп. ошибка!!

Пишет "Потерян проэкт VB", ни чего не пойму или жара действует.