使一个单元格的值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