Контрольная работа: Решение задач с помощью задания формул и создания макросов

Работу выполнила студентка

729 группы д/о

Кудреватых Валерия Евгеньевна

Нижний Новгород 2009

Задача 1

Просуммировать элементы столбцов заданной матрицы размером mхn. Результат получить в одномерном массиве размером n.

Возможно вы искали - Контрольная работа: Сервисы сети Internet

Способ 1.

Решим данную задачу с помощью задания формул и создания макросов.

Sub МакросМассив()

' МакросМассив Макрос

Похожий материал - Курсовая работа: Слои, эффекты слоя в растровом графическом редакторе Adobe PhotoShop

' Макрос записан 07.07.2009 (Gddess)

Range("A1").Select

ActiveCell.FormulaR1C1 = "=INT(10*RAND()-2)"

Range("A1").Select

Selection.AutoFill Destination:=Range("A1:C1"), Type:=xlFillDefault

Очень интересно - Курсовая работа: Создание мини-игры "Магический квадрат"

Range("A1:C1").Select

Selection.AutoFill Destination:=Range("A1:C4"), Type:=xlFillDefault

Range("A1:C4").Select

Range("E1").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:R[3]C[-4])"

Вам будет интересно - Лабораторная работа: Создание пробной экспертной системы

Range("F1").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:R[3]C[-4])"

Range("G1").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:R[3]C[-4])"

End Sub

Похожий материал - Курсовая работа: Создание устного счета на языке Паскаль

Способ 2.

Private Sub CommandButton1_Click()

Set List = Worksheets("Лист1")