有没有办法在单个单元格中使用下划线、粗体和斜体？

Posted 2023-02-19

【中文标题】有没有办法在单个单元格中使用下划线、粗体和斜体？

【英文标题】：Is there a way to use underline, bold and Italic in a single cell?

【发布时间】：2021-04-28 22:59:10

【问题描述】：

我对 VBA 世界还很陌生。我想知道是否有任何方法可以在单个单元格中使用下划线、粗体和斜体。在此示例中，我希望仅将第一行和第二行加粗，名称在第一个单词后加 2 个连字符，第三行加下划线。不完全确定这是否可能。第一个单元格显示了我所拥有的。第二个单元格显示了我要查找的内容。

【问题讨论】：

每个单元格是否有 2 个中断？

你可以记录你做这些事情的宏，然后看看它对函数的作用等等。然后从那里开始工作。否则，您是一次只对一个选定的单元格执行此操作，还是一个单元格范围？

您找到解决方案了吗？

是的！感谢您和@shrivallabha.redij 的帮助！

【参考方案1】：

如果您想在多个单元格上执行此操作，则可以使用以下代码作为起点。我在代码中提供了 cmets，应该可以帮助您理解。

Public Sub HUBSpecificStyle()
    Dim rng As Range
    Dim varContent, varFirstRow
    
    '\\Loop through all cells in selection
    For Each rng In Range("A2:B2") '\\ Set your range reference here
        varContent = Split(rng.Value, Chr(10)) '\\ Split cell contents by newline character
        With rng
            '\\ First two lines of row bold
            .Characters(1, Len(varContent(0) & Chr(10) & varContent(1))).Font.Bold = True
            '\\Third line underline
            .Characters(Len(varContent(0) & Chr(10) & varContent(1) & Chr(10)) + 1, Len(varContent(2))).Font.Underline = True
            '\\ Split first line with hyphens
            varFirstRow = Split(varContent(0), "-")
            '\\Third part italic
            .Characters(Len(varFirstRow(0) & "-" & varFirstRow(1) & "-") + 1, Len(varFirstRow(2))).Font.Italic = True
        End With
    Next rng

End Sub