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

Question

我想在字符串末尾返回适当的 Wingdings 字符，公式如下所示：

enter image description here

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

Answer 1

仅靠公式无法改变单元格部分的字体。

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

这个 sub 将当前活动单元格的最后一个字符更改为 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 自动化到另一个单元格，使用上面的函数更改 那个 单元格的部分格式，也许“隐藏”原始（公式）单元格。

编辑#2：

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

✂✂✃✄✄✅✆✈✉✊✋✋✌✎✏✐✲✳✳✴✶✷✸✹✺✺✻✻✼✿❀❁❂❂❃❃❄❇❈❉❊❋❋❋❋❋❋❋❋❊➱➱ ➳ ➴ ➵ ➶ ➷ ➸ ⌚ ⌛ ❶ ❷ ❸ ❹ ❺ ● ◌ ○ ◊ ◦ □ ┘ ⌂ ⅕⃝ Ω ℗ Ө Ӂ Φ ʘ ʘ ① ② ③ ④ ⑤ 等

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

双击你想要的，然后Insert。

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

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

Answer 2

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

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