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

【问题标题】：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 的帮助！

标签： excel vba

【解决方案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

【讨论】：