![]() |
Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология Образование Политология Производство Психология Стандартизация Технологии |
Заполнение таблицы «Отчет о реализации мероприятий программы энергосбережения и повышения энергетической эффективности» в MSExcel
If " Итого по мероприятиям экономии электрической энергии" = AppExcel.Application.Range(" a20" ).ValueThen AppExcel.Application.Range(" d83" ).Select n = -64 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a21" ).Value Then AppExcel.Application.Range(" d84" ).Select n = -65 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a22" ).Value Then AppExcel.Application.Range(" d85" ).Select n = -66 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a23" ).Value Then AppExcel.Application.Range(" d86" ).Select n = -67 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a24" ).Value Then AppExcel.Application.Range(" d87" ).Select n = -68 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a25" ).Value Then AppExcel.Application.Range(" d88" ).Select n = -69 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a26" ).Value Then AppExcel.Application.Range(" d89" ).Select n = -70 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a27" ).Value Then AppExcel.Application.Range(" d90" ).Select n = -71 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a28" ).Value Then AppExcel.Application.Range(" d91" ).Select n = -72 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a29" ).Value Then AppExcel.Application.Range(" d92" ).Select n = -73 End If AppExcel.Application.ActiveCell.Offset.Value = AppExcel.Application.WorksheetFunction.Sum(Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 0).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 5).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 10).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 15).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 20).Value, ", ", "." ))) If " Итого по мероприятиям экономии электрической энергии" = AppExcel.Application.Range(" a20" ).ValueThen AppExcel.Application.Range(" d84" ).Select n = -64 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a21" ).Value Then AppExcel.Application.Range(" d86" ).Select n = -65 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a22" ).Value Then AppExcel.Application.Range(" d88" ).Select n = -66 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a23" ).Value Then AppExcel.Application.Range(" d90" ).Select n = -67 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a24" ).Value Then AppExcel.Application.Range(" d92" ).Select n = -68 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a25" ).Value Then AppExcel.Application.Range(" d94" ).Select n = -69 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a26" ).Value Then AppExcel.Application.Range(" d96" ).Select n = -70 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a27" ).Value Then AppExcel.Application.Range(" d98" ).Select n = -71 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a28" ).Value Then AppExcel.Application.Range(" d100" ).Select n = -72 ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a29" ).Value Then AppExcel.Application.Range(" d102" ).Select n = -73 End If AppExcel.Application.ActiveCell.Offset.Value = AppExcel.Application.WorksheetFunction.Sum(Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 0).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 5).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 10).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 15).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 20).Value, ", ", "." ))) ПРИЛОЖЕНИЕ В Программный код, заполняющий таблицы паспорта программы энергосбережения данными об электрической энергии
Set WordApp = New Word.Application Set DocWord = WordApp.Documents.Open(App.Path& " \Шаблон.docx" ) SetWdRange1 = WordApp.ActiveDocument.Content WdRange1.Find.ClearFormatting WdRange1.Find.Text = " ЭкономияТЭР" WdRange1.Find.Execute SetwdTab1 = WdRange1.Tables(1) wdTab1.Cell(5, 1).Select WordApp.Application.Selection.SelectRow WordApp.Application.Selection.InsertRowsBelow WordApp.Application.Selection.Rows.Height = WordApp.Application.CentimetersToPoints(2) WordApp.Application.Selection.Font.Size = 12 wdTab1.Cell(6, 2).Select With WordApp.Application.Selection.ParagraphFormat .SpaceBefore = 6 .SpaceAfter = 6 End With WordApp.Application.Selection.Font.Size = 10 AppExcel.Application.Range(" b19" ).Select WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Value) f = 4 e = 0 Do While f < 15 wdTab1.Cell(6, f).Select AppExcel.Application.Range(" d19" ).Select WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value) f = f + 5 e = e + 5 Loop f = 3 e = 0 Do While f < 15 wdTab1.Cell(6, f).Select AppExcel.Application.Range(" c19" ).Select WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value) f = f + 5 e = e + 5 Loop f = 5 e = 0 Do While f < 16 wdTab1.Cell(6, f).Select AppExcel.Application.Range(" e19" ).Select WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value) f = f + 5 e = e + 5 Loop f = 7 e = 0 Do While f < 22 wdTab1.Cell(6, f).Select AppExcel.Application.Range(" g19" ).Select WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value) f = f + 5 e = e + 5 Loop wdTab1.Cell(6, 6).Range.Text = " Тыс. кВт*ч" wdTab1.Cell(6, 11).Range.Text = " Тыс. кВт*ч" wdTab1.Cell(6, 16).Range.Text = " Тыс. кВт*ч" e = 0 f = 6 Do wdTab1.Cell(f, 1).Range.Text = Val(e + 1) e = Val(e + 1) f = Val(f + 1) wdTab1.Cell(f, 1).Select With WordApp.Application.Selection.Find .Text = " Итого по мероприятиям экономии электрической энергии" .Execute End With If WordApp.Application.Selection.Find.Found = True Then ExitDo EndIf Loop ПРИЛОЖЕНИЕ Г Программный код, подгружающий значения номинальных мощностей ламп
Set DB = OpenDatabase(App.Path& " \апрель.accdb" ) Set Rec1 = DB.OpenRecordset(" Дуговыертутные (ДРЛ)" ) Set Rec2 = DB.OpenRecordset(" Кварцевыегалогенные (КГ)" ) Set Rec3 = DB.OpenRecordset(" Лампынакаливания (ЛОН)" ) Set Rec4 = DB.OpenRecordset(" Люминесцентные (ЛЛ)" ) Set Rec5 = DB.OpenRecordset(" Металлогалогенные (ДРИ)" ) Set Rec6 = DB.OpenRecordset(" Натриевые высокого давления (ДНа)" ) Set Rec7 = DB.OpenRecordset(" Натриевые низкого давления (SOX)" ) Set Rec8 = DB.OpenRecordset(" Ртутно-вольфрамовые (ДРВ)" ) Set Rec9 = DB.OpenRecordset(" Ртутные трубчатые (ДРТ)" ) Set Rec10 = DB.OpenRecordset(" Светодиодные (LED)" ) Select Case ComboBox1.ListIndex Case 0 ComboBox9.Clear ComboBox60.Clear Do While Not Rec1.EOF ComboBox9.AddItem Trim(Rec1! [Номинальнаямощность, Вт]) Rec1.MoveNext Loop Do While Not Rec11.EOF ComboBox60.AddItem Trim(Rec11! [ТипПРА]) Rec11.MoveNext Loop Case 1 ComboBox9.Clear
Do While Not Rec2.EOF ComboBox9.AddItem Trim(Rec2! [Номинальнаямощность, Вт]) Rec2.MoveNext Loop ПРИЛОЖЕНИЕ Д |
Последнее изменение этой страницы: 2017-05-05; Просмотров: 1143; Нарушение авторского права страницы