Excel当单元格A1等于1时单元格B1可以输入任何值,当单元格A1不等于1时单元格B1等于0

Excel当单元格A1等于1时单元格B1可以输入任何值,当单元格A1不等于1时单元格B1等于0

这种问题应该不能用公式来实现，只能通过VBA，写代码来实现。
下面的是我写的一段代码：你可以复制到VBA中
模块中的代码：


Sub aa(myCells As Range)
If myCells.Count <> 1 Then GoTo myend
If myCells.Column = 1 Then
    If myCells.Value = 1 Or myCells.Value = "" Then
    Cells(myCells.Row, myCells.Column + 1) = ""
    Else
    Cells(myCells.Row, myCells.Column + 1) = 0
    End If
End If
myend:
End Sub

Sub bb(myCells As Range)
If myCells.Count <> 1 Then GoTo myend
If myCells.Column = 2 Then
    If Cells(myCells.Row, myCells.Column - 1).Value <> 1 Then Cells(myCells.Row, myCells.Column - 1).Select
End If
myend:
End Sub

然后在工作表事件中调用上面的代码。如：


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call bb(Target)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call aa(Target)
End Sub

在你需要的单元格里输入，if(a1=1,b1,0)

c1单元格写入公式 =if(and(a1="",b1=""),"",if(a1=b1,"正确",if(a1<>b1,"不正确"))) 当a1,b1为空单元格时值为空 =if(or(a1="",b1=""),"",if(a1=b1,"正确",if(a1<>b1,"不正确"))) 当a1,b1有一个单元格是空单元格时值为空

这个要用VBA。 在工作表标签（左下角,如Sheet1）单击鼠标右键，选“查看代码”，在代码窗口粘贴下列代码即可： Private Sub Worksheet_Change(ByVal Target As Range)     If Target.Address = "$B$1" Then         If Cells(1, 1) = 0 Then             Cells(1, 2) = 0         Else             If Cells(1, 1) <> 1 Then                 Cells(1, 2) = ""             End If         End If     End If End Sub