Обработать выделенный диапазон ячеек, результат записать в смежный диапазон - VBA - Ответ 6255341

@Антон241 · Регистрация: 15.05.2014

Студворк — интернет-сервис помощи студентам

Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия и записывать результат в смежную с диапазоном колонку:
В каждой строке диапазона подсчитать число пар соседних ячеек,
значения которых имеют противоположные знаки, и выделить цве¬том ячейку с отрицатель-ным числом.

Вот есть пример выполнения чего то подобного.
В данной лабораторной работе необходимо составить макрос, ко¬торый в выделенном диапазоне ячеек подсчитывает количество по¬ложительных, нулевых и отрицательных значений, записывает ре-зультаты в смежную с диапазоном колонку и выделяет цветом ячейки с положительными значениями. Например, на рис. 6.1 представлен результат выполнения макроса в случае, если выделен диапазон ячеек В2:С5.

А В С D Е
1
2 1,5 -21 3 Количество положительных значений
3 0 6 2 Количество нулевых значений
4 9 0 3 Количество отрицательных значений
5 11 -7
Рис. 6.1. Результаты обработки диапазона В2:С5
Для этого:
а) перейдите из Excel в среду программирования VBA;
б) добавьте в рабочую книгу новый модуль и в окне редактиро¬вания модуля наберите команды:

Visual Basic

Public Sub Диапазон_ячеек()
' В макросе используются следующие переменные:
' КР - количество положительных значений
' KN — количество нулевых значений
' КО — количество отрицательных значений
' NR - число строк в выделенном диапазоне
' NC — число колонок в выделенном диапазоне
' NumO/Row - номер строки первой ячейки диапазона
' NumOfCol - номер колонки первой ячейки диапазона
' Item - значение текущей ячейки
' i - номер текущей строки диапазона
' j - номер текущей колонки диапазона
Dim КР As Integer, KN As Integer, КО As Integer
Dim NR As Integer, NC As Integer
Dim NumOfRow As Integer, NumOfCol As Integer
Dim Item As Variant, i As Integer, j As Integer
NR = Selection.Rows.Count
NC = Selection.Columns.Count
NumOfRow = Selection.Row
NumOfCol = Selection.Column
' Цикл For i... Next i является внешним по
' отношению к циклу Forj ... Nextj
For i = 1 To NR ' Цикл по строкам
' Цикл Forj ... Nextj является вложенным 
' по отношению к циклу For i... Next i 
Forj = 1 To NC ' Цикл по колонкам 
Item = Selection.CeIls(i, j)
If IsNumeric(Item) Then  ' Если значение в ячейке - числовое 
If Item > 0 Then 
КР = КР+1
Selection.Cells(i, j).Font.Color = vbRed 
End If
If Item = 0 Then KN = KN + 1 
If Item < 0 Then КО = КО + 1 
End If 
Nextj 
Next i
' Запись результатов на рабочий лист 
' в смежную с выделенным диапазоном колонку Cells(NumOfRow, NumOfCol + NC) = КР 
Cells(NumOfRow, NumOfCol + NC + 1) = _
"Количество положительных значений" Cells(NumOfRow + 1, NumOfCol + NC) = KN Cells(NumOfRow + 1, NumOfCol + NC + 1) = _
"Количество нулевых значений" 
Cells(NumOfRow + 2, NumOfCol + NC) = КО Cells(NumOfRow + 2, NumOfCol + NC + 1) = _
"Количество отрицательных значений" 
End Sub

2. Вернитесь в Excel, заполните различными данными диапазон ячеек A2

6, выделите диапазон и выполните макрос. Как выглядит
таблица после работы макроса?
3. Цикл Forj = 1 То NC ... Nextj является вложенным по отноше¬нию к циклу For i = 1 То NR ... Next i. Это означает, что вначале будут последовательно перебираться ячейки с номерами (1, 1), (1, 2) ... (1, NC) при i = 1, затем - (2, 1), (2, 2) ... (2, NC) при i = 2 ..., и т.д. до ячеек с номерами (NR, 1), (NR, 2) ... (NR, NC) при i = NR. Какое значение переменных i и] соответствует ячейке с адресом ВЗ?
4. Самостоятельно составьте макросы для решения задач из числа
приведенных в приложении G согласно своего варианта.
5. Запишите составленные макросы в модуль, заполните различ¬
ными данными диапазон ячеек СЗ:Е7 для первого макроса и G2:J5
для второго макроса и выполните каждый макрос, предварительно
выделив нужный диапазон. Текст макросов, контрольные примеры и
результаты приведите в отчете по лабораторной работе.

Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия и записывать результат в смежную с диапазоном колонку:

Вернуться к обсуждению:
Обработать выделенный диапазон ячеек, результат записать в смежный диапазон VBA

Следующий ответ

Другие темы раздела
VBA Ввести латинский текст и выписать различные слова, которые взяты в кавычки, например, "cat" Ввести латинский текст и выписать различные слова, которые взяты в кавычки, например, "cat" Добавлено через 9 минут так же есть пример кода в delphi код рабочий переделать на VBA не удалось uses SysUtils; Var https://www.cyberforum.ru/ vba/ thread1194958.html	VBA Как программно вставить формулу в ячейку? в ячейке есть формула - к примеру =ЕСЛИ(L!$B$2;Таблица157;];#Н/Д) как сделать чтобы она вставлялась в ячейку с помощью vba ? Worksheets("S").Cells(i, e).Formula = "=ЕСЛИ(L!$B$2;Таблица157;];#Н/Д)"не работает
VBA Создать пользовательскую форму, меняющую свой фон в зависимости от значения переключателя Создайте пользовательскую форму на языке VBA, изменяющую фон цвета на зеленый, желтый и синий. Изменения фона реализовать с помощью переключателей. Добавьте в форму кнопку Отмена для завершения работы с пользовательской формой. https://www.cyberforum.ru/ vba/ thread1194728.html	VBA Вычислить периметр треугольника, построенного по трем точкам https://www.cyberforum.ru/ vba/ thread1194687.html Составьте процедуру на языке VBA, которая вычисляет периметр треугольника, построенного по трем точкам. Вычисление длины стороны оформить в виде функции. Исходные данные: A(0,0), B(3,0), C(0,-4) Результат: Периметр треугольника равен 12,00 (ед.)
Вычислить сумму элементов каждого столбца двухмерного массива VBA помогите пожалуйста	VBA Определить максимальное число во введенной с клавиатуры последовательности помогите, очень надо сделать Исходные данные: 1. Введите целое число: 15 Введите целое число: –1 Введите целое число: 23 Введите целое число: 7 Введите целое число: 0 2. Введите целое число: 0 https://www.cyberforum.ru/ vba/ thread1194652.html
VBA Вычислить стоимость покупки, состоящей из нескольких тетрадей и карандашей https://www.cyberforum.ru/ vba/ thread1194631.html Составьте блок-схему и программу на языке VBA для вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Исходные данные: Цена тетради (руб.): 450 Количество тетрадей (шт.): 5 Цена карандаша (руб.): 230 Количество карандашей (шт.): 3 Результат: Стоимость покупки: 2 940 (руб.)	Определить количество строк, содержащих хотя бы один нулевой элемент VBA 13) Дана целочисленная прямоугольная матрица. Определить количество строк, содержащих хотя бы один нулевой элемент
VBA Найти наибольшее среди отрицательных чисел и вывести его индекс на экран 12) Создать одномерный массив из 20 целочисленных значений. Найти наибольшее среди отрицательных и вывести его индекс на экран. https://www.cyberforum.ru/ vba/ thread1194512.html	VBA Написать программу для вычисления суммы, имеющей своими слагаемыми an, с постусловием 15. Написать программу для вычисления суммы, имеющей своими слагаемыми an. Вычислять до тех пор, пока (Е вводится): Е=0,0001 – точность вычислений Называйте темы осмысленно. https://www.cyberforum.ru/ vba/ thread1194502.html
VBA Определить количество, сумму, произведение и среднее арифметическое цифр данного числа, с постусловием 11. Дано натуральное число. Определить: а) количество цифр в нем; б) сумму его цифр; в) произведение его цифр; г) среднее арифметическое его цифр;	VBA Определить, сколько во введенной последовательности было положительных чисел 3. Вводить последовательность до тех пор, пока не встретятся три подряд идущих положительных числа. Тогда прервать ввод и сообщить, сколько во введенной последовательности было положительных чисел https://www.cyberforum.ru/ vba/ thread1194496.html