用overline写文本

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

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

Answer 1

考虑：

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 

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