"If/Then"문이 작동하지 않습니다

Question

변수 값이 "Mils"과 같으면 명시된 기능을 수행하도록 If 문을 수행하려고합니다. 그러나 현재 아무 일도 일어나지 않고 있습니다.

내가 뭘 잘못하고 있니? 에서

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 

이 그때는 아마 스킵 단계를 살펴보고 북동해야 어떤 단계를 건너 뛴 경우 세서리 조정.