Question

我想插入此公式

= IF（L257＆GT; 28; “＆GT; 28”; IF（AND（L257＆LT; = 28; L257＆GT; 21）; “≤28”; IF（AND（L257＆LT; = 21; L257＆GT; 14）;” ≤21 “; IF（AND（L257＆LT; = 14; L257大于7）;” ≤14 “; IF（L257＆LT; = 7;” ≤7 “;” 错误“）））））

使用excel vba到特定的单元格，如果我正在录制它然后代码根本没有运行，我的意思是我会收到一个错误代码，或者如果我试图改变这些符号≤这个＆lt; =它仅显示“=”标记和数字作为结果但未显示此特定“＆lt;”标志。您能帮我解决一下我应该如何将其纳入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字符，如下所示，这将使用所需公式中的Greater或Equal符号并正确显示：

Unicode字符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脚本插入具有特定字符的公式

1 个答案: