|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.08.2010, 08:23 | #1 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
АРХИВАЦИЯ ДАННЫХ И СКРЫТИЕ КОЛОНОК
Добрый день!
Нужен следующий макрос, в диапазоне от колонки G до AW, нужно провести проверку если в G6 разница указанной даты от сегодняшней (указана в ячейке B2) составляет более 20, то необходимо скрыть эту колонку и следующую т.е при выполнении условия должны сворачиваться 2 колонки ( в приведенном примере должны свернуться G и H). и потом проверка должна продолжаться с колонки I на разницу дат в I6 и текущей и так далее.! И еще нужен макрос выполняющий архивацию данных т.е в том же диапазоне должен проверять наличие ячейки "выполнено" если значение найдено то необходимо также 2 две колонки (в той которая найдено и следующую вырезать и вставит в лист "ARCHIVE" начиная с колонки G) Если кто0то может помочь буду очень признателен! Заранее благодарю. |
06.08.2010, 09:10 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
А где пример файла?
Или его тоже мы должны сделать? |
06.08.2010, 09:21 | #3 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
В приложении
|
06.08.2010, 12:07 | #4 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
даааааааа! видать задачка не так проста!
|
06.08.2010, 12:40 | #5 | ||
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Цитата:
Цитата:
Анализ,обработка данных Недорого
|
||
06.08.2010, 12:44 | #6 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Ясен перец нет , это же пример был! Что трудно можно подставить G12 , темболее в таблице это ясно видно! Вообще фаил это шаблон в который надо будет позже занести мероприятия! После их надо отсортировать и заархивировать которые помечены ЗАВЕРШЕНО!
|
06.08.2010, 12:55 | #7 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Макрос на скрытие столбцов
Код:
Анализ,обработка данных Недорого
|
06.08.2010, 13:07 | #8 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Огромное тебе человеческое спасибО doober!
|
06.08.2010, 13:17 | #9 | |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Цитата:
Sub hideree_() Dim I As Integer Dim DH As Integer DH = InputBox("введите кол-во дней") With Sheets("HEAD") For I = 7 To .Range("iv12").End(xlToLeft).Column Step 2 If Now - CDate(.Cells(12, I)) > DH Then .Columns(I).Hidden = True .Columns(I + 1).Hidden = True End If Next End With End Sub |
|
06.08.2010, 13:20 | #10 | |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Цитата:
СПАСИБО! ПРОБЛЕМА РЕШЕНА! ОСТАЛОСЬ ТОКА МАКРОС НАЙТИ ЧТОБЫ АРХИВ СОСТАВЛЯТЬ! |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Архивация папки | Vistar | Общие вопросы .NET | 12 | 11.01.2010 22:29 |
Архивация БД | dron-s | БД в Delphi | 0 | 10.03.2008 12:08 |
Архивация | Mitron | Общие вопросы Delphi | 10 | 14.02.2008 16:00 |
Архивация данных | ZYRGiX | Win Api | 6 | 05.09.2007 20:58 |