{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["DATA","Выбор","macro"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"DATA","index":0,"n_rows":4,"n_cols":2,"rows_kept":4,"cut":false,"hidden":false,"merged":[]}
["Авто","ФИО"]
["ГАЗ","Иванов"]
["ВАЗ","Петров"]
["МАЗ","Сидоров"]

{"sheet":"Выбор","index":1,"n_rows":3,"n_cols":3,"rows_kept":3,"cut":false,"hidden":false,"merged":[]}
["МАЗ",null,"выпадающий список"]
[]
[null,null,"выпадающий список при условии выбора \"МАЗ\" в А1"]

{"sheet":"macro","index":2,"n_rows":46,"n_cols":2,"rows_kept":46,"cut":false,"hidden":false,"merged":[]}
[null,"НА ЛИСТЕ \"ВЫБОР\""]
[null,"' Модуль Worksheet_Change листа \"Выбор\"  с выпадающим списком, который при изменении запускает программу Get_Drop_Down"]
[]
[null,"Private Sub Worksheet_Change(ByVal Target As Range)"]
[null," Dim DropDownAddress As String   ' переменная адреса ячейки в выпадающим первичным списком"]
[null," ' =============  модуль для создания выпадающего списка - начало ===================="]
[null,"' то это ячейка  для создания выпадающего списка"]
[null,"With ActiveSheet"]
[null," DropDownAddress = Range(\"$A$1\").Address    ' считываем адрес этой ячейки"]
[null,"   If Not Intersect(Target, Range(DropDownAddress)) Is Nothing Then   ' 2.  если целевая ячейка -  пересекается с диапазоном A1"]
[null,"      If Range(\"$A$1\").Text Like \"ГАЗ\" Then     ' если выбрано  \"ГАЗ\""]
[null,"         Range(\"$A$3\").Value = \"Иванов\"         ' пишем  \"Иванов\""]
[null,"          ElseIf Range(\"$A$1\").Text Like \"ВАЗ\" Then ' если выбрано  \"ВАЗ\""]
[null,"          Range(\"$A$3\").Value = \"Сидоров\"        ' пишем  \"Сидоров\""]
[null,"          ElseIf Range(\"$A$1\").Text Like \"МАЗ\" Then  ' если выбрано  \"МАЗ\""]
[null,"                          "]
[null,"          Call Get_Drop_Down   ' запуск макроса создания выпадающего списка"]
[null,"       End If"]
[null,"    Else    ' целевая ячейка -  не пересекается с диапазоном А1"]
[null,"    End If  ' конец условия 1."]
[null,"   ' =============  модуль для создания выпадающего списка - конец ===================="]
[]
[null,"End With"]
[null,"End Sub"]
[]
[null,"' макрос создания зависимого выпадающего списка"]
[]
[null,"Public Sub Get_Drop_Down() ' макрос - сформировать зависимый выпадающий список"]
[]
[null," Dim MyList(3) As String   ' массив значений зависимого выпадающего списка"]
[null,"  "]
[null,"MyList(0) = \"\"                   ' 1 значение"]
[null,"MyList(1) = \"Иванов\"             ' 2 значение"]
[null,"MyList(2) = \"Петров\"             ' 3 значение"]
[]
[null,"Range(\"A3\").Value = \"\"           ' значение ячейки А3 по умолчанию"]
[]
[null,"With Range(\"A3\").Validation     ' создание выпадающего списка"]
[null,"    .Delete                                ' удалить исходные значения"]
[null,"    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _"]
[null,"    Operator:=xlBetween, Formula1:=Join(MyList, \",\")      ' добавить список значений выпадающего списка"]
[null,"    .InCellDropdown = True                             ' показать выпадающий список в ячейке"]
[null," End With"]
[null,"  "]
[null,"  MsgBox (\"создан выпадающий список в ячейке А3\")      ' прокомментировать создание выпадающего списка"]
[null,"End Sub"]