Страницы: 1
RSS
Изменение цвета текста, при введении значения в активную ячейку
 
День/вечер добрый. Есть задачка, в определённом диапазоне цвет текста полупрозрачный (не видно при печати), а как сделать что бы при воводе новых значений цвет текста менялся на штатный? Googl и макрорекордер не помогли...
 
Цитата
QwertyBoss написал: макрорекордер не помогли
Да, ладно?!
Код
Option Explicit

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End Sub
Рихтуете и вешаете на событие листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Вот те на... А я начал мудрить. задавать диапазон, назначать переменные, указывать их типы, ужас...Когда знаешь - всё просто =).  Спс. ув JayBhagavan. (каждый день - что-то новое  :D )
Изменено: QwertyBoss - 06.02.2016 22:45:52
 
Цитата
QwertyBoss написал: каждый день - что-то новое
Вы узнали, что макрорекордер всё же работает? ))
 
Цитата
Юрий М написал: макрорекордер всё же работает
И ещё как )
 
Цитата
JayBhagavan написал: Да, ладно?!
Не помню это, но в 2007 много чего не пишет.
 
Было бы так со всеми вопросами... )
Страницы: 1
Читают тему
Наверх