Как получить измененные ячейки в VBA?

[motorway]

Как получить в Excel названия измененных (и удаленных) ячеек в переменную VBA? Типа события OnChange, OnDelete

[EducatedFool]

Как-то так:

Dim АдресаИзменённыхЯчеек As String

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    For Each cell In Target.Cells
        If Not InStr(1, АдресаИзменённыхЯчеек, cell.Address) Then
            АдресаИзменённыхЯчеек = АдресаИзменённыхЯчеек & cell.Address & ", "
        End If
    Next cell
    Debug.Print АдресаИзменённыхЯчеек
End Sub

Результат:

$C$5,
$C$5, $C$8,
$C$5, $C$8, $B$10,
$C$5, $C$8, $B$10, $B$14, $C$14, $B$15, $C$15, $B$16, $C$16,

[motorway]

Попробую разобраться в коде, но для удаления столбцов и, думаю, строк он не подходит - начинает зависать. Спасибо

[motorway]

У меня задача - записать в таблицу БД все данные с экселевского листа. Но обычно он заполнен лишь на малый процент. Поэтому нет смысла писать весь лист, каждую ячейку. Наверно, нужно определить границы, где находится последняя заполненная ячейка, а дальше пусто? Как это лучше сделать?

[EducatedFool]

Сделать всё это совсем несложно.
Только объясните подробнее, чего Вы пытаетесь добиться (желательно с примером файла)

Тем более, если надо записать с листа в БД все данные, то и отслеживать изменения не вижу смысла.

Кстати, я тут как-то делал уже такой макрос - который помечает цветом строки, в которых произошли изменения. (Вам осталось только найти тот пример на форуме)
Потом в базу данных заносятся только эти цветные строки.

Можно, конечно, записывать данные и в переменную, но это менее надёжно - если макрос вылетит с ошибкой (любой), все переменные обнулятся. А цвет строк точно не скинется ни при каких обстоятельствах.

[motorway]

Добиться хочу следующего: есть некий файл в Экселе. В нем какие-то данные - значения, формулы, а по бокам - текстовые названия колонок и строк. Предполагается, что эти данные будут посылаться на сервер в Интернете, чтобы потом пользователи могли нажимать на кнопку "Загрузить данные из БД", чтобы увидеть изменения, внесенные другими пользователями.
То есть БД делается для того, чтобы была многопользовательская работа, и каждый мог загрузить из нее текущую версию файла. Далее пользователь вводит что-то и посылает на сервер скрипту, который возвращает результаты в таблицу. Далее опять можно сохранить это в БД.
Вот поэтому у меня вопрос: записать-то можно все данные, но так как в Экселе огромный лист (миллион строк), то понятно, что все записывать не надо. Нужно только то, где есть последние данные, которые ограничивают рабочую область листа. Да и здесь лучше записывать только то, что изменилось, а не перезаписывать то же самое.

[motorway]

Проблема еще одна: как сделать, чтобы при удалении или добавлении строки/столбца формулы в примечаниях менялись автоматически? Когда в самой ячейке, то они меняются, а так нет. Для начала нужно понять, как отлавливать событие добавления или удаления строки/столбца, и сразу вызывать по нему какую-то функцию.

[EducatedFool]

как сделать, чтобы при удалении или добавлении строки/столбца формулы в примечаниях менялись автоматически?

А что, разве Excel позволяет вставлять формулы в примечания?
Что-то новенькое...

Для начала нужно понять, как отлавливать событие добавления или удаления строки/столбца, и сразу вызывать по нему какую-то функцию.

Да очень просто:

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address
End Sub

При вставке столбцов/строк этот код сообщит Вам адрес вставленного диапазона.
Проанализировав этот адрес, можно узнать, что именно было вставлено - строка или столбец:

Private Sub Worksheet_Change(ByVal Target As Range)
    addr = "Изменения в диапазоне  " & Target.Address

    Select Case True
        Case Target.Columns(1).Cells.Count = Rows.Count
            msg = "Добавлено столбцов:  " & Target.Cells.Count / Rows.Count
        Case Target.Rows(1).Cells.Count = Columns.Count
            msg = "Добавлено строк:  " & Target.Cells.Count / Columns.Count
        Case Else:    '  изменилось что-то другое
    End Select
    If Len(msg) Then MsgBox msg, vbInformation, addr
End Sub

[motorway]

Посмотрел еще раз Ваш код. Но он работает одинаково в случае добавления/удаления столбцов или строк и все время пишет "добавлено...". А мне нужно как-то узнавать, что именно было сделано и где. Понятно, что основная идея в сравнении прошлого числа колонок/строк с нынешним. Но как это конкретно реализовать?

Мне нужно сделать, чтобы внутри обработчика события определялось, что было сделано - удаление/добавление строк или столбцов, и чтобы следующий код вызывался только при этом событии, а не просто изменении листа.

[SAS888]

Если речь идет только об удалении (добавлении) строк (столбцов, ячеек), то можно перехватывать по номеру ID эти события и назначать свою, какую угодно процедуру. Например, перед тем, как удалить строку (столбец), присваивать переменной адрес этого диапазона. Естественно, при деактивации книги нужно отменять назначенные процедуры.
Если так устроит - могу сделать.