MsgBox(”Положительных элементов в массиве нет”)

End If

– формирование двумерного массива a из первого, третьего и пятого столбцов массива b размерностью 4 × 6

‘Фрагмент программы

k = 1 ‘начальное значение индекса формируемого массива

For j = 1 to 5 step 2

For i = 1 to 4

a(i,k) = b(i,j) ‘перезапись найденного элемента

Next i

k = k + 1‘изменение индекса формируемого массива

Next i

– взаимозамена данных в 1 и 3 столбцах массива размерностью 4 × 6

‘Фрагмент программы

For i = 1 to 4

c = a(i,1) ‘запись значения из первого столбца в промежуточную

‘переменную

a(i,1) = a(i,3)‘запись в первый столбец элемента из столбца 3 a(i,3) = c ‘запись в третий столбец элемента из столбца 1 Next i

1.7 Создание управляющих кнопок

Для удобства работы с программами рекомендуется создавать управляющие кнопки. Для этого необходимо сделать следующее:

19

1.Добавить на ленту вкладку Разработчик (если она отсутствует) в следую-

щей последовательности: Меню Файл → Параметры → Настройка ленты → Ос-

новные вкладки → Разработчик → ОК.

2.На вкладке Разработчик нажать кнопку Вставить → в блоке Элементы управления формы выбрать элемент Кнопка и растянуть ее левой кнопкой мыши на экране (рисунок 2).

1 – созданная кнопка; 2 – элемент формы для создания кнопки; 3 – вкладка «Разработчик»

Рисунок 2 – Создание кнопки

3.Назначить макрос созданной кнопке. Для этого щелкнуть правой кнопкой

мышки по созданной кнопке и в контекстном меню выбрать пункт Назначить макрос…. В появившемся окне выбрать нужный макрос и нажать ОК.

Для активизации листа в макросе нужно написать команду: Sheets("ЛистN").Select.

Для вызова формы в макросе нужно прописать команду: UserForm1.Show

4.Правой кнопкой мыши отформатировать внешний вид кнопки и изменить надпись на ней.

20