VPF::Макрос на вызов автофильтра - Форум программистов

Dmitriy_Donetsk

Дата 9.1.2008, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 28.9.2006

Репутация: нет
Всего: нет

Переношу данные из одной (Наличие товара) таблицы в другую (Продажа товара).

Помогите реализовать следующую задачу:

при удалении строки (правая кнопка-- Удалить), я хочу, что бы автоматически выполнялось:

Данные--Фильтр--Отобразить все.

Возможно такое сделать? нужно использовать макрос или создавать кнопку? Спасибо за помощь.

Это сообщение отредактировал(а) Dmitriy_Donetsk - 9.1.2008, 23:21

Akina

Дата 9.1.2008, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Программно Данные--Фильтр--Отобразить все - это ActiveWorksheet.ShowAllData.
А вот поймать именно удаление, т.е. определить, что WorkSheet_Change - это именно удаление строки...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Dmitriy_Donetsk

Дата 10.1.2008, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 28.9.2006

Репутация: нет
Всего: нет

Т.е. поймать именно удаление невозможно?

Akina

Дата 10.1.2008, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Этого я не утверждаю. Но полагаю, что задача непростая... фактически тебе потребуется override штатного метода аппликации.

Но больше всего мне непонятен смысл этого действа - удаления номенклатуры.

--------------------

Dmitriy_Donetsk

Дата 11.1.2008, 01:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 28.9.2006

Репутация: нет
Всего: нет

Хорошо, можно тогда как-то отловить и скопировать единственную строку, которая появляется после применения фильтра.
Т.е. я хочу создать кнопку, прикрепить к ней макрос, который будет копировать значения Единственной строки. Естественно ее номер может быть любым: 33, 65, 100 и т.д... Но в таблицы после фильтра она будет отображена одна. Значения этой строки мне нужно будет после перекинуть в таблицу Продажи.

Спасибо за помощь.

bilya

Дата 11.1.2008, 04:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Удаление строк: http://forum.developing.ru/showthread.php?t=12008
Событие кнопок (в том числе контекстного меню): http://forum.sources.ru/index.php?showtopic=212650&hl=
Копирование строки автофильтра (для расширенного примерно тоже самое):

Код

  i = "bla-bla" ' ваше значение
  
  Set tabl = ActiveWorkbook.Sheets(1).Range(Cells(1, 1), Range("A1").SpecialCells(xlLastCell).Address)

  tabl.AutoFilter Field:=1, Criteria1:="=" & i, Operator:=xlAnd
  Set kopir = ActiveWorkbook.Sheets(1).Range(Cells(1, 1), Range("A1").SpecialCells(xlLastCell).Address)
  Application.CutCopyMode = False
  kopir.Offset(1).Resize(kopir.Rows.Count - 1).Copy Destination:=Sheets(2).Range("a1")
  tabl.AutoFilter

Вытащил из бААлшого кода - но, как-будто, работает smile

Это сообщение отредактировал(а) bilya - 11.1.2008, 05:00

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »