Здравствуйте. Интересует вопрос: можно ли как-нибудь изменить цвет заливки ячейки с желтого, на какой-нибудь другой? Пользуюсь часто зеленым и красным, но после открытия файлов хотелось бы чтобы они были "под рукой".
Здравствуйте. Интересует вопрос: можно ли как-нибудь изменить цвет заливки ячейки с желтого, на какой-нибудь другой? Пользуюсь часто зеленым и красным, но после открытия файлов хотелось бы чтобы они были "под рукой".foliant
как вариант - надстройка, добавляет кнопки в контекстное меню "Ячейка" можно из обычного файла запустить разово
[vba]
Код
Sub set_color() Dim c As CommandBar Set c = CommandBars("cell") Dim gr As CommandBarControl With c Set gr = c.Controls.Add(Before:=1) With gr .Caption = "Красный" .OnAction = "Red" End With Set gr = c.Controls.Add(Before:=1) With gr .Caption = "Зеленый" .OnAction = "Green" End With End With End Sub
Sub red() Selection.Interior.Color = 255 End Sub
Sub green() Selection.Interior.Color = 5287936 End Sub
[/vba]
как вариант - надстройка, добавляет кнопки в контекстное меню "Ячейка" можно из обычного файла запустить разово
[vba]
Код
Sub set_color() Dim c As CommandBar Set c = CommandBars("cell") Dim gr As CommandBarControl With c Set gr = c.Controls.Add(Before:=1) With gr .Caption = "Красный" .OnAction = "Red" End With Set gr = c.Controls.Add(Before:=1) With gr .Caption = "Зеленый" .OnAction = "Green" End With End With End Sub
Sub red() Selection.Interior.Color = 255 End Sub
Sub green() Selection.Interior.Color = 5287936 End Sub
c первого раза файл запустился нормально. Но как только изменил цвет на другой и сохранил, после след. запуска появился последний цвет. Удалил файл, перекачал заново, но теперь уже все стандартно - желтый....Почему так?
c первого раза файл запустился нормально. Но как только изменил цвет на другой и сохранил, после след. запуска появился последний цвет. Удалил файл, перекачал заново, но теперь уже все стандартно - желтый....Почему так?foliant