C помощью клавиатуры закрасить ячейку в текущий цвет?

[sonata]

Можно ли с помощью клавиатуры закрасить ячейку в текущий цвет?
Если нет, то как с помощью надстройки?
Очень надо...

[RayShade]

Вообще-то непонятно что имеется в виду под "текущим цветом".



А вообщето закраска ячейки - это

Код: Выделить всё

Sheets("Sheet1").Cells("A1").BackColor = RGB(255,0,0)


закрасит ячейку А1 в красный цвет. И что значит с помощью клавиатуры?

[sonata]

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

[RayShade]

С помощью клавиатуры - это написать макрос а потом повесить его на нужную комбинацию клавиш.



По поводу установки фона я немного ошибся - это длеатеся вот так:

Worksheets("Sheet1").Range("A1").Interior.Color = нужный цвет.



А определение последнего использованного цвета это надо поискать