MIS410 3

Sub question1()

Dim cellGuestid As Range

Dim cellGuestname As Range

Dim cellNumberofnights As Range

Dim cellPricepernight As Range

Dim cellTotalaccommodationprice As Range

Dim cellUseraccommodationprice As Range

Dim cellRange As Range

Set cellGuestid = Range("A1")

Set cellGuestname = Range("B1")

Set cellNumberofnights = Range("C1")

Set cellPricepernight = Range("D1")

Set cellTotalaccommodationprice = Range("E1")

Set cellUseraccommodationprice = Range("F1")

Set cellRange = Range("A1:E1")

cellGuestname = "Anfal"

cellGuestid = 1234

cellNumberofnights = 3

cellPricepernight = 300

cellUseraccommodationprice = 900

cellTotalaccommodationprice = cellNumberofnights * cellPricepernight

If cellTotalaccommodationprice = cellUseraccommodationprice Then

cellRange.Font.Color = vbBlack

cellRange.Inteior.Color = vbGreen

Else

cellRange.Font.Color = vbYellow

cellRange.Interior.Color = vbRed

End If

End Sub