VBA Formula 写入IF公式不能带汉字么？

409056202 · 发表于 2018-8-7 13:54

Range("T" & i).Formula = "=IF(OR(I2="冷轧",I2="热轧"),1,2)"

用Formula 写其他公式可以，IF里带汉字是不行了么？提示缺少语句结束

mythqiu · 发表于 2018-8-7 14:14

本帖最后由 mythqiu 于 2018-8-7 14:15 编辑

双引号的问题.
Range("T" & i).Formula = "=IF(OR(I2=""冷轧"",I2=""热轧""),1,2)"
还有个问题,其实没必要写入用formula,读取才需要

409056202 · 发表于 2018-8-7 14:55

mythqiu 发表于 2018-8-7 14:14
双引号的问题.
Range("T" & i).Formula = "=IF(OR(I2=""冷轧"",I2=""热轧""),1,2)"
还有个问题,其实没必 ...

原公式：=IF(N2="","",D2&E2&F2&IF(OR(I2="冷轧",I2="热轧"),I2&G2,I2))

写入变量后：Range("T" & i).Formula = "=IF(N" & i & "="","",D" & i & "&E" & i & "&F" & i & "&IF(OR(I" & i & "=""冷轧""I & i & " = "热轧""),I" & i & "&G" & i & ",I" & i & "))"

结果运行的时候单元内，没有写入公式，直接显示一个FALSE的结果是啥情况

mythqiu · 发表于 2018-8-7 16:01

本帖最后由 mythqiu 于 2018-8-7 16:08 编辑

Range("T" & i).Formula ="=IF(N" & i & "="""","""",D" & i & "&E" & i & "&F" & i & "&IF(OR(I" & i & "=""冷轧"",I" & i &"=""热轧""),I" & i & "&G" & i & ",I" & i & "))"

----------------------
请测试.

mythqiu · 发表于 2018-8-7 16:04

vb的规则很简单一个"要写成"",本来是2个的就要写成4个双引号

409056202 · 发表于 2018-8-8 09:07

mythqiu 发表于 2018-8-7 16:01
Range("T" & i).Formula ="=IF(N" & i & "="""","""",D" & i & "&E" & i & "&F" & i & "&IF(OR(I" & i & "= ...

谢谢了兄弟！我昨儿查了半天以为是字符数的问题，都打算放弃了。。。看来还是自己写的有问题

		自动登录	找回密码
密码			免费注册

[求助] VBA Formula 写入IF公式不能带汉字么？