Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Событие вставки/удаления строки в Excel 2003 / 5 сообщений из 5, страница 1 из 1
27.07.2010, 11:41
    #36761231
KrukVN
KrukVN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие вставки/удаления строки в Excel 2003
Нужно отловить момент вставки/удаления строк/строки в Excel 2003
Возможно ли это осуществить при помощи события Worksheet_Change?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.07.2010, 14:36
    #36761809
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие вставки/удаления строки в Excel 2003
Можно попробовать так
1. В обычный модуль
Код: plaintext
1.
2.
3.
4.
Public LastRow As Long
Function My_Func() As String
  Application.Volatile
End Function
2. В любую ячейку листа "Лист1"
=My_Func()
3. В модуль книги
Код: plaintext
1.
2.
3.
Private Sub Workbook_Open()
  LastRow = Worksheets("Лист1").UsedRange.Row _
    + Worksheets("Лист1").UsedRange.Rows.Count
End Sub
4. В модуль листа "Лист1"
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub Worksheet_Calculate()
  If LastRow < Worksheets("Лист1").UsedRange.Row _
    + Worksheets("Лист1").UsedRange.Rows.Count _
  Then
    MsgBox "Вставили " & Worksheets("Лист1").UsedRange.Row _
      + Worksheets("Лист1").UsedRange.Rows.Count - LastRow _
      & " строк/у/и)"
  End If
  If LastRow > Worksheets("Лист1").UsedRange.Row _
    + Worksheets("Лист1").UsedRange.Rows.Count _
  Then
    MsgBox "Удалили " & LastRow - (Worksheets("Лист1").UsedRange.Row _
      + Worksheets("Лист1").UsedRange.Rows.Count) _
      & " строк/у/и)"
  End If
  LastRow = Worksheets("Лист1").UsedRange.Row _
    + UsedRange.Rows.Count
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.07.2010, 15:02
    #36761905
MX-9
MX-9
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие вставки/удаления строки в Excel 2003
sergeyvg,

а какие именно строки удалили ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.07.2010, 15:11
    #36761939
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие вставки/удаления строки в Excel 2003
Данный прием только факт вставки/удаления фиксирует. Чтобы узнать конкретные строки, думаю, нужно строить обработчик служебной колонки со сквозными номерами и их анализировать, т.к. удаление и вставка может быть и несмежных строк.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.07.2010, 15:30
    #36762025
KrukVN
KrukVN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие вставки/удаления строки в Excel 2003
хм. интересно

Спасибо, sergeyvg!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Событие вставки/удаления строки в Excel 2003 / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 464ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177847]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 176ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 216ms
total:  464ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]