Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

Восстановить пароль
Повторная активизация e-mail

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

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

icq: 7934250
skype: i2x0,5
По умолчанию

не знаю что вы вкладываете в понятие сортировка, но в коде на нее даже намека нет. Там скрываются определенные колонки или отображаются все колонки на листе 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

__________________
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума   Ответить с цитированием
Старый 10.08.2010, 14:22   #3
Cone
Форумчанин
 
Регистрация: 05.08.2010
Сообщений: 127
Репутация: 18
По умолчанию

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

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

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

icq: 7934250
skype: i2x0,5
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


20:42.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru