使用 Excel 公式返回文本中的 Wingdings 字符

Question

我想要 return 在字符串末尾使用 Wingdings 字符，公式如下所示：

enter image description here

我可以将哪个公式写入 return 单元格中常规字符串末尾显示的 Wingdings 字符？（而不是“？”字符）：实心圆字符为return在公式的真实情况和空心圆字符return在错误的情况下，所以这两个字符在绿色范围内。

Answer 1

单独的公式不能改变单元格部分的字体。

你能做的最好的事情是有一个 VBA 函数来根据需要进行更改，你可以运行手动，或者分配给按钮、计时器、事件等。

此子将当前活动单元格的最后一个字符更改为 Wingdings：

Sub LastLettWingding_Active()
    'changes the font for the last character of the **active** cell
    ActiveCell.Characters(Start:=Len(ActiveCell), Length:=1).Font.Name = "Wingdings"
End Sub

...这个做同样的事情，但是针对当前 选定的 单元格或单元格范围：

Sub LastLettWingding_Selection()
    'changes the font for the last character of the all selected cells
    Dim c As Range
    For Each c In Application.Selection
        c.Characters(Start:=Len(c), Length:=1).Font.Name = "Wingdings"
    Next c
End Sub

编辑：

我没有意识到这是一个公式结果，您正试图格式化其中的一部分。

不幸的是，公式和VBA都不能改变公式部分的字体结果.

我唯一的建议是将 Copy + Paste Values 自动化到不同的单元格，使用函数更改 that 单元格的部分格式上面，也许 "hide" 原始（公式）单元格。

编辑#2：

哦是的——@TomSharpe 还认为 Unicode 符号可能是一个更简单的解决方案（包含在大多数字体中，而不是使用没有字母表的单独字体）。

✂✄✅✇✈✉✋✍✎✲✳✴✴✵✵✶✷✸✹✺✺✻✼✾✿✿❀❀❁❂❃ ➱ ➲ ➳ ➴ ➵ ➶ ➷ ➸ ⌚ ⌛ ❶ ❷ ❸ ❹ ❺ ● ◌ ○ ◊ ◦ □ ┘ ⌂ ⅕⃝ Ω ℗ Ө Ӂ Φ ʘ ʘ ① ② ③ ④=1⑤=等。

单击一个空单元格，然后在 Insert 选项卡上单击 Symbol。确保您使用的是 "regular" 字体（如 Calibri）并向下滚动列表。

双击你想要的那个，然后Insert。

突出显示公式栏中现在显示的符号，从那里复制，现在您可以将其粘贴到您的IF公式中。

（或者，只需将右上方的符号复制到 Excel 公式中...）

Answer 2

您可以使用 char(149) 得到一个合理的近似值 • / 常规字体之一的小写 o

=IF(VALUE(RIGHT(C4,1))>=5,"Selected "&CHAR(149),"Selected o")

使用 Excel 公式返回文本中的 Wingdings 字符

Returning Wingdings characters within a text with an Excel formula

excel

text

excel-formula

wingdings

编辑：

编辑#2：