写上覆盖的文本

我知道有一个公式可以使用，然后执行以使文本被上划线，但是当您单击该文本时看起来很奇怪。使用方程工具 - 重音和overbar作品，但我对字体有限，我需要使用某种字体，而不是Cambria Math。另外我想要一个更简单的方法，然后可以从后面的代码生成。写上覆盖的文本

有没有人知道如何在Excel中使用overline编写文本？

来源

2015-10-22 danis

你能添加一个屏幕截图吗？ – zedfoxus

如果你想要一个连续的行（某些字符之间没有间隔），那么唯一的方法就是格式化单元格的上边框。当然，这意味着超线会延伸单元的整个宽度。如果你想逐字（这将显示一些字符之间的差距），那么你通过在每个显示字符之前插入一个unicode over-line字符来做到这一点。 –

这工作，虽然我可以看到行不连续。但是因为仅仅在单词的某个部分上划线，我认为这是最好的选择。谢谢！ – danis

考虑：

Sub HelloWorld() 
    Dim s As String, s2 As String 
    s = "HELLOWORLD" 
    For i = 1 To Len(s) 
     s2 = s2 & Mid(s, i, 1) & ChrW(773) 
    Next i 

    With ActiveCell 
     .Font.Name = "Arial MS Unicode" 
     .Value = s2 
    End With 
End Sub

注意我选择了一个常用的字体。

来源

2015-10-22 14:53:26

写上覆盖的文本

回答

相关问题