如何正确使用 VBA 脚本插入具有特定字符的公式

Question

我想插入这个公式

=IF(L257>28;">28";IF(AND(L257<=28;L257>21);"≤28";IF(AND(L257<=21;L257>14);"≤21";IF(AND(L257<=14;L257>7);"≤14";IF(L257<=7;"≤7";"error")))))

with excel vba 到一个特定的单元格，如果我正在记录它那么代码根本不是运行，我的意思是我会收到一个错误代码，或者如果我尝试将这些符号 ≤ 更改为此 <=，它只会显示“=”标记和数字作为结果，但不会显示这个特定的“<”符号。你能帮助我如何将其放入 VBA 代码或解决方案是什么？

正在录制这样的东西

Range("M2").Select
ActiveCell.FormulaR1C1 = _
    "=IF(RC[-1]>28,"">28"",IF(AND(RC[-1]<=28,RC[-1]>21),""=28"",IF(AND(RC[-1]<=21,RC[-1]>14),""=21"",IF(AND(RC[-1]<=14,RC[-1]>7),""=14"",IF(RC[-1]<=7,""=7"",""error"")))))"
Range("M3").Select

Answer 1

如何在您的公式中使用 Unicode 字符，如下所示，这将使用您所需公式中的“大于”或“等于”符号并正确显示：

Unicode Character 8804 = ChrW(8804) = ≤

ActiveCell.FormulaR1C1 = "=IF(RC[-1]>28,"">28"",IF(AND(RC[-1]<=28,RC[-1]>21),""" & ChrW(8804) & "28"",IF(AND(RC[-1]<=21,RC[-1]>14),""" & ChrW(8804) & "21"",IF(AND(RC[-1]<=14,RC[-1]>7),""" & ChrW(8804) & "14"",IF(RC[-1]<=7,""" & ChrW(8804) & "7"",""error"")))))"

如何正确使用 VBA 脚本插入具有特定字符的公式

How to insert formula with specific characters using VBA script correctly

vba

excel

excel-2016