Question

A. Using the properties window in the VBA editor assign the code name wsEx2 to the sheet with tab name Problem2.

b. Using VBA code and the code name for worksheet Problem2, make this worksheet the active sheet.

c. Declare a range variable and assign to this variable the range from A2 to A10 in the worksheet Problem2.

d. Write VBA code to create a range name and call it "Scores". This range name should refer to the range B6 to B14 in the worksheet labeled Problem3

e. Write VBA code that uses an Excel worksheet function that calculates the weighted average score (i.e., the dot product of the range defined in part c and the range in part d) and place the calculated value in cell A12 of the Problem2 worksheet.

f. Using VBA code change the background color of cell A12 to green.

g. Using VBA code change the font type in cell A12 to italic and bold.

h. Using VBA code change the format property of cell A12 so that it is displayed as a number with exactly three digits to the right of the decimal point and at least three digits to the left of the decimal point. That is, 0.3013 should be displayed as 000.301.

Answer 1

VBA CODE:

Sub wxEx2()

'''''' Question b''''''''

' Making the sheet active

wsEx2.Activate

'''''' Question c''''''''

' Setting range

Dim r1, Scores As Range

Set r1 = Sheets("Problem 2").Range("A2:A10")

'''''' Question d''''''''

' Set range Scores

Set Scores = Sheets("Problem 3").Range("B6:B14")

'''''' Question e''''''''

' Weighted average

Dim val As Double

Sheets("Problem 2").Range("A12").Value = Application.WorksheetFunction.SumProduct(r1, Scores) / Application.WorksheetFunction.Sum(Scores)

'''''' Question f''''''''

' Chane background color

Sheets("Problem 2").Range("A12").Interior.ColorIndex = 4

'''''' Question g''''''''

' Make italic bold

Sheets("Problem 2").Range("A12").Font.Bold = True

Sheets("Problem 2").Range("A12").Font.Italic = True

End Sub