Exam 3

Question 1

The leftmost worksheet

Answer 1

Worksheets(1)

Question 2

Close active worksheet

Answer 2

ActiveSheet.Delete

Question 3

Delete worksheet Sheet5

Answer 3

Worksheets(“Sheet5”).Delete

Question 4

Copy Sheet3 to a new workbook

Answer 4

Worksheets(“Sheet3”).Copy

Question 5

Copy active worksheet and place after Sheet3

Answer 5

ActiveSheet.Copy After=“Sheet3”

Question 6

Make Chart3 the active sheet

Answer 6

Sheets(“Chart3”).Activate

Question 7

Create a new worksheet

Answer 7

Worksheets.Add

Question 8

Select cell B1

Answer 8

Range(“B1”).Select

Question 9

Auto fit columns A,B,C on first sheet

Answer 9

Worksheets(1).Columns(“A:C”).AutoFit

Question 10

Put value 30 in cell A1

Answer 10

Range(“A1”) = 30

Question 11

Rename the active sheet Results

Answer 11

ActiveSheet.Name = “Results”

Question 12

Put an “x” in same row, 1 column to the right of the active cell

Answer 12

ActiveCell.Offset(0,1) = “x”

Question 13

Select the cell 1 row below, in the same column as active cell

Answer 13

ActiveCell.Offset(1,0).Select

Question 14

Add the formula SUM(B2:C2) to cell D2

Answer 14

Cells(2,4).Formula = “=SUM(B2:C2)”

D2 is the second row, 4th column

Question 15

Clear values from cell A2

Answer 15

Range(“A2”).Clear

Question 16

X= array(“data”, 1,2,3)

Answer 16

Stores values into array x

X(0)= data
X(1)= 1

Question 17

Declare myrow as an array with 3 values

Answer 17

Dim myrow(3) as Variant

Question 18

Align selected cell to the right of cell

Answer 18

Selection.HorizontalAlignment= xlRight

Question 19

Ask user “How old are you?” And set value they enter to q

Answer 19

q= InputBox(“How old are you?”)

Question 20

Select Sheet3 as the Active Sheet

Answer 20

Worksheets.(“Sheet3”).Activate

Question 21

Display a message box asking to continue and end if the selection is no

Answer 21

If MsgBox(“Continue?”,4) = vbNo Then End