Как написать алгоритм для excel

Реализацию алгоритма вычислительной задачи в
электронных таблицах Excel возможно, так как они
выполняют необходимые требования, предъявляемые
к среде реализации алгоритма [Глущенко Ю. В.
Обоснование использования языка
программирования в учебном процессе (в печати)].

Для реализации вычислительных алгоритмов
необходимо уметь реализовывать базовые
структуры алгоритмов. На примерах задач,
приводящих к базовым структурам, разберемся с
реализацией вычислительного процесса базовых
структур в электронных таблицах. Можно
предложить следующий алгоритм:

1. Составление спецификаций переменных заданного
   алгоритма в виде таблицы, в столбцах которой
   будут Имя переменной в алгоритме, назначение,
   тип, диапазон, адрес в Excel, вид реализации.
2. Разработка таблиц ВводаИнформации.
3. Разработка таблицы подзадачи
   ОбработкаИнформации.
4. Разработка таблицы ВыводаРезультата.
5. Тестирование построенных таблиц.

Линейные алгоритмы

ЗАДАЧА. Задан алгоритм в виде:

НАЧАЛО_АЛГОРИТМА

1. Ввести значения сторон треугольника а, в, с.
2. Вычислить значение полупериметра р = (а+в+с)/2
3. Вычислить площадь треугольника S=(p*(p-а)*(р-в)*(р-с)).
4. Вывести значение S.

КОНЕЦ_АЛГОРИТМА

Реализовать вычисления по заданному алгоритму
в Excel.

РЕШЕНИЕ.

1. Спецификация переменных исходного
алгоритма:

№ п/п.	Имя перем. в алгоритме	Назначение	Тип	Диапазон	Адрес	Вид реализации
Переменные входного потока
1	А	Сторона тр-ка	Вещ	0, +	B3	<число>
2	В	Сторона тр-ка	Вещ	0, +	B4	<число>
3	С	Сторона тр-ка	Вещ	0, +	В5	<число>
Переменные блока обработки информации
4	Р	полупериметр	Вещ	0, +	Е3	<формула>
5	S	Площадь тр-ка	Вещ	0, +	Е4	<формула>
Переменные выходного потока.
6	S	Площадь тр-ка	Вещ	0, +	Н3	<формула>

2. Разработка таблицы ВводаИнформации

Таблица ВводаИнформации должна содержать
значения переменных входного потока. Ее
реализация показана на Рис. 1.

3. Разработка таблицы подзадачи
ОбработкаИнформации

В данной таблице необходимо провести
вычисления полупериметра и площади. Оба эти
параметра вводятся с помощью формул в
соответствующие ячейки. Реализация данной
таблицы приведено на Рис. 1.

4. Разработка таблицы ВыводаРезультатов

Таблица ВыводаРезультатов должна содержать
значения переменных выходного потока. Ее
реализация показана на Рис. 1.

5. Тестирование разработанных таблиц

Для тестирования полученных таблиц строим
таблицу теста по следующему шаблону:

ЗАДАЧА РЕШЕНА.

Задачи для самостоятельной работы можно найти
в Приложении 1.

Алгоритм ветвления

ЗАДАЧА. Задан алгоритм в виде:

НАЧАЛО_АЛГОРИТМА

1. Ввести значение переменной Х.
2. ЕСЛИ Х не больше 0,
   ТО          Y:=Х*Х, ИНАЧЕ Y:=Х+1.
3. Вывести значение переменной Y.

КОНЕЦ_АЛГОРИТМА

Реализовать вычисления по заданному алгоритму
в Excel.

РЕШЕНИЕ.

1. Спецификация переменных исходного
алгоритма:

2. Разработка таблицы ВводаИнформации

Таблица ВводаИнформации должна содержать
значения переменных входного потока. В нашем
случае значение X. Ее реализация показана на Рис. 2.

3, 4. Разработка таблицы подзадачи
ОбработкаИнформации.

В данной задаче можно (и нужно) объединить
задачи ОбработкиИнфориации и ВыводаРезультатов,
построив только таблицу ВыводаРезультатов. Ее
реализация показана на Рис. 2.

5. Тестирование разработанной таблицы.

Для тестирования полученной таблицы
необходимо взять минимум три значения Х:

• слева от ветвления,
• в точке ветвления,
• справа от точки ветвления.

Значения берутся так, чтобы просто было
проверить результат. Поэтому построим таблицу
тестирования в виде:

ЗАДАЧА РЕШЕНА.

Задачи для самостоятельной работы можно найти
в Приложении 2.

Циклические алгоритмы

ЗАДАЧА. Задан алгоритм в виде:

НАЧАЛО_АЛГОРИТМА

• Ввести значение целочисленной переменной
  1<=N<=10.
• S:= 0        {Начальное значение
  сумматора равно нулю}.
• I:= 0         {Начальное
  значение индекса цикла равно нулю}.
• I:=I+1      {Текущее значение индекса
  цикла}.
• S:=S+I    
                                      {накопление
  суммы}.
• ЕСЛИ N>I то идти на п.4       
  {конец цикла с постусловием}
• Вывести значение
  S                
  {Вывод результата}.

КОНЕЦ_АЛГОРИТМА

Реализовать вычисления по заданному алгоритму
в Excel.

РЕШЕНИЕ.

1. Спецификация переменных исходного
алгоритма:

2. Разработка таблицы ВводаИнформации

Таблица ВводаИнформации должна содержать
значения переменных входного потока. В нашем
случае значение N. Ее реализация показана на Рис. 3.

3. Разработка таблицы подзадачи
ОбработкаИнформации

Реализация обработки информации возможна лишь
с использованием циклического алгоритма.
В случае с Excel данную задачу необходимо разбить
на три:

• Построение столбца индексов цикла.
• Построение столбца элементов массива.

ЗАДАЧА №1 ПОСТРОЕНИЕ СТОЛБЦА ИНДЕКСА ЦИКЛА.

Данную задачу сформулируем в виде:

Построить столбец значений индекса цикла в
интервале [1..N (задано)]. При этом с изменением
значения N в ячейке В3 должно изменяться и
количество значений индекса цикла в расчетной
таблице.
Эта задача решается в столбце А начиная со строки
№10.

Важно отметить, что протяжку можно вести до
любого номера строки лишь бы при всех изменениях
N протяжка формулы захватывала все строки
изменения значения индекса цикла. Необходимо
только помнить, что при протяжке увеличивается
объем файла, то есть чем глубже протянем формулу,
тем большим будет объем полученного файла и,
возможно, медленнее будет работать Excel с этим
файлом.

Рис. 3.

ПЕРВАЯ ЗАДАЧА РЕШЕНА

ЗАДАЧА №2. ПОСТРОЕНИЕ СТОЛБЦА ЭЛЕМЕНТОВ ЦИКЛА.

Здесь под элементом цикла будем понимать
текущее значение S, зависящее от значения индекса
цикла.
Сформулируем задачу в следующем виде:
Для каждого значения индекса цикла определить
текущее значение S.
Столбец В дает нам текущие значения S=f(<индекс
цикла>), при этом протяжка формулы в столбце В
должна быть не меньше протяжки в столбце А.

Рис. 3.

ВТОРАЯ ЗАДАЧА РЕШЕНА.

4. Разработка таблицы подзадачи
ВыводРезультатов

Для решения данной задачи следует понять, что
выходным значением S будет наибольшее из
значений в ячейках В [10…]. Конечное значение
интервала в В определяется протяжкой формул в
задачах №№1, 2. Пусть формулы протянули до строки
№50. Естественно, наибольшим S будет для
наибольшего значения индекса цикла, так как на
каждом шаге прибавляется число большее 1.
Следовательно, в ячейку Е3 необходимо ввести
формулу

Е3 =>[=МАКС(b10:b50)]

Рис. 3.

И если помнить, что значение пустой ячейки Excel
воспринимает как «0», то…

ТРЕТЬЯ ЗАДАЧА РЕШЕНА.

5. Тестирование полученных таблиц

Для тестирования полученной таблицы строим
таблицу теста по следующему шаблону:

ЗАДАЧА РЕШЕНА.

Задачи для самостоятельной работы можно найти
в Приложении 3.

Время на прочтение
7 мин

Количество просмотров 312K

Приветствую всех.

В этом посте я расскажу, что такое VBA и как с ним работать в Microsoft Excel 2007/2010 (для более старых версий изменяется лишь интерфейс — код, скорее всего, будет таким же) для автоматизации различной рутины.

VBA (Visual Basic for Applications) — это упрощенная версия Visual Basic, встроенная в множество продуктов линейки Microsoft Office. Она позволяет писать программы прямо в файле конкретного документа. Вам не требуется устанавливать различные IDE — всё, включая отладчик, уже есть в Excel.

Еще при помощи Visual Studio Tools for Office можно писать макросы на C# и также встраивать их. Спасибо, FireStorm.

Сразу скажу — писать на других языках (C++/Delphi/PHP) также возможно, но требуется научится читать, изменять и писать файлы офиса — встраивать в документы не получится. А интерфейсы Microsoft работают через COM. Чтобы вы поняли весь ужас, вот Hello World с использованием COM.

Поэтому, увы, будем учить Visual Basic.

Чуть-чуть подготовки и постановка задачи

Итак, поехали. Открываем Excel.

Для начала давайте добавим в Ribbon панель «Разработчик». В ней находятся кнопки, текстовые поля и пр. элементы для конструирования форм.

Появилась вкладка.

Теперь давайте подумаем, на каком примере мы будем изучать VBA. Недавно мне потребовалось красиво оформить прайс-лист, выглядевший, как таблица. Идём в гугл, набираем «прайс-лист» и качаем любой, который оформлен примерно так (не сочтите за рекламу, пожалуйста):

То есть требуется, чтобы было как минимум две группы, по которым можно объединить товары (в нашем случае это будут Тип и Производитель — в таком порядке). Для того, чтобы предложенный мною алгоритм работал корректно, отсортируйте товары так, чтобы товары из одной группы стояли подряд (сначала по Типу, потом по Производителю).

Результат, которого хотим добиться, выглядит примерно так:

Разумеется, если смотреть прайс только на компьютере, то можно добавить фильтры и будет гораздо удобнее искать нужный товар. Однако мы хотим научится кодить и задача вполне подходящая, не так ли?

Кодим

Для начала требуется создать кнопку, при нажатии на которую будет вызываться наша програма. Кнопки находятся в панели «Разработчик» и появляются по кнопке «Вставить». Вам нужен компонент формы «Кнопка». Нажали, поставили на любое место в листе. Далее, если не появилось окно назначения макроса, надо нажать правой кнопкой и выбрать пункт «Назначить макрос». Назовём его FormatPrice. Важно, чтобы перед именем макроса ничего не было — иначе он создастся в отдельном модуле, а не в пространстве имен книги. В этому случае вам будет недоступно быстрое обращение к выделенному листу. Нажимаем кнопку «Новый».

И вот мы в среде разработки VB. Также её можно вызвать из контекстного меню командой «Исходный текст»/«View code».

Перед вами окно с заглушкой процедуры. Можете его развернуть. Код должен выглядеть примерно так:

Sub FormatPrice()End Sub

Напишем Hello World:

Sub FormatPrice()
    MsgBox "Hello World!"
End Sub

И запустим либо щелкнув по кнопке (предварительно сняв с неё выделение), либо клавишей F5 прямо из редактора.

Тут, пожалуй, следует отвлечься на небольшой ликбез по поводу синтаксиса VB. Кто его знает — может смело пропустить этот раздел до конца. Основное отличие Visual Basic от Pascal/C/Java в том, что команды разделяются не ;, а переносом строки или двоеточием (:), если очень хочется написать несколько команд в одну строку. Чтобы понять основные правила синтаксиса, приведу абстрактный код.

Примеры синтаксиса

' Процедура. Ничего не возвращает
' Перегрузка в VBA отсутствует
Sub foo(a As String, b As String)
    ' Exit Sub ' Это значит "выйти из процедуры"
    MsgBox a + ";" + b
End Sub' Функция. Вовращает Integer
Function LengthSqr(x As Integer, y As Integer) As Integer
    ' Exit Function
    LengthSqr = x * x + y * y
End FunctionSub FormatPrice()
    Dim s1 As String, s2 As String
    s1 = "str1"
    s2 = "str2"
    If s1 <> s2 Then
        foo "123", "456" ' Скобки при вызове процедур запрещены
    End IfDim res As sTRING ' Регистр в VB не важен. Впрочем, редактор Вас поправит
    Dim i As Integer
    ' Цикл всегда состоит из нескольких строк
    For i = 1 To 10
        res = res + CStr(i) ' Конвертация чего угодно в String
        If i = 5 Then Exit For
    Next iDim x As Double
    x = Val("1.234") ' Парсинг чисел
    x = x + 10
    MsgBox xOn Error Resume Next ' Обработка ошибок - игнорировать все ошибки
    x = 5 / 0
    MsgBox xOn Error GoTo Err ' При ошибке перейти к метке Err
    x = 5 / 0
    MsgBox "OK!"
    GoTo ne

On Error GoTo 0 ' Отключаем обработку ошибок

    ' Циклы бывает, какие захотите
    Do While True
        Exit DoLoop 'While True
    Do 'Until False
        Exit Do
    Loop Until False
    ' А вот при вызове функций, от которых хотим получить значение, скобки нужны.
    ' Val также умеет возвращать Integer
    Select Case LengthSqr(Len("abc"), Val("4"))
    Case 24
        MsgBox "0"
    Case 25
        MsgBox "1"
    Case 26
        MsgBox "2"
    End Select' Двухмерный массив.
    ' Можно также менять размеры командой ReDim (Preserve) - см. google
    Dim arr(1 to 10, 5 to 6) As Integer
    arr(1, 6) = 8Dim coll As New Collection
    Dim coll2 As Collection
    coll.Add "item", "key"
    Set coll2 = coll ' Все присваивания объектов должны производится командой Set
    MsgBox coll2("key")
    Set coll2 = New Collection
    MsgBox coll2.Count
End Sub

Грабли-1. При копировании кода из IDE (в английском Excel) есь текст конвертируется в 1252 Latin-1. Поэтому, если хотите сохранить русские комментарии — надо сохранить крокозябры как Latin-1, а потом открыть в 1251.

Грабли-2. Т.к. VB позволяет использовать необъявленные переменные, я всегда в начале кода (перед всеми процедурами) ставлю строчку Option Explicit. Эта директива запрещает интерпретатору заводить переменные самостоятельно.

Грабли-3. Глобальные переменные можно объявлять только до первой функции/процедуры. Локальные — в любом месте процедуры/функции.

Еще немного дополнительных функций, которые могут пригодится: InPos, Mid, Trim, LBound, UBound. Также ответы на все вопросы по поводу работы функций/их параметров можно получить в MSDN.

Надеюсь, что этого Вам хватит, чтобы не пугаться кода и самостоятельно написать какое-нибудь домашнее задание по информатике. По ходу поста я буду ненавязчиво знакомить Вас с новыми конструкциями.

Кодим много и под Excel

В этой части мы уже начнём кодить нечто, что умеет работать с нашими листами в Excel. Для начала создадим отдельный лист с именем result (лист с данными назовём data). Теперь, наверное, нужно этот лист очистить от того, что на нём есть. Также мы «выделим» лист с данными, чтобы каждый раз не писать длинное обращение к массиву с листами.

Sub FormatPrice()
    Sheets("result").Cells.Clear
    Sheets("data").Activate
End Sub

Работа с диапазонами ячеек

Вся работа в Excel VBA производится с диапазонами ячеек. Они создаются функцией Range и возвращают объект типа Range. У него есть всё необходимое для работы с данными и/или оформлением. Кстати сказать, свойство Cells листа — это тоже Range.

Примеры работы с Range

Sheets("result").Activate
Dim r As Range
Set r = Range("A1")
r.Value = "123"
Set r = Range("A3,A5")
r.Font.Color = vbRed
r.Value = "456"
Set r = Range("A6:A7")
r.Value = "=A1+A3"

Теперь давайте поймем алгоритм работы нашего кода. Итак, у каждой строчки листа data, начиная со второй, есть некоторые данные, которые нас не интересуют (ID, название и цена) и есть две вложенные группы, к которым она принадлежит (тип и производитель). Более того, эти строки отсортированы. Пока мы забудем про пропуски перед началом новой группы — так будет проще. Я предлагаю такой алгоритм:

1. Считали группы из очередной строки.
2. Пробегаемся по всем группам в порядке приоритета (вначале более крупные)
   1. Если текущая группа не совпадает, вызываем процедуру AddGroup(i, name), где i — номер группы (от номера текущей до максимума), name — её имя. Несколько вызовов необходимы, чтобы создать не только наш заголовок, но и всё более мелкие.
3. После отрисовки всех необходимых заголовков делаем еще одну строку и заполняем её данными.

Для упрощения работы рекомендую определить следующие функции-сокращения:

Function GetCol(Col As Integer) As String
    GetCol = Chr(Asc("A") + Col)
End FunctionFunction GetCellS(Sheet As String, Col As Integer, Row As Integer) As Range
    Set GetCellS = Sheets(Sheet).Range(GetCol(Col) + CStr(Row))
End FunctionFunction GetCell(Col As Integer, Row As Integer) As Range
    Set GetCell = Range(GetCol(Col) + CStr(Row))
End Function

Далее определим глобальную переменную «текущая строчка»: Dim CurRow As Integer. В начале процедуры её следует сделать равной единице. Еще нам потребуется переменная-«текущая строка в data», массив с именами групп текущей предыдущей строк. Потом можно написать цикл «пока первая ячейка в строке непуста».

Глобальные переменные

Option Explicit ' про эту строчку я уже рассказывал
Dim CurRow As Integer
Const GroupsCount As Integer = 2
Const DataCount As Integer = 3

FormatPrice

Sub FormatPrice()
    Dim I As Integer ' строка в data
    CurRow = 1
    Dim Groups(1 To GroupsCount) As String
    Dim PrGroups(1 To GroupsCount) As String

"data").Activate
    I = 2
    Do While True
        If GetCell(0, I).Value = "" Then Exit Do
        ' ...
        I = I + 1
    Loop
End Sub

Теперь надо заполнить массив Groups:

На месте многоточия

Dim I2 As Integer
For I2 = 1 To GroupsCount
    Groups(I2) = GetCell(I2, I)
Next I2
' ...
For I2 = 1 To GroupsCount ' VB не умеет копировать массивы
    PrGroups(I2) = Groups(I2)
Next I2
I =  I + 1

И создать заголовки:

На месте многоточия в предыдущем куске

For I2 = 1 To GroupsCount
    If Groups(I2) <> PrGroups(I2) Then
        Dim I3 As Integer
        For I3 = I2 To GroupsCount
            AddHeader I3, Groups(I3)
        Next I3
        Exit For
    End If
Next I2

Не забудем про процедуру AddHeader:

Перед FormatPrice

Sub AddHeader(Ty As Integer, Name As String)
    GetCellS("result", 1, CurRow).Value = Name
    CurRow = CurRow + 1
End Sub

Теперь надо перенести всякую информацию в result

For I2 = 0 To DataCount - 1
    GetCellS("result", I2, CurRow).Value = GetCell(I2, I)
Next I2

Подогнать столбцы по ширине и выбрать лист result для показа результата

После цикла в конце FormatPrice

Sheets("Result").Activate
Columns.AutoFit

Всё. Можно любоваться первой версией.

Некрасиво, но похоже. Давайте разбираться с форматированием. Сначала изменим процедуру AddHeader:

Sub AddHeader(Ty As Integer, Name As String)
    Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow)).Merge
    ' Чтобы не заводить переменную и не писать каждый раз длинный вызов
    ' можно воспользоваться блоком With
    With GetCellS("result", 0, CurRow)
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        Select Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
        Case 2 ' Производитель
            .Font.Size = 12
        End Select
        .HorizontalAlignment = xlCenter
    End With
    CurRow = CurRow + 1
End Sub

Уже лучше:

Осталось только сделать границы. Тут уже нам требуется работать со всеми объединёнными ячейками, иначе бордюр будет только у одной:

Поэтому чуть-чуть меняем код с добавлением стиля границ:

Sub AddHeader(Ty As Integer, Name As String)
    With Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow))
        .Merge
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        .HorizontalAlignment = xlCenterSelect Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
            .Borders(xlTop).Weight = xlThick
        Case 2 ' Производитель
            .Font.Size = 12
            .Borders(xlTop).Weight = xlMedium
        End Select
        .Borders(xlBottom).Weight = xlMedium ' По убыванию: xlThick, xlMedium, xlThin, xlHairline
    End With
    CurRow = CurRow + 1
End Sub

Осталось лишь добится пропусков перед началом новой группы. Это легко:

В начале FormatPrice

Dim I As Integer ' строка в  data
CurRow = 0 ' чтобы не было пропуска в самом начале
Dim Groups(1 To GroupsCount) As String

В цикле расстановки заголовков

If Groups(I2) <> PrGroups(I2) Then
    CurRow = CurRow + 1
    Dim I3 As Integer

В точности то, что и хотели.

Надеюсь, что эта статья помогла вам немного освоится с программированием для Excel на VBA. Домашнее задание — добавить заголовки «ID, Название, Цена» в результат. Подсказка: CurRow = 0 CurRow = 1.

Файл можно скачать тут (min.us) или тут (Dropbox). Не забудьте разрешить исполнение макросов. Если кто-нибудь подскажет человеческих файлохостинг, залью туда.

Спасибо за внимание.

Буду рад конструктивной критике в комментариях.

UPD: Перезалил пример на Dropbox и min.us.

UPD2: На самом деле, при вызове процедуры с одним параметром скобки можно поставить. Либо использовать конструкцию Call Foo(«bar», 1, 2, 3) — тут скобки нужны постоянно.

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

history 28 августа 2022 г.

Группы статей
• Приложения
• Управление проектами

Создадим редактор блок-схем произвольной формы в MS EXCEL. Помимо построения блок-схем редактор должен автоматически (по нажатию кнопки) проводить анализ связей элементов в схеме:

• подсчитывать количество элементов,
• присваивать им уникальные номера,
• определять последователей и предшественников элемента,
• проводить проверки (наличие связей, отсутствие дублирующих связей, контроль циклов внутри схемы и др.). 

Справедливости ради, нужно отметить, что предложенный в данной статье построитель блок-схем во многом дублирует стандартный инструмент SmartArt (тип Иерархия), который можно создать через меню EXCEL Вставка-Иллюстрации-SmartArt.

Однако, с помощью данного подхода можно принципиально создать схемы элементов с любыми взаимоотношениями (не только иерархического типа или процесс), например, сетевую диаграмму для управления проектами или сетевой график сложного производственного процесса.

Примечание:

В статье Автоматический анализ схем SmartArt MS EXCEL показано как считать всю информацию об элементах и их связях с помощью VBA (фактически реализован парсинг — сбор и систематизация информации, parsing).

Построитель произвольных блок-схем

Для редактора блок-схем будем использовать стандартные элементы типа Надпись и Стрелка (меню EXCEL Вставка-Иллюстрации-Фигуры). Каждому элементу блок-схемы (Надпись) программа VBA будет присваивать уникальный номер, что в дальнейшем нам позволит определить связи между элементами (заполнив отдельную таблицу последователей и предшественников каждого элемента). Поскольку мы будем строить блок-схему иерархического типа, то последователь (тот элемент к которому идет стрелка) будет единственным, но если требуется создать схему с произвольными связями, то программу VBA можно легко настроить. Иерархический тип блок-схем подходит для описания организационных систем (начальник должен быть единственным, в идеале), производственных цепочек (механическая обработка и сборка изделий) и др.

Перечислим некоторые правила построения данного типа блок-схемы и работы с ней:

1. У элемента допускается не более одной исходящей стрелки. Если у элемента отсутствует исходящая стрелка, то он называется Конечным элементом (это — Босс;)
2. У элемента допускается несколько входящих стрелок. Если у элемента отсутствует входящая стрелка, то он называется Начальным элементом. Если их 2 и больше, то это — элемент типа Сборка
3. Каждый элемент должен иметь соединение хотя бы с одним другим элементом
4. Два элемента могут быть соединены только одной стрелкой
5. В схеме можно сделать несколько последовательностей не связанных между собой стрелками. 
6. Количество несвязанных между собой последовательностей элементов равно количеству Конечных элементов (следствие Правила №1)
7. Для анализа схемы все элементы и стрелки именуются по определенному формату (01, 02, … 09, 10, 11), это нужно для работоспособности схемы
8. Вставляйте элементы и стрелки только с использованием кнопок на листе «Вставить элемент» и Связать 2 элемента»
9. Не удаляйте элементы по отдельности — это может нарушить работоспособность схемы. Удаляйте схему целиком. Стрелки удалять можно
10. Стрелки не соединяющие 2 элемента не допускаются (могут возникнуть при удалении 1 элемента)
11. Элементы на схеме двигать можно, стрелки будут следовать за своим элементом. Если нужно подвинуть стрелку, то двигайте элемент

Для построения схемы на листе создано меню с кнопками управления (см. файл примера).

Пример построения схемы с нуля

1. Выделите ячейку на листе куда нужно поставить элемент
2. Нажмите кнопку Вставить элемент схемы. Элемент (прямоугольник с номером 01) появится на листе
3. Вставьте еще 1 элемент повторив шаг 1 и 2. На листе появится элемент с номером 02
4. Выделите сначала элемент 01, затем, удерживая CTRL или SHIFT, выделите элемент 02 (последовательность выделения элементов важна для направления стрелки)
5. Нажмите кнопку Связать 2 элемента, появится стрелка соединяющая элемент 01 с 02. Элементы можно перемещать, стрелка будет перемещаться вместе с элементами

Так выглядит схема с 2-мя независимыми последовательностями

Анализ данных блок-схемы

Построим следующую схему:

После построения блок-схемы нажмите кнопку Анализ схемы — заполнится таблица. Результаты анализа схемы приведены ниже.

Так как предшественников у каждого элемента может быть несколько, то их номера выведены в одной ячейке — в тектовой строке. Чтобы расшифровать ее используйте функцию ПСТР(). Например, формула =ПСТР(N33;3;2) выведет второго предшественника элемента 03 (или 3), т.е. элемент 02 (дополнительный ноль перед номером у элементов от 1 до 9 упрощает анализ этой строки).

Информацию из этой таблицы можно передавать в качестве исходных данных в программу, которая моделирует, например, производственный процесс (элементы представляют собой разное оборудование). К примеру, исходный материал в данной схеме должен подаваться на оборудование 01 и 04, а конечный продукт изготавливается оборудованием под номером 06. Программе также будет понятно на какое оборудование передавать материал на следующем шаге. Элементам можно присвоить характеристики (производительность, уровень брака, вероятность простоя). 

С помощью данных, указанных в таблице, и простейших формул можно много узнать о схеме.

Также можно определить количество уровней иерархии в схеме или максимальную длину последовательности элементов, что фактически то же самое.

Как это реализовано?

Построение схемы (вставка элементов, их нумерация, связь элементов стрелками) реализовано с помощью процедур VBA.

Анализ схемы и заполнение таблицы — также нескоолько строк программного кода.

Однако, для создания схем и работы с ними знания программирования не требуется.

Большинство типовых
вычислительных алгоритмов в Excel оформлены
в виде стандартных функций и вызываются
с помощью программы Мастер функций (см.
подразд. 1.9). Самые популярные
из них:

• ЕСЛИ() – позволяет
  предусмотреть разные варианты заполнения
  ячейки;

• СУММ(), ПРОИЗВЕД()
  – соответственно суммирование и
  перемножение значений из одного или
  нескольких блоков;

• СУММПРОИЗВ() –
  суммирование произведений соответствующих
  элементов двух или нескольких массивов;

• СРЗНАЧ(), СРГЕОМ()
  – расчет соответственно среднего
  арифметического и геометрического по
  числам в заданных блоках;

• СЧЕТ() – определение
  количества чисел в заданном блоке.

Более сложные
алгоритмы оформлены в виде команд и
заказываются через меню Сервис. Наиболее
важные из них:

• Подбор параметра…
  – нахождение аргумента, при котором
  функция примет нужное значение;

• Поиск решения…
  – решение систем уравнений и задач
  оптимизации;

• Пакет анализа –
  содержит программы, необходимые при
  статистической обработке данных.

Если нужная для
вычислений команда отсутствует в меню,
ее можно установить с помощью команды
Сервис Надстройки…

6.1. Общие сведения о функции если()

Функция ЕСЛИ()
позволяет предусмотреть разные способы
заполнения одной и той же ячейки. То,
каким из них следует воспользоваться
в данный момент, Excel определяет
самостоятельно по тому, выполняется
или нет при введенных данных указанное
в функции условие. Стандартный формат
функции имеет следующий вид:

ЕСЛИ(Логическое_выражение;
Значение_если_истина;Значение_если_ложь)

Здесь:

• Логическое_выражение
  – это условие, которое при одних
  значениях введенных данных выполняется,
  при других – нет;

• Значение_если_истина
  – алгоритм, по которому определяется
  значение функции, когда условие
  оказывается правильным;

• Значение_если_ложь
  – алгоритм, по которому определяется
  значение функции, когда условие
  оказывается неправильным.

В роли алгоритмов,
которые выбирает функция ЕСЛИ(), могут
выступать расчетные выражения, другие
функции, ссылки на ячейки, где находится
нужная информация, текстовые строки и
т. п.

Рассмотрим действие
этой функции на конкретных примерах.

6.2. Выбор из двух вариантов по одному условию

Пример

Поставщик ввел
оптовую скидку на цену для больших
партий товара. Надо составить шаблон
для расчета стоимости любой партии
товара.

Составим таблицу
из констант, необходимых для расчета.
В ячейки А1:А4 введем названия констант:
«ОбъемПартии», «ОптБарьер»,
«РознЦена», «ОптЦена». Присвоим
ячейкам В1:В4 такие же имена (удобно
пользоваться командой Вставка 
Имя 
Создать…). В ячейку С1 введем
текст «СтоимПартииТовара».

Сделаем активной
ячейку С2 и вызовем через Мастер функций
функцию ЕСЛИ(). В окне аргументов в
текстовые поля введем следующие значения:

• В поле
  «Логическое_выражение:» вводится
  условие, по которому Excel будет выбирать
  нужный вариант действий. Его можно
  составить так:

ОбъемПартии<=ОптБарьер

• В поле
  «Значение_если_истина:» указывается
  способ, по которому следует рассчитывать
  функцию, если условие оказалось
  правильным при тех данных, которые
  введены во влияющие ячейки в данный
  момент. Для нашего примера этот аргумент
  выглядит следующим образом:

ОбъемПартии*
РознЦена

• В поле
  «Значение_если_ложь:» указывается,
  как рассчитывать функцию, если условие
  не выполняется. Для нашего примера
  следует ввести

ОбъемПартии*ОптЦена

Расчетный шаблон
готов. Чтобы проверить его, введите
удобные для устных расчетов числа в
ячейки В1:В4 и проверьте, правильно ли
функция ЕСЛИ() выбрала формулу для
заполнения ячейки С2. Введите в В1 другой
объем партии, при котором требуется
использовать другую цену при расчете
стоимости покупки. Если в обоих случаях
получены верные результаты, можно
красиво отформатировать ячейки А1:С4
(см.
подразд. 1.13–1.16) и пользоваться
этим шаблоном, меняя только значения
констант в В1:В4.

Пример

В таблице значений
функции y = 2cos(x
+ 2)e^0,5xнадо отметить символом «*» строку
с минимальным значением.

Введем в ячейки
А1 и В1 подписи «X» и
«Y», в блок А2:А11 –
значения аргументов, в блок В2:В11 –
формулу расчета функции. Столбец С
зарезервируем для заказанной в условии
метки. В ячейкуD1 введем
текст «минимум», в ячейкеD2
с помощью функции МИН() найдем это
значение в блоке В2:В11.

Выделим ячейку С2
и вызовем через Мастер функций функцию
ЕСЛИ(). Условие, по которому Excel выбирает
нужный вариант действий, составим так:
В2=$D$2. В строку второго
аргумента вводим символ «*» (без
кавычек), в третий – пробел и нажмем
после этого <ОК>. С помощью протяжки
скопируем полученную формулу на блок
С2:С11.

Задание

Посмотрите, какой
вид приняла функция в разных ячейках
этого блока.

Рассмотрим функцию
ЕСЛИ() в той строке, в которой появилась
«*». Значение функции y
в этой строке минимально. Левая и
правая части условия оказались
одинаковыми, т. е. первый аргумент –
правильный. Поэтому для заполнения
своей ячейки функция ЕСЛИ выбрала то,
что указано во втором аргументе. Для
значений функцииув других строках
условие, введенное в функцию ЕСЛИ(),
оказывается неверным, поэтому она
заполняет свои ячейки по варианту
третьего аргумента. В нашем случае это
пробел, который невидим на экране,
поэтому ячейки кажутся пустыми.

Измените аргументы,
введенные в А2:А11. «*» переместилась
в другую строку, хотя формулы в С2:С11 не
были изменены (после изменения данных
каждая функция ЕСЛИ() автоматически
проверила свой первый аргумент заново
и приняла новое управляющее решение,
каким правилом пользоваться для
заполнения своей ячейки).

Задание

В ячейку А1 введите
формулу:

=ЕСЛИ(С3=37;»СЕНО»;»СОЛОМА»)

Определите влияющую
ячейку (команда
Сервис 
Зависимости 
Влияющие ячейки) и введите в
нее такое число, при котором СОЛОМА
превратится в СЕНО.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #