9 Программу управления складом для 756 артикулов самим создать Создание кнопок управления

Плейлист: https://www.youtube.com/watch?v=LwzpKpW5uSQ&list=PLcwMjDfa1J18TWmsn46i5YzBdUhr0z6eW Страница: https://excel.hpage.com/excel-vba-t.html Программу управления складом для 756 артикулов самим создать. Создание кнопок управления. Щелкните правой кнопкой мыши на вкладке первого листа и выберите «Исходный текст». В редакторе VBA щёлкните значок «Панель инструментов». Щёлкните левой кнопкой мыши по элементу «CommandButton» на панели инструментов, а затем щёлкните левой кнопкой мыши по пустому месту в области «UserForm1». Теперь CommandButton1 находится в области «UserForm1». Таким же образом создайте еще три кнопки управлений, от CommandButton2 до CommandButton4. В редакторе VBA щелкните по "Frame1", а затем по значку "Панель инструментов". На панели инструментов щелкните по элементу управления «CommandButton», а затем щелкните в пустой области "Frame1". CommandButton5 теперь находится в "Frame1". Создайте таким же образом еще CommandButton6. В редакторе VBA щелкните по "Frame2", а затем по значку "Панель инструментов". На панели инструментов щелкните по элементу управления «CommandButton», а затем щелкните в пустой области "Frame2". CommandButton7 теперь находится в "Frame2". Создайте таким же образом еще CommandButton8. В редакторе VBA щелкните по "Frame3", а затем по значку "Панель инструментов". На панели инструментов щелкните по элементу управления «CommandButton», а затем щелкните в пустой области "Frame3". CommandButton9 теперь находится в "Frame3". Создайте таким же образом еще CommandButton10. В редакторе VBA дважды щелкните UserForm левой кнопкой мыши. Введите код из описания видео в процедуру «Activate». Откройте рабочий лист, а затем маску ввода. Отформатированные кнопки управления от CommandButton1 до CommandButton10 отображаются. ''''''666666666666666666666 With CommandButton1 .BackColor = &HC00000 .Caption = "Посмотреть счёт артукла" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 438 .TabIndex = 2 .Top = 42 .Width = 144 End With With CommandButton2 .BackColor = &H80FF& .Caption = "Удалить запись" .ControlTipText = "Паролем является число 3" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 438 .TabIndex = 3 .Top = 72 .Width = 144 End With With CommandButton3 .BackColor = &HFF& .Caption = "Удалить всё" .ControlTipText = "Паролем является число 3" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 438 .TabIndex = 4 .Top = 102 .Width = 144 End With With CommandButton4 .BackColor = &HFFFF& .Caption = "Накладная выхода" .Font.Size = 10 .Font.Bold = True .ForeColor = &HC00000 .Height = 24 .Left = 438 .TabIndex = 7 .Top = 180 .Width = 144 End With With CommandButton5 .BackColor = &HC00000 .Caption = "Ввести" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 6 .TabIndex = 6 .Top = 240 .Width = 114 End With With CommandButton6 .BackColor = &HC00000 .Caption = "Удалить" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 6 .TabIndex = 7 .Top = 270 .Width = 114 End With With CommandButton7 .BackColor = &HC00000 .Caption = "Ввести" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 6 .TabIndex = 5 .Top = 240 .Width = 114 End With With CommandButton8 .BackColor = &HFFFF& .Caption = "Новая накладная" .Font.Size = 10 .Font.Bold = True .ForeColor = &HC00000 .Height = 24 .Left = 6 .TabIndex = 6 .Top = 270 .Width = 114 End With With CommandButton9 .BackColor = &HC00000 .Caption = "Ввести" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 6 .TabIndex = 5 .Top = 240 .Width = 114 End With With CommandButton10 .BackColor = &HC00000 .Caption = "Удалить" .Font.Size = 10 .Font.Bold = True .ForeColor = &HFFFFFF .Height = 24 .Left = 6 .TabIndex = 6 .Top = 270 .Width = 114 End With ''''''666666666666666666666