"If/Then"ステートメントが機能しない

Question

ステートメントを実行しようとしていますが、変数の値が"Mils"に等しい場合、指定された機能が実行されます。しかし、現在何も起こっていません。

私は間違っていますか？

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）の上にカーソルを置いて、コードをクリックします。

は、この問題の解決方法を試してみてください。

If z = "Mils" Then 

2）徐々にF8キーをクリックすると、その行

3）にマークを置くためにF9をクリックします（このキーは何それはそのコードまでプログラムを実行します。それは基本的にあなたの流れを示しているので、あなたのプログラムの）

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 

それはどんなステップをスキップした場合、あなたはおそらく、スキップされた手順を見て、NEをしなければなりませんセサリー調整。