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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование данных On-Line - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных On-Line (Макросы Sub)
Копирование данных On-Line
Irbit Дата: Четверг, 06.02.2014, 15:02 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Всем, День добрый!
Не получается состыковать две вещи: 1.В таблицу, в column(A1) идет
непрерывный импорт данных (в ячейки А1,А2,А3 ....и т.д.), формат "Общий".
Соединение с источником по DDE.
2.Написанный макрос работет только в ручном режиме.
Подскажите: где, что не так?[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, celcnt, r As Integer
celcnt = Target.Cells.Count
For i = 1 To celcnt
r = Target.Cells
Range("H1").Value = r
Next i
End Sub
[/vba]
 
Ответить
СообщениеВсем, День добрый!
Не получается состыковать две вещи: 1.В таблицу, в column(A1) идет
непрерывный импорт данных (в ячейки А1,А2,А3 ....и т.д.), формат "Общий".
Соединение с источником по DDE.
2.Написанный макрос работет только в ручном режиме.
Подскажите: где, что не так?[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, celcnt, r As Integer
celcnt = Target.Cells.Count
For i = 1 To celcnt
r = Target.Cells
Range("H1").Value = r
Next i
End Sub
[/vba]
Автор - Irbit
Дата добавления - 06.02.2014 в 15:02
Hugo Дата: Четверг, 06.02.2014, 15:07 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация: 819 ±
Замечаний: 0% ±

365
Worksheet_Change() "недетектит" такие изменения - используйте событие пересчёта по этим ячейкам, или события комбобокса, или setlinkondata (в чём разобраться потруднее).

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеWorksheet_Change() "недетектит" такие изменения - используйте событие пересчёта по этим ячейкам, или события комбобокса, или setlinkondata (в чём разобраться потруднее).
Автор - Hugo
Дата добавления - 06.02.2014 в 15:07
fsl Дата: Четверг, 06.02.2014, 16:09 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 1 ±
Замечаний: 20% ±

Excel 2003
Имхо, должно работать на SelectionChange, если перед моментом внесения данных написать Cells(i.1).Select


Сообщение отредактировал fsl - Четверг, 06.02.2014, 16:28
 
Ответить
СообщениеИмхо, должно работать на SelectionChange, если перед моментом внесения данных написать Cells(i.1).Select
Автор - fsl
Дата добавления - 06.02.2014 в 16:09
Irbit Дата: Четверг, 06.02.2014, 16:54 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Hugo, спасибо за ответ, но я про такие события не слышал. Как и откуда к ним подойти.(Открыт Уокенбах - похожее не наблюдаю.)
 
Ответить
СообщениеHugo, спасибо за ответ, но я про такие события не слышал. Как и откуда к ним подойти.(Открыт Уокенбах - похожее не наблюдаю.)
Автор - Irbit
Дата добавления - 06.02.2014 в 16:54
Hugo Дата: Четверг, 06.02.2014, 17:30 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация: 819 ±
Замечаний: 0% ±

365
Когда пересчитывается формула на листе - срабатывает
Private Sub Worksheet_Calculate()
Вот там и можно поставить обработчик.
Если на лист поставить невидимый комбобокс, завязанный на изменяющуюся ячейку - то можно использовать его события.
А с setlinkondata я не разбирался - мне не нужно.
Тут http://www.planetaexcel.ru/forum....D=10022 есть пример от ZVI.
И не только.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеКогда пересчитывается формула на листе - срабатывает
Private Sub Worksheet_Calculate()
Вот там и можно поставить обработчик.
Если на лист поставить невидимый комбобокс, завязанный на изменяющуюся ячейку - то можно использовать его события.
А с setlinkondata я не разбирался - мне не нужно.
Тут http://www.planetaexcel.ru/forum....D=10022 есть пример от ZVI.
И не только.
Автор - Hugo
Дата добавления - 06.02.2014 в 17:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных On-Line (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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