Как правильно вставить событие Change листа

[Kalikazandr]

Здравствуйте!
Я не программист.
Тут http://mirvba.ru/makrosi-excel/ekspo...cel-v-txt.html взял макрос, который выводит данные ячеек(D29:E31) в блокнот. В этих ячейках формулы, обрабатывающие получаемую через DDE информацию в столбцах A2:B21. Необходимо что бы макрос запускался при каждом изменении результата в ячейках D29:E31. Полазил по разным форумам и тамошние "гуру" советуют использовать событие Change и как бы все. Мало того они между собой там общаются - будет работать или не будет, а вопрос открыт на некоторых форумах уже неделю. А мне очень важно не тыркать кнопку при каждом изменении значений в ячейках D29:E31. Вот сам макрос:
Sub ExportAsText()
Dim lngRow As Long
Dim intCol As Integer

' Открываем файл для сохранения
Open "C:\primer.txt" For Output As #1
' Записываем выделенную части таблицы в файл (построчно)
For lngRow = 1 To Selection.Rows.Count
' Записываем содержимое всех столбцов строки lngRow
For intCol = 1 To Selection.Columns.Count
Write #1, Selection.Cells(lngRow, intCol).Value;
Next intCol
' следующая строка
Print #1, ""
Next lngRow
' закрываем
Close #1
End Sub

Помогите плиз привязать к нему это загадочное Change (сам макрос для меня еще более загадочен)
Заранее благодарен, с превеликим уважением

[Mishel825]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MyRange As Range


Set MyRange = Range("D29:E21")
If Not Intersect(Target, MyRange) Is Nothing Then GoTo 10
Exit Sub

10 ExportAsText
End Sub

[doober]

По фотографии лечить трудно.
Это к экстрасенсам обращайтесь без примеров файлов.
Могу предположить,что вы тики обрабатываеие,тогда для вывода там немного другой подход нужен.

[SAS888]

...взял макрос, который выводит данные ячеек(D29:E31) в блокнот. В этих ячейках формулы, обрабатывающие получаемую через DDE информацию в столбцах A2:B21. Необходимо что бы макрос запускался при каждом изменении результата в ячейках D29:E31... А мне очень важно не тыркать кнопку при каждом изменении значений в ячейках D29:E31.

При изменении значений ячеек, полученных как результат расчета по формуле, событие Worksheet_Change не произойдет. Нужно либо контролировать изменение влияющих ячеек, либо использовать событие Worksheet_Calculate.

[Kalikazandr]

Сообщение от doober

По фотографии лечить трудно.
Это к экстрасенсам обращайтесь без примеров файлов.
Могу предположить,что вы тики обрабатываеие,тогда для вывода там немного другой подход нужен.

Добрый день, Вы очень проницательны. Только вывожу стакан через DDE, пример во вложении.
Заранее благодарен

[doober]

Функции для работы с текстовыми файлами взяты
с сайта
Пути для файлов и вариант вывода выберете сами,я надеюсь.

[Kalikazandr]

Сообщение от doober

Функции для работы с текстовыми файлами взяты
с сайта
Пути для файлов и вариант вывода выберете сами,я надеюсь.

Спасибо! Макрос действительно работает, только зачем файлы BID1 и OFFER1? как их убрать? И в файл BID выводит так:
12240 92,83
15913 92,7399999999999
32373 92,7199999999999

Извините, настроил вывод стакана на демосчете. 9-ки пропали, выводит ровно, я так понял BID1 и OFFER1 это хронология изменений?
Да, понял как убрать хронологию.
Спасибо огромное!

[Kalikazandr]

Сообщение от doober

Функции для работы с текстовыми файлами взяты
с сайта
Пути для файлов и вариант вывода выберете сами,я надеюсь.

Добрый день!
Уважаемый doober, объясните мне сущеглупому, как поправить код, чтобы в блокноте сделать запись в виде:
5000,93.02
чтобы в качестве разделителя разрядов была точка, а не запятая(разделитель ячеек я поправил на ",").

Заранее благодарен.

[doober]

Странная у вас однако обработка данных.
Сначала в Excel,потом в текстовик.
Далее программа обрабатывает данные с текстовика,принимает решение и т.д.
Много лишних этапов,это моя точка зрения.

     For n = 1 To 3
         ss = ss & X(n, 1) & "," & Replace(X(n, 2), ",", ".") & vbCrLf
      Next

[Kalikazandr]

Сообщение от doober

Странная у вас однако обработка данных.
Сначала в Excel,потом в текстовик.
Далее программа обрабатывает данные с текстовика,принимает решение и т.д.
Много лишних этапов,это моя точка зрения.

     For n = 1 To 3
         ss = ss & X(n, 1) & "," & Replace(X(n, 2), ",", ".") & vbCrLf
      Next

Спасибо, лишние этапы уйдут сами собой, когда полностью на VBA напишу роботину, да и этапы не столь велики. На qpile стакан дольше просчитать.