|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.08.2010, 14:19 | #11 |
Форумчанин
Регистрация: 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, 20:27 | #12 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Код:
Анализ,обработка данных Недорого
|
06.08.2010, 21:19 | #13 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Спасибо большое! Работает как часы! Можно попросить Вас еще об одном одолжении,
добавьте пожалуйста коменты к ARCHIVE_Killer, мне как начинающему чайнику они были бы полезны! |
06.08.2010, 23:24 | #14 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Читайте вложение
Анализ,обработка данных Недорого
|
07.08.2010, 00:10 | #15 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Класс спасибо! Прям черной завистью завидую вашему умению писать макросы!
Вот тут не много переделал макрос, вроде работает! Может что то доработать надо? Sub strin_ger() Columns("G:WW").Select Selection.EntireColumn.Hidden = False Dim I As Integer Dim DH As String DH = InputBox("введите завершено или не завершено") On Error Resume Next With Sheets("HEAD") For I = 7 To .Range("iv35").End(xlToLeft).Column Step 2 If InStr(1, .Cells(35, I), DH, vbTextCompare) = 1 Then .Columns(I).Hidden = False .Columns(I + 1).Hidden = False Else .Columns(I).Hidden = True .Columns(I + 1).Hidden = True End If Next End With End Sub |
07.08.2010, 00:40 | #16 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Код:
Анализ,обработка данных Недорого
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Архивация папки | 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 |