Создать макрос, возводящий во вторую степень все нечетные больше четырех числа в ячейках рабочего листа

@MargaritaDovgan · Регистрация: 05.11.2018

Объясните, пожалуйста, как выполнить это задание. Мне уже попадалось похожее, но с другим условием: создать макрос определяющий среднее число массива чисел и выводящий результат. Ни с одним, ни с другим так и не смогла справиться.
Также прикрепляю файл, который идет с этим заданием.Bilet21.xls

@Narimanych · 06.11.2018, 12:17

MargaritaDovgan,

как вариант:

Visual Basic

Sub FOR_M()
Set R = Range("A1").CurrentRegion
For Each Cell In R
If Cell.Value Mod 2 <> 0 And Cell.Value > 4 Then Cell.Value = Cell.Value * Cell.Value
Next
End Sub

@MargaritaDovgan 0 / 0 / 0 Регистрация: 05.11.2018 Сообщений: 2
		1
	Создать макрос, возводящий во вторую степень все нечетные больше четырех числа в ячейках рабочего листа 05.11.2018, 22:21. Просмотров 948. Ответов 1 Метки нет (Все метки) Объясните, пожалуйста, как выполнить это задание. Мне уже попадалось похожее, но с другим условием: создать макрос определяющий среднее число массива чисел и выводящий результат. Ни с одним, ни с другим так и не смогла справиться. Также прикрепляю файл, который идет с этим заданием.Bilet21.xls 0

Опции темы