MIS410 3 use Excel VBA Sub question1() Dim cellGuestid As Range Dim cellGuestname As Range Dim cellNumberofnights As Range Dim cellPricepernight As Ran

Click here to Order a Custom answer to this Question from our writers. It’s fast and plagiarism-free.

MIS410 3 use Excel VBA 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

Place your order now for a similar assignment and have exceptional work written by one of our experts, guaranteeing you an A result.

Need an Essay Written?

This sample is available to anyone. If you want a unique paper order it from one of our professional writers.

Get help with your academic paper right away

Quality & Timely Delivery

Free Editing & Plagiarism Check

Security, Privacy & Confidentiality