Excel Mac VBA 반복 셀을 통해 일부 값을 재설정하십시오.

Question

저는 현재 여러 사람이 매일 작성한 워크 시트를 가지고 있습니다. 사용자가 기입하는 열은 C, E, H, & J (모든 숫자 값, 한 달에 한 행)

사용자는 C, E, & H를 매일 입력합니다. 하지만 J 일의 값을 사용자가 입력하지 않으면 0으로 설정해야합니다. 물론 사용자가 0을 입력하는 것이 더 쉬울 것이지만 여기서 복잡한 그룹의 사람들과 작업하고 있습니다.

어쨌든 실제로 저장하기 전에 사용자가 저장 버튼을 클릭 할 때 자동으로 실행되는 매크로를 사용하고 다음을 수행합니다. (나는 PHP에 익숙하므로, m 그냥 내가 알고 있어요 어떻게을 입력 - 내 구문이 올바르지 않습니다 확신) 사람이 나를 도울 수 있다면

Foreach Row 
    If "column A" != "" { 
    If "column J" != "" { 
    //Everything is good, continue on... 
    } else { 
    CurrentRow.ColumnJ.value == 0 
    }//Value has been set - continue loop 
    } 
    //column A is blank, this day hasn't come yet - quit looping here 
End Foreach 

내가 그것을 감사하겠습니다. 몇 가지 연구를 통해 지금까지 내가 쌓아 왔던 것이고 지금은 붙어 있습니다 ...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Dim curCell As Range 
'Labor Flow Sheet'.Select 

For Each curCell in Range(????) 
    If curCell.Value = "" Then 
    ??????? 
    End If 
Next curCell 
End Sub 

미리 감사드립니다!

Answer 1

오른쪽 범위를 찾는 것에 대해이 link를 참조하고, If 문 내부의 물음표에 관해서는, 당신은 당신의 문에 물음표를 들어

curCell.Value = 0 

Answer 2

을 데려 가고 싶다는 것

For Each curCell in Range(????) 

해결책 1 :
작업하는 전체 범위를 찾으려면 매일 채워지는 열을 사용해야합니다. 당신은 C, E, H 열이 매일 채워 졌다고 언급했습니다. 이 열 중 하나를 사용하여 (예를 들어 여기에서 C를 선택하십시오.) .end 메서드를 사용하여 범위를 찾을 수 있습니다. 이것은 데이터를 찾을 수 없을 때까지 범위에서 왼쪽 또는 오른쪽으로 아래로 이동합니다. 그래서,

Range("J1", Range("C1").End(xlDown)).Select 

는 J1 (또는 시트의 마지막 무엇이든 열) 열 C의 가장 아래 셀에 포함 된 데이터, 자동으로까지 모든 셀을 선택합니다.

해결책 2 :
수동으로 범위에 넣습니다. 예를 들어 A1 ~ J300을 선택하려면 다음을 입력하십시오.

Range("A1", "J300").Select