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

@Антон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 макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия и записывать результат в смежную с диапазоном колонку:

@Pro_grammer · 01.06.2014, 06:58

Не надо в тему всю методичку копировать! Ни кому не интересно с ней разбираться.
Задавайте конкретные вопросы, согласно правилам одна тема - один вопрос.

@Pro_grammer 6794 / 2816 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	01.06.2014, 06:58	2
	Не надо в тему всю методичку копировать! Ни кому не интересно с ней разбираться. Задавайте конкретные вопросы, согласно правилам одна тема - один вопрос. 0

Опции темы