在表格中显示形位公差符号

• • 需求
  • 效果
  • 自动实现
  • 代码

需求

有的时候，需要在表格中或是在文档中显示机械制图方面的形位公差符号，实现这些特殊符号的良好显示并不是一件容易的事，有时使用图片插入，操作麻烦，显示效果不了是很好。下文介绍了如何在表格中实现形位公差符号的显示，并且可以使用宏代码来实现辅助输入。

效果

下面这个图片即是显示的效果，使用了GDT这个字体后，输入正常的小写英文字母，即会出现各种形位公差符号。一般来讲，安装AutoCAD后，电脑中都会有这个字体。

自动实现

现在有一个问题，就是如何出现A1单元格中的字母（或汉字）与符号同时存在的显示，并且能够很方便的得到。下面给出的这一段VBA代码，就可以实现这个功能。

在表格中输入下面的代码，即可以实现输入字母自动转符号的功能，只要字母以“~”开头，即可以在单元格输入完成后，自动替换为形位公差符号。代码第二行的内容即是单元A1的原字符。

实现原理是单元格被修改后，逐个判断单元格的字符，发现标识符后，将字体改为GDT，其它的不变，这样一来可以很方便的输入，也可以很好的显示。

代码

Private Sub Worksheet_Change(ByVal Target As Range)
'a~bc~d~e~f~g12uyt~c
Const flag = "~" '形位公差标识符，可以自己选择一个基本不会在文档内容中使用的字符
Dim po As String
Dim num() As String

On Error GoTo err
Application.EnableEvents = False '停止事件响应
'查找标识符位置
For i = 1 To Len(Target)
    If Mid(Target, i, 1) = flag Then
        po = po & "," & i '记录标识符位置
    End If
Next
Target = Replace(Target, flag, "") '去除标识符
num = Split(po, ",")
For i = 1 To UBound(num)
    Target.Characters(Start:=num(i) - i + 1, Length:=1).Font.Name = "GDT"  '设置记录位置字体
Next
err:
Application.EnableEvents = True '恢复事件响应
End Sub
           

表格中还有几个字体，也可以用来做特殊字符的输入和显示，如wingdings、wingdings2、wingdings3，有兴趣的人，可以自己试一下，选择自己常用的字符来使用。

——专注办公软件的二次开发及培训，你有问题，我有思路！

——微博、微信、CSDN同号：w_dexu。

——转载请注明出处！

扫码加微信