Browsing tag: excel

VBA: Найти сумму и количество тех элементов массива, которые делятся на 5 и на 8 одновременно. Полученные значения вывести в одно окно сообщения


Задача: Дан динамический массив В(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа).  Найти сумму и количество тех элементов массива, которые делятся на 5 и на 8 одновременно. Полученные значения вывести в одно окно сообщения. Код: Public Sub prog() Dim i As Integer Dim sum As Integer Dim

VBA: Найти сумму и количество элементов массива, остаток от деления которых на 2 равен 3


Глупая задача… Дан динамический массив А(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа). Найти сумму и количество элементов массива, остаток от деления которых на 2 равен 3. Полученные значения вывести в одно окно сообщения. Ни одно число не будет подходить под условие задачи, но решение есть. Public

VBA: Рассчитать величину вклада в банке по месяцам


В банке открыт счет. Банк ежегодно начисляет фиксированный процент от вклада. Соответственно увеличивается сумма вклада. Составить программу, которая рассчитывает величину вклада и выводит эту величину для каждого года, пока величина вклада не увеличится вдвое. Для решения этой задачи предусмотреть клетки для ввода первоначальной величины вклада, учетной ставки процента от вклада, года помещения вклада в банк,

VBA, Раскрасить матрицу


Сделать элементы главной диагонали матрицы одним цветом, выше — другим, ниже третьим. Public Sub glav_diag() Dim i As Integer Dim j As Integer n = InputBox(«n=») For i = 1 To n For j = 1 To n If i = j Then Cells(i, j).Interior.Color = vbGreen End If If i < j Then Cells(i,

Работа с матрицей в VBA


Внезапно появились лабораторные :) Задачка такая: Создать матрицу размера n x n, заполнить случайными числами от (-20 до 30). Сформировать одномерный массив от 1 до n, каждый элемент которого равен произведению положительных четных элементов данного столбца. Решаем так (естественно все делаем в Excel): [code lang=»vb»] Public Sub glav_diag() Dim i As Integer ‘ Индекс строки

Яндекс.Метрика