excel - 在 Excel 2003 中将 unicode 分数字符(粗俗分数)转换为小数

Question

我正在尝试在 Excel 2003 中将以下文本转换为十进制数:

“93⅛”

输出应为:93.125

通过使用 VBA 中的替换函数，我已使其能够与 ¼、½、3/4 一起使用:例如，这有效:

cur_cell = Replace(cur_cell, "½", " 1/2")

但是，VBA 编辑器不支持 ⅛ 和系列字符。它们显示为??。相反，我尝试直接替换 unicode 值:

cur_cell = Replace(cur_cell, " & ChrW$(&H215B) & ", " 1/8")

但这行不通。

有没有一种好的方法可以将这些字符串转换为我可以使用的数字？

Answer 1

正确的语法是:

cur_cell = Replace(cur_cell, ChrW$(&H215B), " 1/8")

您的示例是这样说的:将由空格、与号、空格[等]组成的字符串替换为1/8。显然这不是您想要做的!

我实际上推荐:

cur_cell.Value = Replace(Replace(cur_cell.Value, ChrW$(&H215B), ".125")," ","")

规避 Excel 自动替换分数的功能。我只是不喜欢依赖那种自动的东西。为什么不直接把它写成十进制数呢？另外，我喜欢明确引用单元格的 .Value 属性，而不是依赖它作为默认属性。