Excel 内置或 VBA 函数可设置部分文本的格式(例如颜色)

Question

我需要格式化多行文本单元格第一行的颜色(或粗体文本...)。所以例如我得到了

=myfunction (firstLine, secondaryLine)，然后生成(在一个单元格内)

    firstLine (vbLf)
    secondLine

但我需要它来生产

    **firstLine** (vbLf)
    secondLine

(第一行是粗体)因此，仅在 VBA 函数内格式化字符串的一部分。我可以在 Sub 中使用类似的东西来完成

    lngPos = InStr(myCell.Value, vbLf)
    With myCell.Characters(Start:=1, Length:=lngPos - 1).Font
        .FontStyle = "Bold"
    End With

但我找不到在函数内执行此操作的方法(如果可能的话)。

Answer 1

除了从用户定义函数 (UDF) 返回值之外，它无法执行任何操作。但是，您可以通过更改触发工作表事件，然后更新数据。将其添加到相关工作表的模块中。将 Range("J6:J10") 更改为您需要监控的范围并添加粗体/任何附加代码:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("J6:J10")) Is Nothing Then

        ' do something on the cells

    End If

End Sub