Excel中令人困惑的内置函数行为(SymbolInsert)

5vf7fwbs  于 2023-01-21  发布在  其他
关注(0)|答案(1)|浏览(125)

我遇到了一个内置函数SymbolInsert的奇怪行为。单元格字体是Arial。在SymbolInsert中,我选择字体Wingdings,然后我选择并粘贴符号,并退出SymbolInsert。移动到下一个单元格后,我得到以下结果。如果所选字符属于一个字面字符范围,则包含该字符的单元格将字体更改为Wingdings,这是预期的结果。然而,如果所选字符Wingdings位于常规字体包含数字的位置,则单元格字体将重置为Arial。我使用的是Excel版本2104(内部版本号13929.20254)。如何修复此行为,以便将所有字符的SymbolInsert设置为SymbolInsert.

中选择的字体
运行宏,

With Application
        .CommandBars.ExecuteMso "SymbolInsert"
        .SendKeys "{TAB}", True
End With

在出现的SymbolInsert窗口中,选择WingDings字体,然后选择一个CaracterCode在48-57范围内的符号,将其粘贴到工作表中,并关闭SymbolInsert窗口。关闭窗口后,光标位于符号所在的单元格中,到目前为止一切正常。离开单元格后,字体将重置为调用characterInsert函数之前单元格的字体。
我搜索了一下,但很遗憾我在网上没有找到任何东西

agxfikkp

agxfikkp1#

到目前为止,我已经实现了我想要的帮助下,这样一个宏:

With Application
.CommandBars.ExecuteMso "SymbolInsert"
.SendKeys "{HOME}'{TAB}", True
DoEvents
.ActiveCell.Offset(0, -1).Select
.ActiveCell.Value = Mid(.ActiveCell.Value, 1, 1)

结束于
我知道这是一个拐杖,但也许有一个更优雅的解决方案

相关问题