如果另一个Cell = TRUE，则将一个InputBox的结果写入一个Cell

如果单元格C4具有文本“TRUE”，我想要下面的代码写入单元格L14上的InputBox的结果。

  Sub dele() myValue4 = InputBox("What's the number?") If Range("C4").Value = "TRUE" Then Range("L14").Value = myValue4 End If 

似乎没有工作。 有任何想法吗？

Answer 1

文本条件是区分大小写的。 所以试试这个：

 If Ucase(Range("C4").Value) = "TRUE" Then 

但是，如果你在Range（“C4”）中只有一个布尔值，那么它也可以工作：

 If Range("C4").Value = True Then