Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Упрощение макроса вызывающего другой при изменении значния - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Упрощение макроса вызывающего другой при изменении значния
qshin1980 Дата: Вторник, 05.11.2013, 13:16 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
Poltava,

Старался отразить функционал.

1. Срабатывает данный макрос при изменении значений определенных ячеек.

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B38:B53, BN2, B1"), Target) Is Nothing Then
Call УдалениеСтрок
End If
End Sub
[/vba]

2. Листы нужно перебрать все, так как в зависимости от значения на разных листах удаляются те или иные строки во всем проекте.

Есть у кого какие предположения по поводу, почему может выдаваться ошибка в коде который написал RAN в строке

[vba]
Код
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
[/vba]
 
Ответить
СообщениеPoltava,

Старался отразить функционал.

1. Срабатывает данный макрос при изменении значений определенных ячеек.

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B38:B53, BN2, B1"), Target) Is Nothing Then
Call УдалениеСтрок
End If
End Sub
[/vba]

2. Листы нужно перебрать все, так как в зависимости от значения на разных листах удаляются те или иные строки во всем проекте.

Есть у кого какие предположения по поводу, почему может выдаваться ошибка в коде который написал RAN в строке

[vba]
Код
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
[/vba]

Автор - qshin1980
Дата добавления - 05.11.2013 в 13:16
RAN Дата: Вторник, 05.11.2013, 21:42 | Сообщение № 22
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Вариантов море. Например переполнение Union.
Попробуйте изменить конец так
[vba]
Код
       End With
      Set delra = Nothing
    Next
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВариантов море. Например переполнение Union.
Попробуйте изменить конец так
[vba]
Код
       End With
      Set delra = Nothing
    Next
[/vba]

Автор - RAN
Дата добавления - 05.11.2013 в 21:42
qshin1980 Дата: Среда, 06.11.2013, 16:40 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
RAN,
Спасибо, за совет.
Работает, но приложение виснет по черному!!!(((((
Надо искать другое решение.
 
Ответить
СообщениеRAN,
Спасибо, за совет.
Работает, но приложение виснет по черному!!!(((((
Надо искать другое решение.

Автор - qshin1980
Дата добавления - 06.11.2013 в 16:40
RAN Дата: Среда, 06.11.2013, 20:40 | Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Поисковый запрос "Удаление Строк ZVI" (на дружественном форуме)
Или все возможные комбинации (включая большие массивы)
Автор ZVI.
[moder]Ну уж покладите ссылку-то сюда для ленивых (меня, в частности).


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПоисковый запрос "Удаление Строк ZVI" (на дружественном форуме)
Или все возможные комбинации (включая большие массивы)
Автор ZVI.
[moder]Ну уж покладите ссылку-то сюда для ленивых (меня, в частности).

Автор - RAN
Дата добавления - 06.11.2013 в 20:40
qshin1980 Дата: Четверг, 07.11.2013, 17:24 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
RAN, добрый день

Решение интрересное, но в моем случае строки скрываются, а в примере ZVI - удаляются.

Меня усторил бы и мой макрос, если бы можно было прописать, чтоб данной процедуре, подвергались листы в названии которых содержится определенное слово - "Minor". Может быть подскажите, как прописать это в моем макросе?

Спасибо!
 
Ответить
СообщениеRAN, добрый день

Решение интрересное, но в моем случае строки скрываются, а в примере ZVI - удаляются.

Меня усторил бы и мой макрос, если бы можно было прописать, чтоб данной процедуре, подвергались листы в названии которых содержится определенное слово - "Minor". Может быть подскажите, как прописать это в моем макросе?

Спасибо!

Автор - qshin1980
Дата добавления - 07.11.2013 в 17:24
RAN Дата: Четверг, 07.11.2013, 23:03 | Сообщение № 26
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Модератор:, 06.11.2013 в 20:40, в сообщении № 24

Ну уж покладите ссылку-то сюда для ленивых (меня, в частности).

Мне искать некогда было. Но помню - была тема пару лет назад.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Модератор:, 06.11.2013 в 20:40, в сообщении № 24

Ну уж покладите ссылку-то сюда для ленивых (меня, в частности).

Мне искать некогда было. Но помню - была тема пару лет назад.

Автор - RAN
Дата добавления - 07.11.2013 в 23:03
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!