29. Работа с массивами в Microsoft Excel. Простейшие операции над массивами. Использование встроенных функции для работы с матрицами. Для заполнения массива и копирования его на лист

1. Откройте новую книгу.

2. Клавиши Alt + F11, чтобы запустить редактор Visual Basic.

3. В меню Вставка выберите пункт Модуль.

4. Введите в окне модуля следующий код:

5. Sub Sheet_Fill_Array()

6. Dim myarray As Variant

7. myarray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

8. Range("a1:a10").Value = Application.WorksheetFunction.Transpose(myarray)

9. End Sub

10. В меню файл выберите команду Закрыть и вернуться в Microsoft Excel.

11. Выберите Лист1.

12. В меню Сервис выберите пункт Макрос и выберите команду Макросы.

13. В диалоговом окне макроса выберите Sheet_Fill_Arrayи нажмите кнопку запустить.

Получение значения из электронной таблицы и заполнения массива

1. Откройте новую книгу и введите значения в ячейки a1: a10 на листе Sheet1.

2. Клавиши Alt + F11, чтобы запустить редактор Visual Basic.

3. В меню Вставка выберите пункт Модуль.

4. Введите в окне модуля следующий код:

5. Sub From_sheet_make_array()

6. Dim myarray As Variant

7. myarray = Range("a1:a10").Value

9. 'Looping structure to look at array.

10. For i = 1 To UBound(myarray)

11. MsgBox myarray(i, 1)

12. Next

13. End Sub

15. В меню файл выберите команду Закрыть и вернуться в Microsoft Excel.

16. Выберите Лист1.

17. В меню Сервис выберите пункт Макрос и выберите команду Макросы.

18. В диалоговом окне макроса выберите From_sheet_make_arrayи нажмите кнопку запустить.

Для передачи и получения массива

1. Откройте новую книгу.

2. Клавиши Alt + F11, чтобы запустить редактор Visual Basic.

3. В меню Вставка выберите пункт Модуль.

4. Введите в окне модуля следующий код:

5. Sub Pass_array()

6. Dim myarray As Variant

7. myarray = Range("a1:a10").Value

8. receive_array myarray

9. End Sub

11. Sub receive_array(thisarray)

12. For i = 1 To UBound(myarray)

13. MsgBox myarray(i, 1)

14. Next

End Sub

15. В меню файл выберите команду Закрыть и вернуться в Microsoft Excel.

16. Выберите Лист1 и выделите диапазон a1: a10.

17. В меню Сервис выберите пункт Макрос и выберите команду Макросы.

18. В диалоговом окне макроса выберите Pass_arrayи нажмите кнопку запустить.

30. Анализ деловых данных в Microsoft Excel. Решение оптимизационных задач с помощью Подбора параметра и Поиска решения. Создание сценариев. Решение уравнений и задач оптимизации

Для решения задач оптимизации широкое променение находят различные средства Excel.  В этом разделе рассмотрим команды:

 Подбор параметров для нахождения значения, приводящего к требуемому результату.

 Надстройку Поиск решения для расчета оптимальной величины по нескольким переменным и ограничениям;

 Диспетчер сценариев для создания и оценки наборов сценариев «что – если» с несколькими вариантами исходных данных.