– Первый лист рабочей книги содержит следующие данные(VBA) № Country Population 1 China 1 376 570 000 2 Portugal 10

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

С помощью левой кнопки мыши укажем место расположения создаваемой кнопки снизу созданной таблицы данных.
Появится окно создания макроса для привязки к действию по нажатию кнопки

В появившемся окне нажимаем кнопку «Создать».
Появится кнопка в режиме редактирования и отобразится редактор VBA для создания макроса.

В процедуре «Кнопка1_Щелчок»
Напишем наш макрос, выполняющий задание:
Sub Кнопка1_Щелчок()
j% = 0
For i = 1 To 7
If Left(Cells(i + 1, 2), 1) = “P” Then
j = j + 1
Worksheets(2).Cells(j + 1, 1) = Cells(i + 1, 2)
End If
Next
Worksheets(2).Cells(1, 1) = “Страны, названия которых начинаются с буквы P”
Worksheets(2).Activate
End Sub

После этого закрываем редактор VBA

С помощью щелчка провой кнопкой на кнопке вызовем контекстное меню и в нем выберем пункт «Изменить текст».

Впишем вместо надписи «Кнопка 1» текст «Страны, названия которых начинаются с буквы «P». После этого в контекстном меню кнопки выберем «Закончить изменение текста».
С помощью маркеров кнопки изменим ее размер под длину и высоту строки названия.

Проверим работу макроса нажатием левой кнопкой мыши на созданную кнопку.
В результате работы макроса происходит поиск названия страны из списка, начинающегося на «P» и результаты выводятся на «Лист 2» и производится переход на этот лист.

Для определения среднего значение численности населения, а также значения показателя «плотность населения» во всех странах, выполним действия, описанные в п. 1.1 для новых кнопок, создав для них макросы «Кнопка2_Щелчок» и «Кнопка3_Щелчок».

Макросы для них

Sub Кнопка2_Щелчок()
Sr_znach = 0
For i = 1 To 7
Sr_znach = Sr_znach + Cells(i + 1, 3)
Next
Sr_znach = Sr_znach / 7
Worksheets(3).Cells(1, 1) = “Среднее значение численности населения”
Worksheets(3).Cells(2, 1) = Sr_znach
Worksheets(3).Activate
End Sub

В результате работы макроса определяется средняя численность населения и результат выводится на «Лист 3» и производится переход на этот лист.

Sub Кнопка3_Щелчок()
Dim square
square = Array(0, 9596960, 88941, 17098246, 377835, 312685, 8511965, 1285220)
For i = 1 To 7
Cells(i + 1, 4) = Cells(i + 1, 3) / square(i)
Next
Cells(1, 4) = “Population density”
End Sub

В результате работы макроса определяются показатели «плотность населения» для каждой страны и результат выводится в колонку таблицы «Population density».

…