excel - 通过 vba 挂锁符号

Question

是否可以使用 Chr() 在单元格中打印挂锁符号(打开和关闭) , ChrW()或通过VBA类似的东西？

Answer 1

Excel 似乎将特殊字符存储为 UTF-16。只要您有适合 16 位的代码，就很容易:只需使用函数 ChrW 转换代码即可。 .比如闹钟的代码是U+23F0，那么可以写成ActiveCell.Value = ChrW(&H23F0)你得到你的闹钟(前缀&H定义一个十六进制数)。

但是，当您的字符不适合这些 16 位时，您必须找出 UTF-16 代码并将它们连接起来。我找到的锁是U+1F512和 U+1F513 , 它们的 UTF-16 代表分别是 0xD83D 0xDD12 。 0xD83D 0xDD13。所以你写了类似的东西

ActiveCell.Value = ChrW(&HD83D) & ChrW(&HDD12)

当然，您需要为支持这些字符的单元格设置字体。

我找到了 http://www.fileformat.info/info/unicode/char/search.htm有助于找到匹配的字符。如果您已经有一个字符并且可以将其粘贴到单元格中，则可以使用我在此答案中编写的代码: https://stackoverflow.com/a/55418901/7599798