因此,我在功能区中添加了一个宏按钮,用于在单元格中现有数据的后面插入度数符号。我还想制作一个按钮来添加复选标记符号。在我的研究中,Wingdings 2将“P”更改为复选标记。我不知道如何在不将整个单元格的字体更改为Wingdings 2的情况下保持现有数据的字体并添加Wingdings 2复选标记。
Sub Add_check()
Dim cellinfo As String
Dim cellinfoplus As String
'Grab existing content
cellinfo = ActiveCell.Value
'Change the "P" to a checkmark
ActiveCell.Value = "P"
With Selection.Font
.Name = "Wingdings 2"
End With
'Save the checkmark into variable
cellinfoplus = ActiveCell.Value
'Concatenate variables
ActiveCell.Value = cellinfo + cellinfoplus
End Sub
我在Mr. Excel上浏览了这个post,但不知道如何修改它,youtube视频被删除了。
感谢您的任何帮助!
2条答案
按热度按时间zfycwa2u1#
您需要在这里使用
.Characters
,类似于以下内容:这样称呼它:
或者,如果您只想使用
ActiveCell
,则:qvtsj1bj2#
和一个sub,用于在开始或结束时添加任何符号(默认)
另一个版本是对符号进行toogle