|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.04.2009, 12:10 | #11 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение.
Чем шире угол зрения, тем он тупее.
|
22.04.2009, 12:11 | #12 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
IgorGO, спасибо, сейчас буду переводить формулы с русского на английский
|
22.04.2009, 12:47 | #13 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
SAS888, а можно диапазон дат [B17:B37], заменить на диапазон от B17 до последней заполненной ячейки(или вчерашнего дня,т.е. Today()-1 ?
|
22.04.2009, 13:20 | #14 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. Что не так?
Чем шире угол зрения, тем он тупее.
|
22.04.2009, 13:29 | #15 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
Вау)
Могли бы дать комментарии? With [B17:F48] - почему именно F48 r = Date - [B17] + 16 - почему 16 ? А With Sheets("Sheet1") - можно заменить на "Sheet1" другой книги.xls? |
22.04.2009, 13:57 | #16 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
1. Перед началом работы, макрос очищает ячейки в диапазоне "B17:F48" от данных, заливки и нарисованных ранее границ. 48 - потому, что максимально возможное количество строк в таблице, начиная со строки 17 плюс 31 (максимально возможное количество дней в месяце).
2. r = Date - [B17] + 16 Определяем строку, до которой нужно "растянуть" дату из ячейки "B17". Сегодняшняя дата минус значение ячейки "B17" - это количество дней с 1 по сегодняшний. Соответственно, чтобы получить вчерашний, нужно отнять 1. А чтобы получить абсолютный номер строки, нужно прибавить 17 (т.к. это первая строка диапазона для вставки данных). Итого: r = Date - [B17] - 1 + 17, т.е. r = Date - [B17] + 16. 3. Если книга открыта, то строку Код:
Код:
Чем шире угол зрения, тем он тупее.
|
22.04.2009, 15:26 | #17 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
В моем случае даты не ограничены месяцем. Зафиксирована только ячейка B17 как первая дата.
|
22.04.2009, 15:37 | #18 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
22.04.2009, 16:11 | #19 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
IgorGO, спасиб. Я сразу не понял, что Ф - вставлена как переменная.
в Ф вставлен vlookup, который ищет определенную дату (значение в ячейке F2 на определенных листах, задаваемых optionbutton). В этом случае все идеально. А если столбец с датами каждый день растет и значения нужно выводить на каждое число. Другими словами, нужна не одна формула, а столько сколько дат в столбце. Напротив каждой даты нужны значения, которые подтягиваются из других листов. Последний раз редактировалось ruavia3; 22.04.2009 в 16:32. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как можно сократить код | jocry | Общие вопросы Delphi | 2 | 20.01.2009 08:35 |
Как сократить время? МАКРОС! | jungo | Microsoft Office Excel | 17 | 01.05.2008 12:13 |
как вычислить формулу? | Sergeus | Microsoft Office Excel | 2 | 26.02.2008 23:56 |
Как переделать формулу | mik | Microsoft Office Excel | 1 | 27.10.2007 19:07 |