“如果/那么”声明不起作用

我试图执行一个If语句，以便如果一个variables的值等于"Mils" ，它将执行所述的function。 但目前没有任何事情发生。

我究竟做错了什么？

 z = Sheet2.range("B20").value If z = "Mils" Then Set cx = Sheet8.range("D3", Sheet8.range("D3").End(xlDown)) For Each rng In cx rng.value = rng.value / y Next rng Set cy = Sheet8.range("E3", Sheet8.range("E3").End(xlDown)) For Each rngy In cy rngy.value = rngy.value / y Next rngy End If 

Answer 1

从我读的内容来看，你的程序可能会忽略你的一些指示。

试试这个问题解决方法：

1）将光标hover在上面，然后点击代码。

 If z = "Mils" Then 

2）点击F9在该行上添加一个标记

3）逐步点击F8键（这个键做的是运行程序直到那个代码，所以它基本上显示你的程序stream）。

4）检查F8是否跳过你的任何代码：

 If z = "Mils" Then Set cx = Sheet8.range("D3", Sheet8.range("D3").End(xlDown)) For Each rng In cx rng.value = rng.value / y Next rng Set cy = Sheet8.range("E3", Sheet8.range("E3").End(xlDown)) For Each rngy In cy rngy.value = rngy.value / y Next rngy End If 

如果跳过任何步骤，那么你应该看看跳过的步骤，并作出必要的调整。