Прошу у форумчан помощи - сделал файлик где ведется учет электроэнергии.но нужно ври введении в окошки (на сером фоне) вводить данные и они СОХРАНЯЛИСЬ в листе "по месяцам", т.к. потом оттуда формируется отчет выделенный на белом. не получается у меня - если можно, помогите пожалуйста решить сей трудный для меня вопрос
Прошу у форумчан помощи - сделал файлик где ведется учет электроэнергии.но нужно ври введении в окошки (на сером фоне) вводить данные и они СОХРАНЯЛИСЬ в листе "по месяцам", т.к. потом оттуда формируется отчет выделенный на белом. не получается у меня - если можно, помогите пожалуйста решить сей трудный для меня вопросIgorLuPro
Wasilic, хотелось бы спрятать этот лист и дабы не переключаться с одного на другой - ввел данные (окошек нужно на три ТП - согласен. Но хотя бы для одного для двух других может сам разберусь как спец предлагает) и без возможности отката в этих сереньких окошечках назад. Можно год и месяц вообще убрать, но тогда не пойму как сделать переход из одного года в другой и чтобы в случае выбора месяца и года в отчете, получить что было в этот период для просмотра (директор любит напрячь что тогда было, что сейчас имеем) .
Wasilic, хотелось бы спрятать этот лист и дабы не переключаться с одного на другой - ввел данные (окошек нужно на три ТП - согласен. Но хотя бы для одного для двух других может сам разберусь как спец предлагает) и без возможности отката в этих сереньких окошечках назад. Можно год и месяц вообще убрать, но тогда не пойму как сделать переход из одного года в другой и чтобы в случае выбора месяца и года в отчете, получить что было в этот период для просмотра (директор любит напрячь что тогда было, что сейчас имеем) .IgorLuPro
С уважением IgorLuPro
Сообщение отредактировал IgorLuPro - Суббота, 12.12.2015, 17:29
Wasilich, Wasilich - помогите, пожалуйста, прилепить к листу "Инфа по оплате" для газа, как Вы сделали в листе "Отчет" для электроэнергии. т.е. ( при вводе в серое окошко) в зависимости от месяца и года данных - сохраняло в "Газ_месяцы", а данные для газа прилепить в "Инфа по оплате".
Wasilich, Wasilich - помогите, пожалуйста, прилепить к листу "Инфа по оплате" для газа, как Вы сделали в листе "Отчет" для электроэнергии. т.е. ( при вводе в серое окошко) в зависимости от месяца и года данных - сохраняло в "Газ_месяцы", а данные для газа прилепить в "Инфа по оплате".IgorLuPro
Вы уж потрудитесь сделать табличку по подсчету стоимости газа помесячно. Потом посмотрите формулы в "Инфа по оплате" для эл.энергии и подберите для газа.
Вы уж потрудитесь сделать табличку по подсчету стоимости газа помесячно. Потом посмотрите формулы в "Инфа по оплате" для эл.энергии и подберите для газа.Wasilich
Wasilich, - как вы сказали я сделал, но если позволите, последняя просьба, если не трудно, - из ячейки,лист "газ" - ( 0,5) млн.руб - в зависимости от выбранного месяца ( слева) добавлялось в лист "Газ_месяцы" в "Сумма за каждый месяц, млн руб" - как вы сделали для 2016 + Газ. Спасибо огромное за помощь. ( если можно - где про такой финт можно прочитать, чтобы Вас не напрягать в следующий раз)
Wasilich, - как вы сказали я сделал, но если позволите, последняя просьба, если не трудно, - из ячейки,лист "газ" - ( 0,5) млн.руб - в зависимости от выбранного месяца ( слева) добавлялось в лист "Газ_месяцы" в "Сумма за каждый месяц, млн руб" - как вы сделали для 2016 + Газ. Спасибо огромное за помощь. ( если можно - где про такой финт можно прочитать, чтобы Вас не напрягать в следующий раз)IgorLuPro
Private Sub Worksheet_Change(ByVal Target As Range) ''************* ГАЗ If Not Application.Intersect(Range("G24"), Target) Is Nothing Then Application.EnableEvents = False NG = Sheets("Газ_месяцы").Range("A4") - 1 S = (Range("F23") - NG) * 12 - 9 + Range("G23") Sheets("Газ_месяцы").Range("D" & S) = Range("G24") Application.EnableEvents = True End If If Not Application.Intersect(Range("I23"), Target) Is Nothing Then Application.EnableEvents = False NG = Sheets("Газ_месяцы").Range("A4") - 1 S = (Range("F23") - NG) * 12 - 9 + Range("G23") Sheets("Газ_месяцы").Range("I" & S) = Range("I23") Application.EnableEvents = True End If End Sub Sub МЕСЯЦ_ГАЗ() Application.EnableEvents = False NG = Sheets("Газ_месяцы").Range("A4") - 1 S = (Range("F23") - NG) * 12 - 9 + Range("G23") Range("G24") = Sheets("Газ_месяцы").Range("D" & S) Range("I23") = Sheets("Газ_месяцы").Range("I" & S) Application.EnableEvents = True End Sub
[/vba]
Замените код в модуле листа "Газ".
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) ''************* ГАЗ If Not Application.Intersect(Range("G24"), Target) Is Nothing Then Application.EnableEvents = False NG = Sheets("Газ_месяцы").Range("A4") - 1 S = (Range("F23") - NG) * 12 - 9 + Range("G23") Sheets("Газ_месяцы").Range("D" & S) = Range("G24") Application.EnableEvents = True End If If Not Application.Intersect(Range("I23"), Target) Is Nothing Then Application.EnableEvents = False NG = Sheets("Газ_месяцы").Range("A4") - 1 S = (Range("F23") - NG) * 12 - 9 + Range("G23") Sheets("Газ_месяцы").Range("I" & S) = Range("I23") Application.EnableEvents = True End If End Sub Sub МЕСЯЦ_ГАЗ() Application.EnableEvents = False NG = Sheets("Газ_месяцы").Range("A4") - 1 S = (Range("F23") - NG) * 12 - 9 + Range("G23") Range("G24") = Sheets("Газ_месяцы").Range("D" & S) Range("I23") = Sheets("Газ_месяцы").Range("I" & S) Application.EnableEvents = True End Sub
Wasilich - прошу у Вас помощи, блин все перепробовал ( суть в примечании в файле), не откажите плиз!!! [moder]Не надо складывать все вопросы в одну тему. Читайте Правила форума[/moder]
Wasilich - прошу у Вас помощи, блин все перепробовал ( суть в примечании в файле), не откажите плиз!!! [moder]Не надо складывать все вопросы в одну тему. Читайте Правила форума[/moder]IgorLuPro
С уважением IgorLuPro
Сообщение отредактировал IgorLuPro - Среда, 27.04.2016, 15:34
Wasilich, подскажите, что я не так сделал - вставил четвертую ТП-81, и не добавляет значения как в верхних трех ( на сером фоне) + ошибка какая то.Спасибо если хотя бы направите
Wasilich, подскажите, что я не так сделал - вставил четвертую ТП-81, и не добавляет значения как в верхних трех ( на сером фоне) + ошибка какая то.Спасибо если хотя бы направитеIgorLuPro
Непонятно, что такое в Module3 Call EciaiaieaCia?aiey??aeee(Target.Row, Target.Column) Лист Отчет Мехдвор - строка 25, а в макросе ссылаетесь на строку 24 скважина - строка 26, а в макросе ссылаетесь на строку 25 Насосная - строка 27, а в макросе ссылаетесь на строку 26 ТП-81 - строка 28, а в макросе ссылаетесь на строку 27 В процедуре Sub МЕСЯЦ() строка [vba]
Непонятно, что такое в Module3 Call EciaiaieaCia?aiey??aeee(Target.Row, Target.Column) Лист Отчет Мехдвор - строка 25, а в макросе ссылаетесь на строку 24 скважина - строка 26, а в макросе ссылаетесь на строку 25 Насосная - строка 27, а в макросе ссылаетесь на строку 26 ТП-81 - строка 28, а в макросе ссылаетесь на строку 27 В процедуре Sub МЕСЯЦ() строка [vba]
Не вставляется при вводе в окошки ниже отчета - данные в таблицу по месяцам, соотв. - не считает третий и четвертый счетчик. Капец - мозги закипелиIgorLuPro
Внизу процедур - отсутствовало вот так как у Вас: Sub EE() Application.EnableEvents = True End Sub
Спасибо - хотел уже удалить и забыть про это чудо!!! И если не трудно - что это такое за окончание. Для закрепления - сделал на семь счетчиков - все работает!
Внизу процедур - отсутствовало вот так как у Вас: Sub EE() Application.EnableEvents = True End Sub
Спасибо - хотел уже удалить и забыть про это чудо!!! И если не трудно - что это такое за окончание. Для закрепления - сделал на семь счетчиков - все работает!IgorLuPro
С уважением IgorLuPro
Сообщение отредактировал IgorLuPro - Среда, 05.10.2016, 00:14