'===================ABV PROJECT======================
'===================MODULE 1  =======================
Sub main ()
'you can edit this macro to execute any command when loading this workbook
'next line call the routine that fill the sheet
call absmain ()
call iftest()
End Sub

Sub iftest()
If Cells(1,2) = Cells(2,2) Then
Cells(3,2)=1
Else
Cells(3,2)=0
End if

If Cells(1,2) <> Cells(2,2) Then
Cells(4,2)=1
Else
Cells(4,2)=0
End if

If Cells(1,2) < Cells(2,2) Then
Cells(5,2)=1
Else
Cells(5,2)=0
End if
If Cells(1,2) <= Cells(2,2) Then
Cells(6,2)=1
Else
Cells(6,2)=0
End if
If Cells(1,2) > Cells(2,2) Then
Cells(7,2)=1
Else
Cells(7,2)=0
End if
If Cells(1,2) >= Cells(2,2) Then
Cells(8,2)=1
Else
Cells(8,2)=0
End if
If Cells(1,2) Or Cells(2,2) Then
Cells(9,2)=1
Else
Cells(9,2)=0
End if
If Cells(1,2) And Cells(2,2) Then
Cells(10,2)=1
Else
Cells(10,2)=0
End if
If Cells(1,2)<=Cells(2,2) And Cells(1,2)>=Cells(2,2) Then
Cells(11,2)=1
Else
Cells(11,2)=0
End if
If Cells(1,2)<Cells(2,2) Or Cells(1,2)>Cells(2,2) Then
Cells(12,2)=1
Else
Cells(12,2)=0
End if


End Sub



Sub absmain()
'Do not edit this macro, changes will not be saved with the workbook!!!
Dim objchart  As Object
Dim objbutton As Object
Worksheets(1).Name = "A"
Worksheets(2).Name = "B"
Worksheets(3).Name = "C"
Worksheets(1).Activate
Cells(1,1).Formula="'A"
Cells(1,2).Formula="=1."
Cells(2,1).Formula="'B:"
Cells(2,2).Formula="=0."
Cells(3,1).Formula="'A=B"
Cells(4,1).Formula="'A!=B"
Cells(5,1).Formula="'A<B"
Cells(6,1).Formula="'A<=B"
Cells(7,1).Formula="'A>B"
Cells(8,1).Formula="'A>=B"
Cells(9,1).Formula="'AOrB"
Cells(10,1).Formula="'AAndB"
Cells(11,1).Formula="'A<=B And A>=B"
Cells(12,1).Formula="'A<B Or A>B"
Worksheets(2).Activate
Worksheets(3).Activate
Worksheets(1).Activate
End Sub