ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Dim i as Byte,Sum as Integer
Sum=0 ‘Вычисление суммы
Sum = Application.Sum(Sheets("Пример 1").Range("A1:A10"))
Sheets("Пример 1").Cells (2,3)=”Сумма =”:.Cells (2,4)=Sum
End Sub
6. Сохраните работу, результат предъявите преподавателю.
Задание №2 Напишите программу вычисления максимального, минимального, среднего, произведения чисел, находящихся в диапазоне ячеек А1:А10 на листе «Пример 3». Выведите результаты вычисления с поясняющимися надписями в ячейки С2:D5. Решите эти задачи двумя способами.
- Для того чтобы узнать правильное написание функции рабочего листа и ее применение:
- Войдите в окно просмотра объектов.
- В раскрывающемся списке Проект/Библиотека, в верхнем левом углу экрана выберите библиотеку объектов Excel.
- В окне списка Классы выберите Application.
- В окне списка Компоненты выберите WorksheetFunction.
- В нижней части окна появится Property WorksheetFunction As WorksheetFunction (ссылка).
- Нажмите на ссылку и в окне Компоненты, появится список всех функций.
2. Используя этот список функций, напишите программу:
Public Sub Пример3()
Dim I As byte, m As Integer, m1 As Integer, SR As Long, proiz as Long
Randomize Timer
For I = 1 To 10
Sheets("Пример 3").Cells(I, 1) = Int(Rnd * 10)
Next I
'Нахождение минимума
m = Application.Min(Sheets("Пример 3").Range("A1:A10"))
'Нахождение максимума
m1 = Application.Max(Sheets("Пример 3").Range("A1:A10"))
'Произведение
proiz = Application.Product(Sheets("Пример 3").Range("A1:A10"))
'Среднее значение
SR = Application.Average(Sheets("Пример 3").Range("A1:A10"))
' Вывод результатов
With Sheets("Пример 3")
.Cells(2, 3) = "МИН ="
.Cells(2, 4) = m
.Cells(3, 3) = "МАКС ="
.Cells(3, 4) = m1
.Cells(4, 3) = "Произвед ="
.Cells(4, 4) = proiz
.Cells(5, 3) = "Среднее"
.Cells(5, 4) = SR
End With
End Sub
2. Сохраните работу, результат предъявите преподавателю.
Не нашли, что искали? Воспользуйтесь поиском: