Excel-Anweisungen Logische Konzeption

Question

Guten Abend!

Ich versuche, einige Excel Aussage zu machen um das Aussehen zu haben unter:

Was ich versuche zu tun, dass:

if(A1=1 and B1=0) output would be A1=1 and B2=0 
if(A1=0 and B1=1) output would be A1=0 and B2=1 
if(A1=0 and B2=0) output is an error. 
if(A1=1 and B2=1) output is an error. 
if(A1="-"and B2="-") output would be A1="-" and B2="-". 

Das Gleiche gilt für alle Zelle geht von A und B. Irgendwelche Vorschläge?

Answer 1

Sie den folgenden Code benötigen Post, dass Ihr Makro aktiviert wird, wenn irgendetwas in Spalte A oder B in das Blatt Objekt geändert wird:

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim x As Long 

    If Not Intersect(Target, Columns("A:B")) Is Nothing Then 
     Call Evaluatecells 
    End If 

End Sub 

und den Code unten, die Ihre Zellen für die Kriterien auswertet, gehen in das Modul ein:

Sub Evaluatecells() 

lastrow = ActiveSheet.UsedRange.Rows.Count 

For x = 2 To lastrow 
     If Cells(x, 1).Value = 0 And Cells(x, 2).Value = 0 Then 
      MsgBox ("Error - Values in A1 and B1 cannot be both 0.") 
      Exit For 
     ElseIf Cells(x, 1).Value = 1 And Cells(x, 2).Value = 1 Then 
      MsgBox ("Error - Values in A1 and B1 cannot be both 1.") 
      Exit For 
     End If 
    Next x 

End Sub 

Lassen Sie mich wissen, wenn Sie Fragen haben.