Excel VBA:将activecell变为粗体的功能

Question

我的模块中有以下功能.

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

将使用此功能的单元格应该变为粗体 - 但是,我没有收到任何错误消息,但是很遗憾,但它没有变为粗体.我错过了什么？

谢谢

Answer 1

UDF只返回一个值,它不允许您更改单元格/工作表/工作簿的属性.将代码移动到Worksheet_Change事件或类似事件以更改属性.

例如

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