Excel VBA: функция, чтобы включить activecell в жирный

У меня есть следующая функция внутри моего модуля.

Function Colorize(myValue)
    ActiveCell.Select
    Selection.Font.Bold = True
    Colorize = myValue
End Function

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

Спасибо

Ответы

Ответ 1

UDF вернет только значение, которое не позволит вам изменить свойства ячейки/листа/книги. Переместите свой код в событие Worksheet_Change или аналогично свойствам изменения.

Например,

Private Sub worksheet_change(ByVal target As Range)
  target.Font.Bold = True
End Sub

Ответ 2

Я использую

            chartRange = xlWorkSheet.Rows[1];
            chartRange.Font.Bold = true;

чтобы превратить шрифт first-row-cells в жирный шрифт. И он работает, и я использую также Excel 2007.

Вы можете напрямую позвонить в VBA

            ActiveCell.Font.Bold = True

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

           Private Sub Worksheet_SelectionChange(ByVal Target As Range)
               ActiveCell.Value = Now()
               ActiveCell.Font.Bold = True
               ActiveCell.Interior.ColorIndex = 6
           End Sub