다른 셀 내용을 기준으로 한 0 값

Q 열이 닫히면 열 AB, AD, AF, AL, AN, AP 모두 0으로 되돌아 가고 싶습니다. 이것은 각 행에 대한 것입니다.

2016-07-13 Chris

은 무엇을 지금까지 시도 했습니까? –

'Worksheet_Change' 이벤트에 대한 조사를하고 여러분이 필요로하는 것이 맞는지 확인하십시오. – arcadeprecinct

Public Sub SetZeroForClosed() 
 
Dim TRange As Range 
 
    Set TRange = ActiveSheet.UsedRange 
 
    For i = 1 To TRange.Rows.Count 
 
If VBA.LCase(VBA.Trim(TRange.Cells(i, 17).Value)) = VBA.LCase("Closed") Then 
 
    TRange.Cells(i, 28).Value = 0 
 
    TRange.Cells(i, 30).Value = 0 
 
    TRange.Cells(i, 32).Value = 0 
 
    TRange.Cells(i, 38).Value = 0 
 
    TRange.Cells(i, 40).Value = 0 
 
    TRange.Cells(i, 42).Value = 0 
 
End If 
 
    Next i 
 
End Sub

출처

2016-07-13 11:09:58

이 vba 코드를 사용하여 매크로에 넣으십시오.이 코드를 실행하고 실행하는 방법에 대해 아이디어가 있습니까? –

그래, 나에게 컴파일 오류를주는 것을 계속했다 – Chris

그 오류의 스냅인을 보내고 또한 코드의 스냅을 보내라. –

다른 셀 내용을 기준으로 한 0 값

답변

관련 문제