Форма STF (вход в программу, завершение работы приложения)
Private Sub CommandButton1_Click() Hide InsForm.Show Sheets("Data").Select End Sub
Private Sub CommandButton2_Click() Answer = MsgBox("Вы действительно хотите завершить работу?", vbYesNo + vbQuestion + vbDefaultButton2, "Завершение работы") If Answer = vbYes Then ThisWorkbook.Saved = True Application.Quit End If End Sub
Private Sub UserForm_Initialize() STF.Height = Application.Height STF.Width = Application.Width
'STF.CommandButton1.Left = STF.Width / 4 - 36 'STF.CommandButton1.Top = STF.Top + 15
'STF.CommandButton2.Left = STF.Width / 2 - 10 'STF.CommandButton2.Top = STF.Top + 15 End Sub
Private Sub UserForm_Terminate() Answer = MsgBox("Вы действительно хотите завершить работу?", vbYesNo + vbQuestion + vbDefaultButton2, "Завершение работы") If Answer = vbYes Then ThisWorkbook.Saved = True Application.Quit End If End Sub
Модуль Result (построение таблицы результатов) Sub RTable() Range("A1:H1").Select With Selection.Font .name = "Arial Cyr" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A1").Select ActiveCell.FormulaR1C1 = "Начальный этап" With ActiveCell.Characters(Start:=1, Length:=14).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("B1").Select Columns("A:A").ColumnWidth = 15 Range("B1").Select ActiveCell.FormulaR1C1 = "Конечный этап" With ActiveCell.Characters(Start:=1, Length:=13).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("C1").Select Columns("B:B").ColumnWidth = 15 ActiveCell.FormulaR1C1 = "Продол- житель- ность" With ActiveCell.Characters(Start:=1, Length:=20).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("D1").Select Columns("C:C").ColumnWidth = 12 ActiveCell.FormulaR1C1 = "Время раннего начала" With ActiveCell.Characters(Start:=1, Length:=20).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("E1").Select Columns("D:D").ColumnWidth = 12 ActiveCell.FormulaR1C1 = "Время раннего конца" With ActiveCell.Characters(Start:=1, Length:=19).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("F1").Select Columns("E:E").ColumnWidth = 12 ActiveCell.FormulaR1C1 = "Время позднего начала" With ActiveCell.Characters(Start:=1, Length:=21).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("G1").Select Columns("F:F").ColumnWidth = 12 ActiveCell.FormulaR1C1 = "Время позднего конца" With ActiveCell.Characters(Start:=1, Length:=20).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("H1").Select Columns("G:G").ColumnWidth = 12 ActiveCell.FormulaR1C1 = "Полный резерв" With ActiveCell.Characters(Start:=1, Length:=13).Font .name = "Arial Cyr" .FontStyle = "обычный" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("I1").Select Columns("H:H").ColumnWidth = 11 Range("A2").Select Rows("1:1").RowHeight = 55.5 End Sub
Популярное: Как распознать напряжение: Говоря о мышечном напряжении, мы в первую очередь имеем в виду мускулы, прикрепленные к костям ... Как выбрать специалиста по управлению гостиницей: Понятно, что управление гостиницей невозможно без специальных знаний. Соответственно, важна квалификация... Модели организации как закрытой, открытой, частично открытой системы: Закрытая система имеет жесткие фиксированные границы, ее действия относительно независимы... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (166)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |