Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/План-график - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » План-график (Формулы/Formulas)
План-график
Ёжж Дата: Среда, 28.09.2016, 13:17 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Подскажите, как после заполнения столбца Е на листе "отчет", на листе "план_график" в строках 3, 5 и 7 должны появиться соответствующие данные за вчерашний день (с учетом выполненного плана)
К сообщению приложен файл: 1896562.xlsx (17.2 Kb)
 
Ответить
СообщениеДобрый день! Подскажите, как после заполнения столбца Е на листе "отчет", на листе "план_график" в строках 3, 5 и 7 должны появиться соответствующие данные за вчерашний день (с учетом выполненного плана)
Автор - Ёжж
Дата добавления - 28.09.2016 в 13:17
sboy Дата: Среда, 28.09.2016, 16:43 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Макрос на кнопке лист "Отчет"
[vba]
Код
Sub Прямоугольник1_Щелчок()
ic = Cells(1, 5).Value + 5
y = 3
For x = 3 To 5
plan = Cells(x, 6).Value
Select Case plan
Case Is < 100
Sheets(2).Cells(y, ic).Value = Cells(x, 5).Value / 1000
Case Else
ict = Sheets(2).Cells(y - 1, Columns.Count).End(xlToLeft).Column
Sheets(2).Cells(y, ict).Value = Cells(x, 5).Value / 1000
End Select
y = y + 2
Next x
MsgBox "Данные перенесены"
End Sub
[/vba]
К сообщению приложен файл: 1896562.xlsm (24.4 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Макрос на кнопке лист "Отчет"
[vba]
Код
Sub Прямоугольник1_Щелчок()
ic = Cells(1, 5).Value + 5
y = 3
For x = 3 To 5
plan = Cells(x, 6).Value
Select Case plan
Case Is < 100
Sheets(2).Cells(y, ic).Value = Cells(x, 5).Value / 1000
Case Else
ict = Sheets(2).Cells(y - 1, Columns.Count).End(xlToLeft).Column
Sheets(2).Cells(y, ict).Value = Cells(x, 5).Value / 1000
End Select
y = y + 2
Next x
MsgBox "Данные перенесены"
End Sub
[/vba]
Автор - sboy
Дата добавления - 28.09.2016 в 16:43
Ёжж Дата: Четверг, 29.09.2016, 08:38 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
sboy, большое спасибо! Буду тестировать. Подскажите, как очищать предыдущие данные на "следующий" день?
 
Ответить
Сообщениеsboy, большое спасибо! Буду тестировать. Подскажите, как очищать предыдущие данные на "следующий" день?
Автор - Ёжж
Дата добавления - 29.09.2016 в 08:38
sboy Дата: Четверг, 29.09.2016, 10:46 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Если правильно понял, то вот так
[vba]
Код
Sub Прямоугольник1_Щелчок()
ic = Cells(1, 5).Value + 5
y = 3
For x = 3 To 5
plan = Cells(x, 6).Value
Select Case plan
Case Is < 100
Sheets(2).Range("F" & y & ":AI" & y).ClearContents
Sheets(2).Cells(y, ic).Value = Cells(x, 5).Value / 1000
Case Else
ict = Sheets(2).Cells(y - 1, Columns.Count).End(xlToLeft).Column
Sheets(2).Cells(y, ict).Value = Cells(x, 5).Value / 1000
End Select
y = y + 2
Next x
MsgBox "Данные перенесены"
End Sub
[/vba]
К сообщению приложен файл: 7562233.xlsm (25.2 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Если правильно понял, то вот так
[vba]
Код
Sub Прямоугольник1_Щелчок()
ic = Cells(1, 5).Value + 5
y = 3
For x = 3 To 5
plan = Cells(x, 6).Value
Select Case plan
Case Is < 100
Sheets(2).Range("F" & y & ":AI" & y).ClearContents
Sheets(2).Cells(y, ic).Value = Cells(x, 5).Value / 1000
Case Else
ict = Sheets(2).Cells(y - 1, Columns.Count).End(xlToLeft).Column
Sheets(2).Cells(y, ict).Value = Cells(x, 5).Value / 1000
End Select
y = y + 2
Next x
MsgBox "Данные перенесены"
End Sub
[/vba]
Автор - sboy
Дата добавления - 29.09.2016 в 10:46
Ёжж Дата: Понедельник, 03.10.2016, 15:26 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
sboy, большое спасибо! Но данные в таблицу заполняются не корректно при разном % выполнения плана ( 99,8; 100,0; 100,2). Помогите поправить.
К сообщению приложен файл: 7562233-1.xlsm (37.2 Kb)
 
Ответить
Сообщениеsboy, большое спасибо! Но данные в таблицу заполняются не корректно при разном % выполнения плана ( 99,8; 100,0; 100,2). Помогите поправить.
Автор - Ёжж
Дата добавления - 03.10.2016 в 15:26
_Boroda_ Дата: Понедельник, 03.10.2016, 20:13 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Формулой пойдет?
Код
=(ПРОСМОТР(СУММ(отчет!$E$1:$F$1)-2;$F$1:$AJ$1/($F2:$AJ2<>0))=F$1)*ВПР($A2;отчет!$A$3:$E$5;5;)/1000

В Е1 листа Отчет вручную поставил 28. Исправьте потом как было
К сообщению приложен файл: 1896562_1.xlsx (18.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеФормулой пойдет?
Код
=(ПРОСМОТР(СУММ(отчет!$E$1:$F$1)-2;$F$1:$AJ$1/($F2:$AJ2<>0))=F$1)*ВПР($A2;отчет!$A$3:$E$5;5;)/1000

В Е1 листа Отчет вручную поставил 28. Исправьте потом как было
Автор - _Boroda_
Дата добавления - 03.10.2016 в 20:13
Ёжж Дата: Среда, 05.10.2016, 05:51 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, спасибо! Формула замечательно работает!!! hands
 
Ответить
Сообщение_Boroda_, спасибо! Формула замечательно работает!!! hands
Автор - Ёжж
Дата добавления - 05.10.2016 в 05:51
Мир MS Excel » Вопросы и решения » Вопросы по Excel » План-график (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!