用上划线写文字

Question

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

有谁知道如何在Excel中写上划线的文字？

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

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

用上划线写文字

Write text with overline

excel

openxml