8 Программу управления складом для 756 артикулов самим создать Создание выпадающих списков

Плейлист: https://www.youtube.com/watch?v=LwzpKpW5uSQ&list=PLcwMjDfa1J18TWmsn46i5YzBdUhr0z6eW Страница: https://excel.hpage.com/excel-vba-t.html Программу управления складом для 756 артикулов самим создать. Создание выпадающих списков. Щелкните правой кнопкой мыши на вкладке первого листа и выберите «Исходный текст». В редакторе VBA щёлкните значок «Панель инструментов». Щёлкните левой кнопкой мыши по элементу «ComboBox» на панели инструментов, а затем щёлкните левой кнопкой мыши по пустому месту в области «UserForm1». Теперь ComboBox1 находится в области «UserForm1». В редакторе VBA щелкните по "Frame1", а затем по значку "Панель инструментов". На панели инструментов щелкните по элементу управления «ComboBox», а затем щелкните в пустой области "Frame1". ComboBox2 теперь находится в "Frame1". Создайте таким же образом еще ComboBox3. В редакторе VBA щелкните по "Frame2", а затем по значку "Панель инструментов". На панели инструментов щелкните по элементу управления «ComboBox», а затем щелкните в пустой области "Frame2". ComboBox4 теперь находится в "Frame2". Создайте таким же образом еще ComboBox5. В редакторе VBA щелкните по "Frame3", а затем по значку "Панель инструментов". На панели инструментов щелкните по элементу управления «ComboBox», а затем щелкните в пустой области "Frame3". ComboBox6 теперь находится в "Frame3". Создайте таким же образом еще ComboBox7. В редакторе VBA дважды щелкните UserForm левой кнопкой мыши. Введите код из описания видео в процедуру «Activate». Откройте рабочий лист, а затем маску ввода. Отформатированные выпадающие списки от ComboBox1 до ComboBox7 отображаются. ''''''555555555555555555555 With ComboBox1 .BackColor = &HFFFFFF .Font.Size = 8 .Font.Bold = True .ForeColor = &HC00000 .Height = 18 .Left = 438 .Top = 18 .TabIndex = 1 .TextAlign = fmTextAlignCenter .Width = 144 End With With ComboBox2 .BackColor = &HFFFFFF .Font.Size = 8 .Font.Bold = True .ForeColor = &HC00000 .Height = 18 .Left = 6 .Top = 48 .TabIndex = 2 .TextAlign = fmTextAlignCenter .Width = 114 End With With ComboBox3 .BackColor = &HFFFFFF .Font.Size = 8 .Font.Bold = True .ForeColor = &HC00000 .Height = 18 .Left = 6 .Top = 78 .TabIndex = 3 .TextAlign = fmTextAlignCenter .Width = 114 End With With ComboBox4 .BackColor = &HFFFFFF .Font.Size = 8 .Font.Bold = True .ForeColor = &HC00000 .Height = 18 .Left = 6 .Top = 48 .TabIndex = 1 .TextAlign = fmTextAlignCenter .Width = 114 End With With ComboBox5 .BackColor = &HFFFFFF .Font.Size = 8 .Font.Bold = True .ForeColor = &HC00000 .Height = 18 .Left = 6 .Top = 78 .TabIndex = 2 .TextAlign = fmTextAlignCenter .Width = 114 End With With ComboBox6 .BackColor = &HFFFFFF .Font.Size = 8 .Font.Bold = True .ForeColor = &HC00000 .Height = 18 .Left = 6 .Top = 48 .TabIndex = 2 .TextAlign = fmTextAlignCenter .Width = 114 End With With ComboBox7 .BackColor = &HFFFFFF .Font.Size = 8 .Font.Bold = True .ForeColor = &HC00000 .Height = 18 .Left = 6 .Top = 78 .TabIndex = 3 .TextAlign = fmTextAlignCenter .Width = 114 End With ''''''555555555555555555555