使一個單元格的值0，如果使用Excel

Question

A B 
0 1 
2 0 
3 0 
0 4 
5 0 

如果我寫對細胞的東西其他單元格的值> 0。（A1）= 0它使細胞（B1）= 0自動。
如果我寫對細胞的東西。（B1）= 0它使細胞（A1）= 0自動。

Answer 1

讓假設你想上的值值B中柱基值。

那麼你的代碼應該是這樣的：

Sub fillValues() 
Dim i, k As Integer 
k = Cells(1, 1).CurrentRegion.Rows.Count  'determine last row 
For i = 1 To k 
    If Cells(i, 1).Value > 0 Then 
     Cells(i, 2).Value = 0 
    End If 
Next i 
End Sub 

Answer 2

如果youwant值自動chenge一旦你的列中的任何地方進入的0值：B，那麼您需要在您的代碼Worksheet_Change事件。

注：不知道我underatand如果你想，當你更改單元格中的一個0或0到mekt其他細胞0。

Private Sub Worksheet_Change(ByVal Target As Range) 

Application.EnableEvents = False 
If Not Intersect(Target, Columns("A:B")) Is Nothing Then ' check if a cell in Columns A:B is changed 
    If Target.Value = 0 Then '<-- if the value changed is 0 
    ' option 2 to your post 
    'If Target.Value > 0 Then '<-- if the value changed is > 0 
     Select Case Target.Column '<-- check which column modifed, A or B 
      Case 1 
       Target.Offset(, 1).Value = 0 
      Case 2 
       Target.Offset(, -1).Value = 0 
     End Select    
    End If  
End If 
Application.EnableEvents = True 

End Sub