Основные принципы и концепции программирования на языке VBA в Excel

Упражнение 1:

Номер 1

Отметьте оператор, который устанавливает количество листов во вновь создаваемой рабочей книге равным 12

Ответ:

(1) Application.SheetsInNewWorkbook = 12

(2) Application.Workbooks.Worksheets.Count = 12

(3) Workbooks.Add SheetsInNewWorkbook = 12

(4) Application.Workbooks.Sheets.Count = 12

(5) Application.Sheets.Count = 12

Номер 2

Отметьте оператор, который запрещает обновление экрана во время выполнения программы обработки рабочей книги MyBook

Ответ:

(1) Application.DisplayAlerts = False

(2) Application.ScreenUpdating = False

(3) Workbooks("MyBook").DisplayAlerts = False

(4) Workbooks("MyBook").ScreenUpdating = False

Номер 3

Открыты две рабочие книги Book1 и Book2. Активна рабочая книга Book2. Выполняемая процедура расположена на стандартном модульном листе рабочей книги Book1. Оператор...

Ответ:

(1) ActiveWorkbook.Close закрывает рабочую книгу Book1

(2) ThisWorkbook.Close закрывает рабочую книгу Book1

(3) ThisWorkbook.Sheets.Count возвращает количество листов различных типов рабочей книги Book2

(4) ActiveWorkbook.Sheets.Count возвращает количество рабочих листов рабочей книги Book1

Упражнение 2:

Номер 1

Отметьте некорректный оператор

Ответ:

(1) Sheets(1).Select

(2) Sheets("Лист1").Select

(3) ActiveSheet.Cells.Select

(4) ActiveCell.Sheets.Select

Номер 2

Рабочая книга MyBook содержит 3 рабочих листа. Оператор Sheets.Add Count:=5 добавляет

Ответ:

(1) 5 рабочих листов перед активным листом

(2) 5 рабочих листов после активного листа

(3) 2 рабочих листа в конец рабочей книги

(4) 2 рабочих листа в начало рабочей книги

Номер 3

Для выделения колонок A и,B активного рабочего листа правильным является оператор

Ответ:

(1) Union(ActiveSheet.Columns(1), ActiveSheet.Columns(2)).Select

(2) ActiveSheet.Columns(1,2).Select

(3) ActiveSheet.Columns(array(1,2)).Select

(4) ActiveSheet.Columns(1).Count(2).Select

Упражнение 3:

Номер 1

Оператор ActiveSheet.Range("A5:B10").Clear на активном рабочем листе

Ответ:

(1) очищает интервал ячеек A5:B10

(2) очищает только значения ячеек A5 и B10

(3) удаляет ячейки A5:B10, сдвигая остальные ячейки влево

(4) очищает полностью колонки A и B

Номер 2

Отметьте правильное утверждение.

Ответ:

(1) оператор Worksheets(3).Delete удаляет рабочий лист с номером 3

(2) оператор Array(Worksheets).Delete удаляет все рабочие листы

(3) оператор Worksheets(3).Delete удаляет три рабочих листа, начиная с активного

Номер 3

Оператор Worksheets("Лист7").Range("A5:B10").CurrentRegion.Delete на листе с именем Лист7

Ответ:

(1) удаляет ячейки диапазона, включающего в себя интервал A5:B10, сдвигая остальные ячейки рабочего листа влево

(2) очищает интервал ячеек, включающий в себя диапазон A5:B10

(3) очищает диапазон ячеек A5:B10, относительный для предварительно выделенного интервала ячеек

(4) очищает полностью колонки A и B

Упражнение 4:

Номер 1

Отметьте правильное утверждение

Ответ:

(1) ActiveWorkbook.Colors(15) = RGB(0,255,0) устанавливает зеленый цвет 15-го элемента палитры цветов активной рабочей книги

(2) ActiveWorksheet.Colors(15) = RGB(0,255,0) устанавливает зеленый цвет 15-го элемента палитры цветов активного рабочего листа

(3) ActiveCell.Colors(15) = RGB(0,255,0) устанавливает зеленый цвет 15-го элемента палитры цветов активной ячейки

(4) изменить палитру цветов нельзя. Можно изменить только цвет конкретного объекта, например, ячейки, рамки или автофигуры

Номер 2

Оператор Cells(1, 2).Interior.Color = RGB(100, 100, 100) устанавливает в ячейке B1

Ответ:

(1) 100% красную заливку

(2) 100% синюю заливку

(3) 100% зеленую заливку

(4) серую заливку

(5) желтую заливку

Номер 3

Свойство ColorIndex

Ответ:

(1) оператор Cells(1,2).Interior.Colorindex=3 выполняет заливку ячейки B1 цветом, определенным в 3-ем элементе палитры цветов рабочей книги

(2) оператор Cells(1,2).Interior.Color=ColorIndex(3) выполняет заливку ячейки B1 цветом, определенным в 3-ем элементе палитры цветов рабочей книги

(3) оператор Colorindex.Cells(1, 2)=vbYellow устанавливает желтый цвет для элемента с индексами (1,2) палитры цветов рабочей книги

(4) для задания свойства Colorindex можно использовать только функцию RGB, меняя значения параметров Red, Green, Blue

Упражнение 5:

Номер 1

Оператор Range("A7:B9").Cells(2,1).Activate

Ответ:

(1) выделяет ячейки A7:B9 и активизирует A8

(2) активизирует A8

(3) активизирует B7

(4) выделяет ячейки A7:B9 и активизирует B7

Номер 2

Отметьте правильные утверждения

Ответ:

(1) Worksheets(Array("Лист1", "Лист2")).Activate выделяет листы и активизирует Лист1

(2) Worksheets(Array("Лист1", "Лист2")).Select выделяет листы и активизирует Лист1

(3) Union(Worksheets(1), Worksheets(2)).Select выделяет листы и активизирует Лист1

(4) ActiveSheet.Offset(2).Select активизирует второй лист по отношению к активному листу

Номер 3

Все приведенные ниже операторы, кроме одного активизируют ячейку E4. Отметьте этот оператор

Ответ:

(1) ActiveSheet.Cells(4, 5).Select

(2) Union(Range("e3:F5"), Range("F4:e4")).Activate

(3) Cells(3, 1).Offset(1, 4).Select

(4) Range("b2:E6").Range("d3").Select

Упражнение 6:

Номер 1

Интервал A5:C11 заполнен единицами. Оператор MsgBox Range("A6").CurrentRegion.Row высвечивает

Ответ:

(1) число 5 (номер первой строки интервала)

(2) число 7 (количество строк интервала)

(3) число 11 (номер последней строки интервала

(4) число 6 (номер строки ячейки A6)

Номер 2

Оператор Union(Range("A1:J1"), Range("A1:A10")) = "*"

Ответ:

(1) заполняет звездочками первые 10 ячеек первой строки и первые 10 ячеек столбца A

(2) устанавливает звездочку только в ячейку A1

(3) заполняет звездочками интервал A1:J10

Номер 3

Оператор Cells(2,3)=5 записывает значение 5

Ответ:

(1) в ячейку B3 активного рабочего листа

(2) в группу ячеек из 3 строк и 2 столбцов,расположенных начиная с активной ячейки

(3) в ячейку C2 активного рабочего листа

(4) в группу ячеек из 2 строк и 3 столбцов,расположенных начиная с активной ячейки

Основные принципы и концепции программирования на языке VBA в Excel - тест 8