Задача 17

Для установки интерфейса между приложением и пользователем создается форма, содержащая следующие элементы управления: два списка ListBox1 и ListBox2, два переключателя OptionButton 1 и OptionButton2, счетчик SpinButtonl, два флажка CheckBox1 и CheckBox2, текстовое поле TextBox1 и метка (подпись) Label1. Для определения внешнего вида формы при ее открытии от пользовательской формы требуется добиться доведения:

Список ListBox1 должен быть заполнен именами следующе­го клиентов, располо­женных на рабочем листе Excel в отдельном диапазоне с названием Customers.

Список ListBox2 должен быть заполнен с помощью функции Array значениями в диапазоне от 3 до 15 (при заполнении списка использовать

свойство списка List).Переключатель OptionButton1 - выставлен, флажок CheckBox1 - уста­новлен, а флажок CheckBox2 - сброшен. Поле ввода TextBox1 и метка Label1 должны быть очищены. Счетчику SpinButton1 с помощью свойств Min и Max присвоить нижнюю и верхнюю границы его изменения: 10 и 100 соответственно.

Написать программный код для обработчика UserForm=Initialize, определяющего описанный выше внешний вид формы.

Private Sub OptionButton1_Click()

CheckBox1.Value = True

CheckBox2.Value = False

End Sub

Private Sub SpinButton1_Change()

TextBox2.Text = SpinButton1.Value

End Sub

Private Sub UserForm_Initialize()

With Range(“A4”)

NR = Range (.offset(0,1), .End(xlDown)).Rows.Count

For i = 1 to NR

ListBox1.AddItem (Cells(4+i,1))

Next i

End With

a = Array (3,4,5,6,7,8,9,10,11,12,13,14,15)

For i = 0 to 12

ListBox2.AddItem(a(i))

Nexti End Sub

Задача 18.

На рабочем листе Excel расположена информация следующего содержания: В ячейку А1 введен заголовок таблицы, данные начинаются со строки 3. В ячейках с A3 : F3 расположены заголовки столбцов таблицы, номера сотруд­ников расположены в диапазоне А4: А21 данные таблицы - оценки располо­жены в диапазоне В4: F21.

Напишите процедуру Ргос18. Она должна выполнять следующие действия. • Сделайте шрифт заголовка в ячейке А1 полужирным, размер = 14 пунктам. • Сделайте шрифт заголовков в строке 3 полужирным курсивом. Установи­те горизонтальное выравнивание по центру.

• Измените цвет шрифта для номеров работников в диапазоне А 4 :А21, сде­лав его красным (3).

• Сделайте фон (свойство Interior) ячеек диапазона В4: F21 зеленым (42),

• Введите надпись Среднее в ячейку А22 и сделайте ее шрифт полужирным, I • Введите формулу в ячейку В22_ъ подсчитывающую среднее значение в

диапазоне оценок В4: B21.

• Скопируйте формулу в диапазон С22:F22.

Sub proc18()

With Range("a1")

.Font.Size = 14

.Font.Bold = 1

End With

With Range("C1:C6")

.Font.Bold = 1

.Font.Italic = 1

.HorizontalAlignment = 1

End With

Range("A4:A21").Font.ColorIndex = 3

Range("B4:C21").Interior.ColorIndex = 42

With Range("A22")

.Font.Bold = 1

.Value = "Среднее"

End With

Range("B22").Formula = "=срзнач(A4:B21)"

End Sub

Задача 19

Открыть книгу Excel "Коммерческие банки" на рабочем листе с име­нем "Заставка". Написать программный код процедуры, изменяющий внешний. вид объекта Window (окно) Excel и располагающий в окне объект класса объектов Shapes. Пояснения для составления процедуры:

- с использованием управляющей структуры With-End With для активного окна изменить следующие свойства окна ActiveWindow:

- установить максимальный размер окна;

- не отображать линии сетки;

- не отображать заголовки строк и столбцов;

- убрать название приложения в строке заголовка окна;

- не отображать полосу вертикальной прокрутки;

- не отображать полосу горизонтальной прокрутки

- не отображать ярлычки рабочих листов;

- задать фон диапазона А1: N35 (один из 56 цветов палитры Excel);

- на рабочем листе "Заставка" создать графический объект, например, msoShapeUpRibbon ..., и выбрать его:

- установить для него цвет (свойство ShapeRange .Fill .ForeColor.SchemeColor);

- ввести текст, расположив его на графическом объекте.

Public Sub Заставка()

WorkSheet(“Заставка”).Select

With ActiveWindow

.WindowState = xlMaximized

.DisplayGridlines = False

.DisplayHeadings = False

.Caption = ""

.DisplayHorizontalScrollBar = False

.DisplayVerticalScrollBar = False

.DisplayWorkbookTabs = False

End With

Range("A 1 :N35").Interior.ColorIndex = 43

With Worksheets(“Заставка”)

.Shapes.AddShape(msoShapeUpRibbon, 170, 125, 300, 70).Select

With Selection

.ShapeRange.Fill.ForeColor.SchemeColor = 54

.Characters.Text = "Мы готовы Вам помочь с депозитом"

With .Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 12

.Bold = True

.Colorlndex = 2

End With

End With

End With

End Sub