Затенение выделенной ячейки определенным цветом при нажатии клавиши в Excel

Question

Я студент, и мне нужно выучить много вещей / вопросов, поэтому у меня возникла идея, и я не знаю, как ее реализовать.

Итак, все, что я спрашиваю, этодля кого-то любопытного , чтобы показать мне, как я могу запрограммировать Excel на конкретное затенение выбранной ячейки определенным цветом одним нажатием кнопки, как подсказывает заголовок.

Я хочу войти в специальный режим , где:

1. Я могу перемещаться по ячейкам с помощью клавиш со стрелками
2. , нажимая1 или 2 или 3 или 4, тогда выделенная ячейка будет закрашена определенным цветом.(каждое число для своего цвета)

Вопрос в том, как мне это сделать?Возможно ли что-то подобное в Excel?У меня есть некоторый опыт работы с кодом, но даже близко к профессионалу.Я только что сделал VB Stuff для моего уровня GCE A Computing.

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

Так вот, я задаю этот вопрос, надеясь, что кто-то добрый, возможно, посчитает это вызовом и поможет мне его осознать.Я бы потратил время, чтобы научиться делать это сам, но сейчас, когда у меня есть свободное время, что-то подобное заняло бы месяцы, просто потому, что я тщательный и хочу учиться на абсолютных основах.

Answer 1

Чтобы войти в этот специальный режим, вы можете запустить макрос для назначения новых целей этим клавишам.

В модуле в редакторе VBE вы можете добавить:

Sub EnterSpecialMode()
    Call Application.OnKey("1", "color1")
    Call Application.OnKey("2", "color2")
    Call Application.OnKey("3", "color3")
    Call Application.OnKey("4", "color4")
End Sub

Sub ExitSpecialMode()
    Call Application.OnKey("1")
    Call Application.OnKey("2")
    Call Application.OnKey("3")
    Call Application.OnKey("4")
End Sub

Sub color1()
    Selection.Interior.Color = RGB(255, 0, 0)
End Sub

Sub color2()
    Selection.Interior.Color = RGB(0, 255, 0)
End Sub

Sub color3()
    Selection.Interior.Color = RGB(0, 0, 255)
End Sub

Sub color4()
    Selection.Interior.Color = RGB(255, 255, 0)
End Sub

Понятно, но для входа в специальный режим необходимо запустить EnterSpecialMode .И для выхода запустите ExitSpecialMode sub