'===================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 ()
End Sub

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

If Cells(1,2) != Cells(2,2) Then
Cells(4,2)=1
Else
Cells(4,2)=0
Endif

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


End Sub


Sub ifequal()

If Cells(3,3) == Cells(4,3) Then
Cells(1,1)=1
Else
Cells(1,1)=0
Endif

End Sub



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

