Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.08.2010, 13:11   #1
Cone
Форумчанин
 
Регистрация: 05.08.2010
Сообщений: 127
По умолчанию ПЕРЕСТАЕТ РАБОТАТЬ СОРТИРОВЩИК

День добрый! Макрос который раньше сортировал все на ура перестает работать после редактирования таблицы, причем редактирование не касается переменных макроса, но он перестает работать! В приложении фаил в котором нужно производить сортировку согласно заданным значением которые вводятся при запуске макроса, но вот ни черта он не работает, не могу понять почему! Раньше работал теперь отказывается!
Вложения
Тип файла: rar WORKABLE_WAS.rar (26.7 Кб, 16 просмотров)
Cone вне форума Ответить с цитированием
Старый 10.08.2010, 14:18   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

не знаю что вы вкладываете в понятие сортировка, но в коде на нее даже намека нет. Там скрываются определенные колонки или отображаются все колонки на листе HEAD.
Вместо того, что у Вас написано вставьте этот
Код:
Sub strin_ger()
  Dim I As Integer
  Dim RS As Integer
  Dim DH As String
  RS = InputBox("номер ряда")
  DH = InputBox("искомое значение")
  On Error Resume Next
  With Sheets("HEAD")
    For I = 7 To .[iv14].End(xlToLeft).Column
      .Columns(I).Hidden = InStr(1, .Cells(RS, I), DH, vbTextCompare) = 1
    Next
  End With
End Sub

Sub Unfol_all()
  Columns("G:BW").Hidden = False
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 10.08.2010, 14:22   #3
Cone
Форумчанин
 
Регистрация: 05.08.2010
Сообщений: 127
По умолчанию

В этом и был смысл сортировщика, скрывать колонки не соответствующие введеным данным и отображать только введеные!
Cone вне форума Ответить с цитированием
Старый 10.08.2010, 14:35   #4
Cone
Форумчанин
 
Регистрация: 05.08.2010
Сообщений: 127
По умолчанию

Спасибо за помощь!
Cone вне форума Ответить с цитированием
Старый 10.08.2010, 14:39   #5
Cone
Форумчанин
 
Регистрация: 05.08.2010
Сообщений: 127
По умолчанию

Еще такой вопрос как сделать то же самое но теперь со скрытием не колонок я РЯДОВ, проверку надо начинать с 10 ряда! Заранее благодарю!
Cone вне форума Ответить с цитированием
Старый 10.08.2010, 16:36   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

можно так переделать.
достаточно в функцию OkData добавить одну строку, и можно отбирать допустим тех, кто "не содержит"... или добавлять любые другие условия.
Вложения
Тип файла: rar Книга381.rar (16.1 Кб, 16 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировщик медиа-файлов нужен. dim3740 Фриланс 3 30.03.2010 17:29
Требуется сортировщик медиа-файлов (за вознаграждение) dim3740 Помощь студентам 0 28.03.2010 08:36
Не работает клава а при нажатии на нее перестает работать мышь!! Дима я Компьютерное железо 10 02.03.2010 17:10
пропадает курсор перестает быть видимым leon777 Общие вопросы Delphi 2 19.01.2010 18:14
Перестает срабатывать запрос в VBA Landurik Microsoft Office Access 0 25.06.2009 12:43